vb执行要求对象

显示全部楼层 · 2010-10-17 14:40:10

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

千问 · 2010-10-17 14:40:10

从这一点还看不出到底是什么病,不知道你是从那里启动你的cnn打开了没有Dim rs3 As ADODB.RecordsetDim rs3 As new ADODB.Recordset 试试如果cnn没有打开什么也别说!从现在的只能看出,你没有打开,也就是还有其它窗体代码,并cnn是一个公有变量

千问 · 2010-10-17 14:40:10

cnn.open "Provider = MSDASQL.1; Persist Security Info=True; Initial Catalog=过磅信息; Data Source=B8C4A837C3544F8把这句放在FORM_LOAD以面就行了。Private Sub Form_Load()on error goto err