一个初级问题

Question

每次运行都在Set adocon = New Connection实例化时说无效使用关键字
Private Sub Command1_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim adocon As Connection
    Dim username As String
    Dim password As String
    Set adocon = New Connection
    adocon.open "driver={microsoft access driver(*.mdb);dbq=" & App.Path & "\user.mdb;"
    Set rs = New Recordset
    'Set db = OpenDatabase(App.Path & "\user.mdb", "pwd=admi")
    'Set rs = db.openrecordset("users", dbopentable)
    If Text1 = "" Or Text2 = "" Then
    MsgBox "用户姓名和用户密码不能为空！", vbExclamation, "警告"
    Exit Sub
    End If
    rs.AddNew
       rs.Fields("username") = Text1.Text
       rs.Fields("password") = Text2.Text
    rs.Update
       db.Close
       MsgBox "用户已添加", vbInformation, "信息"
       Text1.Text = ""
       Text2.Text = ""
   
End Sub

Answer 1

Set adocon = New adodb.Connection试试

Answer 2

这样的话在 adocon.open "driver={microsoft access driver(*.mdb);dbq=" & App.Path & "\user.mdb;"  
的.open处显示的是未找到方法或数据成员

Answer 3

工程-〉引用-〉添加对ado库的引用

Answer 4

Dim db As Database  ?
你的工程用了DAO？
那你得dim的时候指定
Dim rs As Recordset 的时候有歧义

Answer 5

adocon.open "driver={microsoft access driver(*.mdb);dbq=" & App.Path & "\user.mdb;"  
的.open处显示的是未找到方法或数据成员Private Sub Command1_Click()
    
    Dim rs As Recordset
    Dim adocon As Connection
    Dim username As String
    Dim password As String
    Set adocon = New ADODB.Connection
    
    adocon.Open "driver={microsoft access driver(*.mdb);dbq=" & App.Path & "\user.mdb;"
    Set rs = New Recordset
    rs.Open "users", adocon, adOpenDynamic, adLockOptimistic
    If Text1 = "" Or Text2 = "" Then
    MsgBox "用户姓名和用户密码不能为空！", vbExclamation, "警告"
    Exit Sub
    End If
    rs.AddNew
       rs.Fields("username") = Text1.Text
       rs.Fields("password") = Text2.Text
    rs.Update
       db.Close
       MsgBox "用户已添加", vbInformation, "信息"
       Text1.Text = ""
       Text2.Text = ""
   
End Sub

Answer 6

我一开始用DAO连的后来因为ACCESS版本问题改为ADO就出错了，DAO正常

Answer 7

那你用ADO控件吧!数据库驱动用JET 4.0