[local]1[/local]

我的工程链接到access数据库怎么链，，我不知道吧添加的用户名，密码这些信息入库到数据库怎么弄。谢谢

在线等，谢谢高手指点

请版主大家帮忙，谢谢

添加Adodc控件。
Private Sub Form_Activate()
  Dim s As String
  s = App.Path & "\db_EMS.mdb"
   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + s + Chr(34) & ";Persist Security Info=False" '打开数据库
  = adCmdTable
 Adodc1.RecordSource = "登录表"
 Adodc1.Refresh
 Text1.SetFocus
End Sub

这个是数据库入门的东西。真的无语

VB工程连接Access数据库前提条件你必须有Access数据库，并且在数据库中有数据表，
比如创建一个ABCD.mdb的Access数据库，在这个数据库中创建一个《登录表》
这样才能连接数据库与数据表。
连接方法有ADO对象连接，也可以使用ADO控件（Adodc）连接，不是一二句能够说清楚的。

[此贴子已经被作者于2016-5-27 00:22编辑过]

谢谢大家！！！不懂再请教。

可以将附件下载改好并上传吗，谢谢，我是菜鸟？

这个是数据库文件，不能上传ABCDE.mdb数据库文件，只好打包了。

Private Sub Command1_Click()
If Text1.Text = "" Then
    MsgBox "没有输入用户名，请输入！"
    Exit Sub
End If
If Text2.Text = "" Then
    MsgBox "没有输入密码，请输入！"
    Exit Sub
End If
Adodc1.RecordSource = "Select * From 登录表 Where 用户名='" & Text1.Text & "'"
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
    If Adodc1.Recordset.Fields("密码") = Text2.Text Then
        MsgBox "登录成功！"
        '这里填写登录成功后的代码
    Else
        MsgBox "密码错误！"
    End If
Else
MsgBox "用户名错误！"
End If
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ABCDE.mdb;Persist Security Info=False"
End Sub

界面图，够全面了吧。

[此贴子已经被作者于2016-5-27 15:26编辑过]