收录日期:2018/09/20 15:52:29 时间: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中而犯愁,能否把“查找”代码也贴出来,交流一下
谢谢各位大哥的指点!