工程链接到access数据库怎么链 - 编程论坛

#2

wps20162016-05-26 19:18

只有本站会员才能查看附件，请登录

#3

wps20162016-05-26 19:20

在线等，谢谢高手指点

#4

wps20162016-05-26 19:30

请版主大家帮忙，谢谢

#5

chen35232016-05-26 20:29

添加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

#6

xiangyue05102016-05-26 20:36

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

#7

ZHRXJR2016-05-27 00:21

以下是引用wps2016在2016-5-26 19:17:58的发言：
我的工程链接到access数据库怎么链，，我不知道吧添加的用户名，密码这些信息入库到数据库怎么弄。谢谢

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

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

#8

wps20162016-05-27 08:41

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

#9

wps20162016-05-27 08:42

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

#10

ZHRXJR2016-05-27 15: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编辑过]

#11

adffdda2016-05-28 13:11

学习了！！

#12

adffdda2016-05-28 13:13

学习了！！