菜鸟：大哥近来帮忙；很简单的数据库连接！

Question

我的工程中定义了users类模块，初始化
Public Sub Init()
 Name = ""
 Password = ""
 
End SubPublic Sub insert()
   CONN
   Dim strsql As String
    strsql = "insert to users(username,password) values(username,userpassword) "
  cnn.Execute (strsql)
    cnn.Close
    
  
End Sub
以上是类模块的内容；
我的窗体上只有两个文本筐和一个按纽；实现添加；txtname,txtpassword
private sub cmd_add_click()
  user.name=trim(txtname.text)
  user.password=trim(txtpassword.txt)
 users.insert
end sub数据库连接是： Dim cnn As New ADODB.Connection
      cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\exam.mdb;Persist Security Info=False"
      cnn.Open
      If cnn.State = adStateOpen Then
        MsgBox "连接成功！"
        Else: MsgBox "连接失败"
        End If
End Function
添加时出错，说找不到对象“要求对象”
能告诉我吗；我急啊

Answer 1

工程-〉引用-〉ActiveX Data Object 2.x

Answer 2

大哥；我引用了；没有用啊user.name=trim(txtname.text) 提示；没有找到成员方法：user.name没有用啊 

Answer 3

user.name,这是一个自定义类成员。

Answer 4

user.name=trim(txtname.text)你的user实例化了吗？ dim user as new 你的类名

Answer 5

'窗体
private sub cmd_add_click()  dim user as new users
  user.name=trim(txtname.text)
  user.password=trim(txtpassword.txt)
  if user.ConnDB then
      user.insert
      user.DisConnDB
  end if  set user = nothing
end sub'类模块
public Name  as string
public Password as string
Dim cnn as ADODB.ConnectionPublic Sub Init() Name = ""
 Password = ""End SubPublic Sub insert()
   
   Dim strsql As String
    strsql = "insert to users(username,password) values(username,userpassword) "
    cnn.Execute (strsql)
    cnn.Closeend subpublic function ConnDB()    set cnn = New ADODB.Connection 
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\exam.mdb;Persist Security Info=False"
    cnn.Open
    If cnn.State = adStateOpen Then
        ConnDB = true
        MsgBox "连接成功！"
    Else
        ConnDB = false
        MsgBox "连接失败"
    End If
End Functionpublic function DisConnDB()
   cnn.close
   set cnn =  nothing
end function

Answer 6

噢，没看清，不好意思！
Name和Password是Users类的成员来的，你定义了没有啊？

Answer 7

szyhy810518的不就是你想要的吗？把user.password=trim(txtpassword.txt)改成
user.password=trim(txtpassword.Text)就行了。

Answer 8

Private Sub Command1_Click()
        Dim StrSql As String
        M_Cnn.CursorLocation = adUseClient
        CreateMdbConn M_cnn,"C:\DEMO.MDB","sa","123"
        StrSql = "select * FROM authors"
        M_Rs.CursorLocation = adUseClient
        M_Rs.Open StrSql, M_Cnn, adOpenKeyset, adLockBatchOptimistic
        Set DataGrid1.DataSource = M_Rs
        DataGrid1.Refresh
End Sub