ADO数据对象如何与DataGrid相关联?

Question

Private Sub Form_Load()
 '重新初始化标准模块内的connstr连接字符窜
  connstr = "provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=2543;Data Source=" + App.Path + "\sale.mdb"
  Dim conn1 As ADODB.Connection
  Dim rs1 As ADODB.Recordset
  Set conn1 = New ADODB.Connection
  Set rs1 = New ADODB.Recordset
  Dim strSQL1 As String
  strSQL1 = "select * from allStorage"
  Call PubConnSub(conn1, rs1, strSQL1, 3, 3)
  MsgBox ("ok")
  Form1.Show
  '来到这里就不会了,书籍上都是使用控件来绑定的,我上网也搜索过一下,
  rem 那些原代码一大堆,费了很长时间去看之后,人家是用api函数访问的,我又不懂
  '希望在这里可有得到解决
  Set DataGrid1.DataSource = rs1
End Sub

Answer 1

这样就ok了Connct.Open Constr
Connct.CursorLocation = adUseClient'把connect.cursoulocation=aduseclient 加上

Answer 2

好了说一声,还有你的ADODB.Connection  不应该有多个,一个应用程序中的联接一个就差不多了
把它定义成全局的,任何时候最好最多一个联接就ok了 要不然你的数据库如果是sqlserver的话
如果开了几十个客户端，那么数据库服务器就会很慢，一个sql数据库服务器 如果开了四五十个联接那个反应是让人受不了的

Answer 3

改一下你的代码 Constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xxx.mdb;Persist Security Info=False"
   Connct.Open Constr
   Connct.CursorLocation = adUseClient
   rs.Open "Select * from table", Connct, adOpenKeyset, adLockOptimistic
   Set DataGrid1.DataSource = rs

Answer 4

Set DataGrid1.DataSource = rs1
这句不就关联上了吗