UC知道VB 登陆窗体问题
来源：百度知道 编辑：UC知道 时间：2024/06/24 09:49:49
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=药品进销存管理信息.mdb;Jet OLEDB:Database Password="
sql = "select * from 系统管理 where 用户名='" & txtuser.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户", vbExclamation, "系统信息"
这两名话具体是什么意思？特别是rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic和conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security 请高手指点一下。谢谢
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=药品进销存管理信息.mdb;Jet OLEDB:Database Password="
sql = "select * from 系统管理 where 用户名='" & txtuser.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户", vbExclamation, "系统信息"
这两名话具体是什么意思？特别是rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic和conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security 请高手指点一下。谢谢
按理讲假如只有这些代码的话，你是一定会报错的rs_login是一个recordset集合控件，你的代码中没有这个的声明定义（当然也有可能在你没给出的部分中，这个我就不清楚有没有了，要你自己找找看,应该是这个样子Set Rs = New ADODB.Recordset）
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
解释：
使用rs_login集合，打开 Sql 字符串定义的命令， 对应conn集合所代表的数据库，以adOpenKeySet键类，adLockPessimistic读写权限读取数据库数据
至于上面那个conn.Open "..."这部分是数据库链接字符串，其中包含，链接引用提供商，安全性，源地址，打开密码等
我下面把顺序从新给你列一遍
打开数据库并读取其中一个表的方法
1. 定义ADODB.Connection（Set ...）
2. 为Connection字符串赋值
3. 打开Connection（Connection.Open）
4. 定义ADODB.RecordSet（Set ...）
5. 为Sql命令字符串赋值
6. 打开RecordSet（RecordSet.Open）
关闭的时候
1. 关闭RecordSet（RecordSet.Close）
2. 关闭Connection（Connection.Close）
3. 释放RecordSet（RecordSet = Nothing）
4. 释放Connection（Connection = Nothing）