高校问答陈柏霖宋智孝在一起没?:急救~！VB连ACCESS 急需帮助！谢谢！
来源：百度文库 编辑：高校问答 时间：2024/04/29 06:27:06
作了一个窗体叫'用户登录'，上面有'确定'，'取消'，和两个'text'框一个写用户名，一个写密码，做好数据库 叫 图书管理.mdb 里面有个表叫'系统用户' ，里面有'用户名'，和'密码'
然后再窗体上加了 data1 控件 connect Access databasename 也连了数据库 text1 连了data1 的 用户名 text2连了密码
Private Sub 确定_Click()
里面怎么写也写不对~请高手指点一下怎么连阿~谢谢了，我刚学！大概就是如果用户名密码正确就进入 主窗体，错误就显示错误 直接退出就行了！
End Sub
好多朋友说应该用ado ~我不会~请知道的朋友写清步骤，我会酌情补加积分的！谢谢了！！！
我用的是 vb 6.0
然后再窗体上加了 data1 控件 connect Access databasename 也连了数据库 text1 连了data1 的 用户名 text2连了密码
Private Sub 确定_Click()
里面怎么写也写不对~请高手指点一下怎么连阿~谢谢了，我刚学！大概就是如果用户名密码正确就进入 主窗体，错误就显示错误 直接退出就行了！
End Sub
好多朋友说应该用ado ~我不会~请知道的朋友写清步骤，我会酌情补加积分的！谢谢了！！！
我用的是 vb 6.0
还是用ADO比较简单，也更灵活，以下给你些示例吧
Public Conn As New ADODB.Connection '先声明一个conn对象
'然后通过以下方法打开数据库
If Conn.State = 0 Then
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "[MDB数据库路径];Persist Security Info=False"
Conn.Open
End If
Public Rs as New ADODB.Recordset '再声明一个recordset对象
set Rs=Conn.execute("select 密码 from 系统用户 where 用户名='"+text1.text+"'")
if rs.eof then
'无此记录，表示无此用户名
else
if rs("密码")=text2.text then
'密码正确
'执行登录代码
else
'密码不正确
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
兄弟 你啥也不会 光知道这些有用?
踏实点吧
不要急功近利
看你是用什么连接的数据库,一般用ado是很容易的. 网上这种例子很多.
peter是好人