俄罗斯歌曲小路 伴奏:关于VB使用DATA连接access数据库验证用户和密码的问题

来源：百度文库 编辑：神马品牌网 时间：2024/04/28 13:56:30
假设数据库access.mdb
其中有表user,表中包含username,password等键.

现在要设置一个登陆程序,如何判断程序合法性?
请教

Private Sub Form_Load()
Data1.DatabaseName = "d:\vbwork\access.mdb"
Data1.RecordSource = "user"
Data1.Refresh
End Sub

Private Sub Command1_Click()
Data1.Recordset.FindFirst "username =" & "'" & Text1.Text & "'"
If Data1.Recordset.NoMatch = True Then
MsgBox "用户名或密码错误,请重新输入", , "错误"
Else
If Data1.Recordset("password") <> " & Text1.Text & " Then
MsgBox "用户名或密码错误,请重新输入", , "错误" '这句要怎么写才对?

不太明白.
不少end if
下面的我没有写

就是验证密码的那一段,不能验证.
验证用户民的可以.

我不明白的是:findfirst后,找到的行是当前行.我如果想使用当前行中其属性列的元素,我应该用什么指令?我就是问这个.

含苞
你给的代码
Dim conn As New ado.connection
这一句编译有错误,我不太明白ado连接.

能给我讲一下吗?
我加分

最后少了个End IF

其实你就是验证用户名密码 ，用这个方法验证的时候快，但内存消耗挺大的，如果用户数量很多的话，就不可想象了。给你个例子：
Dim strConn
Private Sub Form_Load()
strConn="provider=microsoft.jet.oledb.4.0;data source=d:\vbwork\access.mdb"
End Sub
Private Sub Command1_Click()
sN=text1.text:sp=text2.text
if (sn="") or (sp="") then exit sub
sql="select * from access where username='" &sn &"' and password='" &sp &"'"
dim conn as new ado.connection
conn.ConnectionString=strConn
set rs=conn.open(sql)
if rs.eof then
msgbox "用户名或密码错误"
else
if not rs("password")=sp then
msgbox "用户名或密码错误"
else
'密码正确的代码
end if
end if
End Sub

少括号吧
msgbox（...）

最后少了个End IF

关于VB使用DATA连接access数据库验证用户和密码的问题 关于VB使用DATA连接access数据库验证用户和密码的问题 vb中怎么和Access数据连接 为什么使用VB中的数据环境与ACCESS连接时，更新不了是怎么一回事？ vb与access连接：数据添加不进去，为什么？ ★★★vb的data控件连接access数据库的搜索问题★★★ vb ado连接access VB连接Access数据库 VB中使用DATA控件为什么与数据库建立连接后还是出错，连接不上 关于ACCESS数据连接的问题!(asp相关)