16,720
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
qshurufa 2010-03-17
- 打赏
- 举报
Try
Using conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\wanggang\桌面\新建文件夹 (2)\Access.mdb;")
conn.Open()
Using comm As New OleDb.OleDbCommand
comm.Connection = conn
comm.CommandText = "SELECT LoginName FROM t_Users WHERE LoginName = '" & Me.TextBox1.Text.Trim & "' AND Password = '" & Me.TextBox2.Text & "'"
Dim drInfo As OleDb.OleDbDataReader = comm.ExecuteReader
If drInfo.Read And drInfo.HasRows Then
MsgBox("登录成功")
Else
MsgBox("登录失败")
End If
End Using
End Using
Catch ex As Exception
MsgBox(ex.ToString())
End Try
Using conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\wanggang\桌面\新建文件夹 (2)\Access.mdb;")
conn.Open()
Using comm As New OleDb.OleDbCommand
comm.Connection = conn
comm.CommandText = "SELECT LoginName FROM t_Users WHERE LoginName = '" & Me.TextBox1.Text.Trim & "' AND Password = '" & Me.TextBox2.Text & "'"
Dim drInfo As OleDb.OleDbDataReader = comm.ExecuteReader
If drInfo.Read And drInfo.HasRows Then
MsgBox("登录成功")
Else
MsgBox("登录失败")
End If
End Using
End Using
Catch ex As Exception
MsgBox(ex.ToString())
End Try
lvheye 2010-03-17
- 打赏
- 举报
提个思路给你,如果用Combox,则先把用户名全查询出来添加到combox中,当用户选定了一个用户名后,再用这个用户名查询表记录中的对应密码,如果密码正确就可以登录,否则就不能登录.
Mr.Huang…… 2010-03-17
- 打赏
- 举报
如果将textbox换成combox,怎么改代码？直接跟combox1.text不得行
