VB中用ADO连接数据库出现的问题

Question

rs,cn都定义了吗,程序太少,看不出那错了

Answer 1

那我再发一段代码,你给看一看
Dim cn As New adodb.Connection
Dim rs As New Recordset
Dim sql As String
Dim i As Long
cn.ConnectionString = "provider=sqloledb;data source=tt.88ip.net;data base=active;uid=sa;pwd=123456;"
cn.Open
If cn.State <> 1 Then '判断是否连接成功!
MsgBox "数据库不存在或访问被拒绝!" & Error
Else
MsgBox "数据库连接成功!!!"End Ifsql = "select * from AM_msg"
     Set rs = cn.Execute("SELECT * FROM AM_meet")
Do While Not rs.EOF
   For i = 0 To rs.Fields.Count - 1
     Print rs.Fields(i)           '输出jsb表中各字段
   Next i
rs.MoveNext
Print
Loop
提示数据库连接成功!
执行到刚才发的那一句就提示错误,对象名不存在

Answer 2

执行这句话之前Set rs = cn.Execute("SELECT * FROM AM_meet")
要先加以个set rs = New ADODB.Recordset

Answer 3

sql = "select * from AM_msg"
     Set rs = cn.Execute("SELECT * FROM AM_meet")
-----------
你是想查询哪个表中的数据,AM_msg,AM_meet,这两表都存在吗

Answer 4

cn.ConnectionString = "provider=sqloledb;data source=tt.88ip.net;data base=active;uid=sa;pwd=123456;"
連接字符串有問題,或者數據源錯誤

Answer 5

试一下这样
set rs = New ADODB.Recordset
rs.open "SELECT * FROM AM_meet",cn,3,2
Do While Not rs.EOF
....