第一次用 adodb ，不知道为什么错，而且那 Cnstr 也没用上。要怎么改？谢谢

Question

Option ExplicitPrivate Sub Command1_Click()
    Dim conn As New ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Cnstr$, SQL$
    
    Dim filename$
    filename = App.Path & "\MIS.mdb"
    Cnstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & filename    SQL = "select * from login"
    rs.Open SQL, conn, 1, 3
End Sub

Answer 1

Private Sub Command1_Click()
    Dim conn As New ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Cnstr$, SQL$
    
    Dim filename$
    filename = App.Path & "\MIS.mdb"
    Cnstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & filename
    conn.open Cnstr
    SQL = "select * from login"
    rs.Open SQL, conn, 1, 3
End Sub

Answer 2

Dim conn As New ADODB.Connection
Dim rs As new ADODB.Recordset
    Dim Cnstr$, SQL$
    
    Dim filename$
    filename = App.Path & "\MIS.mdb"
    Cnstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & filename
    if conn.state=adstateopen then conn.close
    conn.open cnstr        SQL = "select * from login"
    if rs.state=adsateopen then rs.close
    rs.Open SQL, conn, 1, 3

Answer 3

如果数据库是ACCESS2000及以上版本，最好将OLEDB.3.51改成OLEDB.4.0

Answer 4

VirtualDesktop(吴滂:欢迎到我的Blog转转 ^_^) ( ) 信誉：104    Blog  2006-11-17 12:55:08  得分: 0  
 
 
   Private Sub Command1_Click()
    Dim conn As New ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Cnstr$, SQL$
    
    Dim filename$
    filename = App.Path & "\MIS.mdb"
    Cnstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & filename
    conn.open Cnstr
    SQL = "select * from login"
    rs.Open SQL, conn, 1, 3
End Sub  
=====================================================================
会出错， 对象变量或 with 块变量未设置
错误指向  rs.Open SQL, conn, 1, 3

Answer 5

Leftie(左手,为人民币服务) ( ) 信誉：105    Blog  2006-11-17 12:57:34  得分: 0  
 
 
   Dim conn As New ADODB.Connection
Dim rs As new ADODB.Recordset
    Dim Cnstr$, SQL$
    
    Dim filename$
    filename = App.Path & "\MIS.mdb"
    Cnstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & filename
    if conn.state=adstateopen then conn.close
    conn.open cnstr        SQL = "select * from login"
    if rs.state=adsateopen then rs.close
    rs.Open SQL, conn, 1, 3  
================================================================adsateopen 未定义？我第一次接触adodb，不知道怎么用