一个对于各位来说比较简单的问题

Question

MYCONNECTION 定义成全局变量
把代码粘到一个模块中就可以了

Answer 1

在模块中定义
PUBLIC SUB AAA
Dim MYCONNECTION As ADODB.Connection
Dim record1 As New ADODB.Recordset
Dim strSQL As StringSet MYCONNECTION = New ADODB.Connection
MYCONNECTION.Open "dsn=producedsn;uid=;pwd=;database=Produce"
strSQL = "select distinct PONO from BaseInfo "
record1.Open strSQL, MYCONNECTION, 3, 3If record1.RecordCount = 0 Then
Else
For i = 0 To record1.RecordCount - 1
Msgbox record1.Fields(0).value
record1.MoveNext
Next
record1.close
set record1 = nothing
MYCONNECTION.close
set MYCONNECTION = nothing
END SUB在窗体中调用
call aaa

Answer 2

模块中
Public MYCONNECTION As ADODB.Connection
Set MYCONNECTION = New ADODB.Connection
MYCONNECTION.Open "dsn=producedsn;uid=;pwd=;database=Produce"
Public record1 As New ADODB.Recordset
Dim strSQL As String
strSQL = "select distinct PONO from BaseInfo "
record1.Open strSQL, MYCONNECTION, 3, 3窗体中
If record1.RecordCount = 0 Then
Else
For i = 0 To record1.RecordCount - 1
Msgbox record1.Fields(0).value
record1.MoveNext
Next

Answer 3

各位不行啊。它提示Set MYCONNECTION = New ADODB.Connection无效的外部过程啊。