请问在VB中使用ado对象如何完成SQL查询，并用DataGrid显示

Question

请问在VB中使用ado对象如何完成SQL查询，并用DataGrid显示

Answer 1

Dim cn As Object, rs As Object
 
 Set cn = New ADODB.Connection
 
 Set rs = New ADODB.Recordset
 
 If cn.State = adStateOpen Then cn.Close
   
   cn.Provider = "Microsoft.Jet.OLEDB.4.0"
   
   cn.ConnectionString = App.Path & "\data\yyzlgl.mdb"
   
   cn.Open
   
   Set rs.ActiveConnection = cn
   
   rs.CursorType = adOpenStatic
   
   rs.LockType = adLockOptimistic
   
    rs.Open "SELECT * FROM TABLE"

Answer 2

楼上的没写完。
下面继续DataGrid.datasourse = rs--------------------------------------------------------
进销存源码500元出售 http://www.skycn.com/soft/32388.html  
--------------------------------------------------------

Answer 3

Option Explicit
Dim db As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False"
db.Open
rs.CursorLocation = adUseClient
rs.Open "select * from mdlk_sj where 批号='D111C' and 日期>='2005-01-01'", db, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs
Text1 = rs.Fields(0)
Text2 = rs.Fields(1)
End Sub

Answer 4

非常感谢信誉兄的完整描述！如果我想在上面datagrid显示的查询结果里，再增加记录，并刷新datagrid显示，可以看见新增的记录已经基本数据库中。
望各位再帮小弟出招！

Answer 5

没有什么难的。
设一个“添加(&A)”按钮，点击添加时，向数据库里Insert一条新记录，同时在DataGrid中再添加该新添加的记录即可。
同样删除也类似，在数据库中Delete待删除的记录，然后在DataGrid中移除该条记录即可。

Answer 6

你把Datagrid的允许填加属性设为true,就可以直接在datagrid里写数据了

Answer 7

你把Datagrid的允许填加属性设为true,就可以直接在datagrid里写数据了
添加 
rs.addnew
删除
rs.delect