DATAGRID如何使用？

Dim   rec   As   Variant  
  Dim   find_str   As   String  
  Dim   cnn2   As   ADODB.Connection  
  Dim   rssearch   As   ADODB.Recordset  
  If   txtquery.Text   =   Empty   Then  
          MsgBox   "请输入查询内容",   ,   "查询"  
          txtquery.SetFocus  
          End   If  
          find_str   =   "select   *from   事务表   "   &   _  
          "where   物品名称='"   &   Trim(txtquery.Text)   &   "';"  
  Set   cnn2   =   New   ADODB.Connection  
          cnn2.ConnectionString   =   "provider=MICROSOFT.Jet.OLEDB.3.51;"   &   _  
          "data   source=e:\pass\main.mdb"  
  cnn2.Open  
  Set   rssearch   =   New   ADODB.Recordset  
    rssearch.Open   find_str,   cnn2,   adOpenDynamic  
   
  请问如何把查询出的记录赋值给DATAGRID这个控件，然后使它显示出来．  
  谢谢．  
  问题点数：20、回复次数：6Top

1 楼Fanks（铁面人）回复于 2002-04-06 13:29:14 得分 5

set   datagrid.datasource=rssearchTop

2 楼dbcontrols（泰山__抛砖引玉）回复于 2002-04-06 13:34:22 得分 5

http://202.98.116.66/amtd/taishan/index.html  
  有代码可以参考Top

3 楼swj_20（不吃东瓜）回复于 2002-04-06 13:40:05 得分 0

不行  
  错误  
  实时错误＇７００４＇  
  行集合不能做为标签Top

4 楼Fanks（铁面人）回复于 2002-04-06 13:47:59 得分 0

如果不进行写操作的话   rssearch.Open   find_str,   cnn2     即可  
  要更改内容的话   rssearch.Open   find_str,   cnn2,,adOpenKeyset,adLockOptimisticTop

5 楼jxrjfalcon（猎鹰）回复于 2002-04-06 13:49:02 得分 5

 
  rssearch.Open   find_str,   cnn2,   adOpenDynamic  
  好像后面还少了一个参数.再加下面的就行了。  
  set   datagrid.datasource=rssearchTop

6 楼BillQin（BillQin）回复于 2002-04-06 13:58:52 得分 5

加一個ADODC控件ado1  
  ado1.connection=cnn2  
  ado1.commandtype=adcmdtext  
  ado1.recordsource=find_str  
  ado1.enable=ture  
  datagrid.database=ado1  
  datagrid.refresh  
  Top

相关问题

• datagrid
• ado
• rssearch
• cnn2
• txtquery
• ado1
• adodb
• find
• str
• open

• 帖主：swj_20
• Fanks
• dbcontrols
• jxrjfalcon
• BillQin

• Visual Basic类图书
• Visual Basic类源码下载