VB.ADO与SQL数据库连接问题.......急....................在线等

Question

一个按钮一个文本框一个模块
Private Sub Command1_Click()    Dim Rs As New ADODB.Recordset
    Dim Str As String
    Str = "select * from aa"
    Rs.Open Str, Con
    Text1.Text = Rs.Fields("a")
    Rs.Close
    
End Sub
'模块
Option ExplicitPublic Con As ADODB.ConnectionSub main()
    Dim Str As String
    Set Con = New ADODB.Connection
    
    Str = "provider=SQLOLEDB.1;" & _
    "data source=.;" & _
    "initial catalog=master;" & _
    "user id=sa;password=sa"
    
    Con.Open Str
    Form1.Show
    
    
End Sub
总显示连接无法用于执行此操作.在此上下文中它可能已被关闭或无效.问题究竟在哪里呢??

Answer 1

Option ExplicitPrivate Conn As New ADODB.Connection
Private Rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    Dim conStr As String
    dim sqlstr as string
    Conn.CursorLocation = adUseClient    
    conStr = "provider=SQLOLEDB.1;" & _
    "data source=.;" & _
    "initial catalog=master;" & _
    "user id=sa;password=sa"
    
    Con.Open conStr
    sqlStr = "select * from aa"
    Rs.Open sqlStr, Con
    Text1.Text = Rs.Fields("a")
    Rs.Close
    
End Sub

Answer 2

要将这一句
Set Con = New ADODB.Connection
设为全局的就可以了