Private Sub Class_Initialize()
Dim conn As ADODB.Connection
Dim rst As ADODB.RecordsetEnd SubPublic Function querySQL(ByVal sql As String) As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic
Set querySQL = rstEnd Function调试时出现提示
compile error:
user-defined type not defined
Dim conn As ADODB.Connection
Dim rst As ADODB.RecordsetEnd SubPublic Function querySQL(ByVal sql As String) As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic
Set querySQL = rstEnd Function调试时出现提示
compile error:
user-defined type not defined
把它定义为窗体级的,如:
Dim conn As ADODB.Connection
Dim rst As ADODB.RecordsetPrivate Sub Class_Initialize()End Sub
Private rst As ADODB.Recordset
Private Sub Class_Initialize()
set conn=new ADODB.Connection
End Sub
为什么呢
你找到project,reference,然后找我上面说的,会找到很多版本2.5-2.8你选一个就好了
public 申明全局变量(窗体里申明只作用于窗体,模块里申明作用于整个工程)
private 申明模块级变量(窗体里申明作用于窗体,模块里申明作用于该模块)
dim 申明过程级变量(窗体里申明作用于窗体;模块里申明作用于该模块;过程里面申明,作用于该过程)