收录日期:2018/12/11 02:29:34 时间:2016/05/18 03:14:02 标签:数据库(包含打印,安装,报表)
用ACCESS建立一个表,对其中6个字段进行查询,把匹配项的所有内容显示到DataGrid中去!
    其中,数据库连接为
    Option Base 1
    Dim cnn1 As ADODB.Connection
    Dim rs As ADODB.Recordset

    Private Sub Form_Load()
      ' 打开连接。
      Set cnn1 = New ADODB.Connection
      strCnn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=yy"
      cnn1.Open strCnn
      ' 打开 yc 表。
      Set rs = New ADODB.Recordset
      rs.CursorType = adOpenKeyset
      rs.LockType = adLockOptimistic
      rs.Open "yc", cnn1, , , adCmdTable
    end sub
你干吗要用DATAGRID这个控件呢。
用MSFLEXGRID这个控件更好噻。功能要强大得多
我只知道MSFLEXGRID是这样加的。
If rs.EOF = False Then
          With MSFlexGrid
               .Rows = 1
               Do While Not rs.EOF
                  .Rows = .Rows + 1
                  For j = 0 To rs.Fields.Count - 1
                      .TextMatrix(.Rows - 1, j) = rs.Fields(j) & ""
                  Next j
                  rs.MoveNext
               Loop
           End With
        End If
rs.Open "select * from yc where *****", cnn1, , , adCmdTable
Set DataGrid1.DataSource = RS
你到底是问怎么进行查询还是问怎么样将数据放到datagrid控件中?

如果是要将表中的记当放到datagrid控件中的话:

Set rs = New ADODB.Recordset
rs.CursorLocation=adUseclient
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "yc", cnn1, , , adCmdTable
接上面:
set datagrid1.datasource=rs
datagrid1.refresh
set datagrid1.datasource=rs
你是将表中的6个字段匹配的记录放到datagrid中:
rs.cursorlocation=aduseclient
rs.open "select " & ziduan * " from " & biao & " where( " & tiaojian & ")",conn,……
set datagrid1.datasource=rs
楼主!我也正在为查找有可能有多条记录符合条件的复合查找,并把结果显示在datagrid中而犯愁,能否把“查找”代码也贴出来,交流一下
谢谢各位大哥的指点!

求助:笔记本电脑显示器屏幕很暗? windows程序中如何将一个数据库连接声明为一个全局的,以便后边也能引用? 如何用poi控制,在excell表中的一个cell中字符串硬回车 老板要我对现有的项目管理软件进行功能比较分析,不知道如何下手!请教各位大侠 关于下拉菜单不能下拉的问题? 数据库表并发运行就死锁,如何解决? 求助鼠标问题 请教再在VB工程中是否可以修改Excel的菜单或工具栏 ︿_︿要分的gg、jj、dd、mm们来接分了 谁有pb8通用的打印模板。 ItemChanged事件竟然3次,怎么办? P4 2.4GHz的CPU,既有2.4C,还有2.4B,还有不带字母的,它们有什么区别? 关于虚拟光驱的问题 急急急急啊。。。。。异常处理。。。。。。高手请教。。。。。。 那位高手在domino下使用过java,可以给以个应用的实例吗? 请问大家用asp.net手写代码是如何写的???? SQL7升级到SQL2000的问题!!!!!高分求救,在线等! 收集最优解决方案!大家用web做主从表数据录入都用什么技术? 如何摆脱命令的累赘? 怎样获取网络中已安装SQLSERVER机器的名称。 for (; rs.next(); ){} 这个循环什么意思? 今天是偶的生日!散分喽 视图/文档的问题 郁闷的问题!大家来看看! 怎么减少catalina.out文件的大小 求“刷新”键代码。 ID?注册 Linux下的Gcc在哪里?? 在JSP中怎么实现打开一个\"新\"的窗口,而且传值到这个新的窗口? JSP连接SQLSERVER出现的问题,请大家帮帮忙