UC知道怎么用VB和ACCESS做个登陆？
来源：百度知道 编辑：UC知道 时间：2024/05/10 17:56:43
我想做个登录系统，用VB和ACCESS。
Public gconn As Connection
Private Sub Command1_Click()
Dim sqldl As String
Dim sf As String
Set gconn = New Connection
gconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & "Data Source=C:\Program Files\vb\vb\a.mdb"
gconn.Open
sqldl = "select * from 系统用户 where 用户名='" & t1.Text & "'"
rs.Open sqldl, gconn, adOpenKeyset, adLockOptimistic
If rs("密码") <> t2.Text Then
a = MsgBox("密码错了")
Else
Print "请做下一步"
End If
End Sub
这是一个朋友大致做的 可是不对。所以偶想求教下大家，帮忙改下！
我是个新手希望大家帮忙写的清楚点。谢谢了！还有就是原理有点不太懂！希望高手给讲下！
偶的QQ 327557687
偶建个VB群 27394460 希望大家都来讨论。谢谢！
首先谢谢各位地帮忙！有问题问下 hotyxm ！
“rs.Open "update admin set admin_flag = '1' where admin_name = '" + Trim(user_name.Text) + "'" ”
Public gconn As Connection
Private Sub Command1_Click()
Dim sqldl As String
Dim sf As String
Set gconn = New Connection
gconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & "Data Source=C:\Program Files\vb\vb\a.mdb"
gconn.Open
sqldl = "select * from 系统用户 where 用户名='" & t1.Text & "'"
rs.Open sqldl, gconn, adOpenKeyset, adLockOptimistic
If rs("密码") <> t2.Text Then
a = MsgBox("密码错了")
Else
Print "请做下一步"
End If
End Sub
这是一个朋友大致做的 可是不对。所以偶想求教下大家，帮忙改下！
我是个新手希望大家帮忙写的清楚点。谢谢了！还有就是原理有点不太懂！希望高手给讲下！
偶的QQ 327557687
偶建个VB群 27394460 希望大家都来讨论。谢谢！
首先谢谢各位地帮忙！有问题问下 hotyxm ！
“rs.Open "update admin set admin_flag = '1' where admin_name = '" + Trim(user_name.Text) + "'" ”
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
If user_name.Text = "" Or user_pwd.Text = "" Then
MsgBox "用户名，密码不能为空", vbDefaultButton1, "警告"
user_name.SetFocus
End If
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Customer.mdb;Persist Security Info=False"
rs.Open "select * from admin where (admin_name = '" + Trim(user_name.Text) + "')and (admin_pwd = '" + Trim(user_pwd.Text) + "')", conn, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
rs.Close
MsgBox "登陆成功"
rs.Open "update admin set admin_flag = '1' where admin_name = '" + Trim(user_name.Text) + "'"
menu.Show
Unload Me
Else
MsgBox "请检查用户名，密码是否有错误，请再次输入", vb