请问我如何调用ado！！！？？？？？在线等待！！！！

Question

在 工程 中 引用 Microsoft ActiveX Data objects 2.6 Library
然后
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset

Answer 1

在 工程 中 引用 Microsoft ActiveX Data objects 2.6 Library
然后
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  cn.open="provider=microsoft.jet,oledb,4.0;data source=c:\mydb.mdb"
strsql=select * from yourtable where fileds='"&(text.text)&"'"
rs.open sql cn

Answer 2

上面的是jet.oledb.4.0我把点写成逗号了

Answer 3

在 工程 中 引用 Microsoft ActiveX Data objects 2.6 Library
然后Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
目前ADO 的最高版本是2.6，而且你的系统中必须有sql server2000，在工程中才有Microsoft ActiveX Data objects 2.6 Library ,听说在VB .net中ADO有新的变化，你有兴趣就学学。NET 吧

Answer 4

如果是连接sql 2000 server 呢？有人可以给出源代码吗？？？？
呵呵，直接感谢！！！

Answer 5

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cnn = New ADODB.Connection
cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=你的数据库名称"
sql = "select*from information where 条件"
Set rs = New ADODB.Recordset
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic就这些不知道你是否满意 而且已经调试成功

Answer 6

楼上的说的已经很细了,如果要想把结果显示出来,就再加个
Set MSHFlexGrid1.DataSource = rs
所以你必需在Ｆorm上加个MSHFlexGrid1