工程链接到access数据库怎么链
[local]1[/local]我的工程链接到access数据库怎么链,,我不知道吧添加的用户名,密码这些信息入库到数据库怎么弄。谢谢
[此贴子已经被作者于2016-5-27 00:22编辑过]
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编辑过]