Question

vb语句要求对象

Dim rs3 As ADODB.Recordset
Private Sub Form_Load()
Set rs3 = cnn.Execute("select * from 销售单")
If Not rs3.EOF Then
Text1.Text = rs3.Fields("购货单位")
End If
End Sub

执行时提示“424 要求对象”是怎么回事？望哪位高手帮忙解决，不胜感激！
cnn 在模块中已定义
Public cnn As New ADODB.Connection
cnn.open "Provider = MSDASQL.1; Persist Security Info=True; Initial Catalog=过磅信息; Data Source=B8C4A837C3544F8"

Answer 1

楼主你好，是这样的：
1、您的cnn定义了没有？如果没有，在Form_Load的时候需要定义才能使用；
2、您需要在工程-引用里引入Microsoft ADO2.5
3、您必须先dim cnn as new adodb.connect 然后 cnn.open "连接数据库字符串"
4、dim rs3 as new adodb.recordset
rs3.open "select * from 销售单",cnn,1,1
If Not rs3.EOF Then
Text1.Text = rs3.Fields("购货单位")
End If
希望能帮到楼主。

Answer 2

Dim rs3 As Object

Answer 3

cnn的定义呢