收录日期:2019/03/19 04:30:21 时间: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中而犯愁,能否把“查找”代码也贴出来,交流一下
谢谢各位大哥的指点!

WEB CONTROLS包在什么地方可以下载 十萬火急!!!怎樣定義一個數組變量!!高分請進 请大家帮忙!Sun Java认证具体情况:费用,资料,课程设置等 JAVA算法研究书 这个小问题,看看吧 page_load 问题?(在线等) image.canvas.textout().再线等待 如何向DataSet的具体表的具体行的具体列赋值和取值? 如何在程序中改变一个按钮的Caption? 作过COM的朋友进来。 怎样使用以有的资源文件? 在线等待!一个一直没有解决的问题,百分!!!!! 关于父窗口和子窗口透明的问题:??????????????? 请问各位高手,如何获得对方计算机的IP地址,以及编理财软件用什么控件好些?以及为什么在程序里设置新墙纸,但必须要在桌面按刷新才能更 这道题目要怎么做:用单下标数组实现,20个数,读取每个数,打印不重复的值。用最小的数组解决这个问题。 关于数据库锁定 紧急求援 关于js的问题 请问怎么把一个文件夹打包成.war,.jar或者.ear文件? 豪杰大眼睛 怎样编写设置某个目录为共享目录? 大家好,,我是个初学者,请大家给我指点一下.... r如何实现这样的打印? DBGrid如何设置为一次选中一整行? 一段公用模块的含义,如何理解,是关于SQL的。它用来执行各种SQL语句,救命啊! LISTVIEW里的图标的距离怎设 为什么我写的一个无类型库的COM,在外面注册的时候报0x00000000这样的地址不能读的错误,但在delphi里面注册又没问题,很急,急。\0 能否用PHP程序检测出本机上的MYSQL服务名称及ROOT用户的密码? 高手请进,关于控件对本地文件操作的问题 请教一下:Mod_jk这个东东在哪里有下载? 如何用SQL在页面分类输出相关最新更新新闻