编译错误,"用户定义类型未定义"

[happymingnan]

Public Function getRS(ByVal sql As String) As ADODB.Recordset '就是这句发生这个什么用户定义类型未定义这个错误.

Dim myconn As New ADODB.Connection
Dim rs As New ADODB.Recordset

strconnection = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & "DSN=zjnulibrary;Description=图书馆数据;APP=Visual Basic;WSID=ZJNUV;DATABASE=zjnulibrary;Trusted_Connection=Yes"
On Error GoTo getrs_error

rs.open sql, myconn, 3, 3
Set getRS = rs

getrs_exit:
Set rs = Nothing
Set myconn = Nothing
Exit Function

getrs_error:
MsgBox "发生错误:" & Err.Description, vbOKOnly, "错误警告"
Resume getrs_exit

End Function

Public Sub sqlexe(ByVal sql As String)
Dim myconn As New ADODB.Connection
On Error GoTo sqlexe_error
myconn.Execute (sql)

sqlexe_exit:
Set myconn = Nothing
Exit Sub

sqlexe_error:
MsgBox "发生错误:" & Err.Description, vbOKOnly, "错误警告"
Resume sqlexe_exit

End Sub

Sub main()
Dim newfrm As New MDIForm1
newfrm.Show
End Sub

[射天狼]

引用ADO了吗？!?

[happymingnan]

是要在部件里加入 ado 这个控件吗?
已经加了啊.

[chaoren119119]

楼主借地方用一下啊，谢谢
我在建立根节点的时候用的是这样的代码
Private Sub Form_Load()
Dim NodX As Node
Do While Data1.Recordset.EOF
Set NodX = TreeView1.Nodes.Add(, , Chr(Data1.Recordset.Fields("编号1").Value), Data1.Recordset.Fields("公司").Value)
NodX.Tag = Data1.Recordset.Fields("编号1")
Data1.Recordset.MoveNext
Loop
End Sub
系统老是报错“错误91，对象变量或with块变量未设置”
我明明把data控件设定好了，数据库也绑定正确，真是奇怪啊！

[yunfeng007]

在引用-〉选择Microsoft ActiveX Data Objects 2.X Library，其中X为版本号

[happymingnan]

我以解决了,谢谢.
仁兄

[chaoren119119]

to yunfeng007(一水寒)
能不能帮我解决一下问题！

[pigpag]

chaoren119119(chaoren)：虽然我的数据库是一塌糊涂~~~Recordset不是现成的，需要取得的。我一般不用Data，用数据环境的，要获得一个Recordset必须执行查询语句。反正好像是这样。

最好不要在其他人的帖子上发自己的问题（散分贴上最好也不要这样）。如果你遇到可用分的问题，可以到非技术区的可用分资助站寻求帮助。特别是问题很多的情况，一定要合理安排分数，注意提问技巧。