UC知道急!!VB登录问题
来源：百度知道 编辑：UC知道 时间：2024/05/23 20:53:55
工程下"引用"-"microsoft activeX data objects 2.0 library;
microsoft data environment instance 1.0"
工程-"添加data environment"添加一个数据环境设计器.命名为"dataenv"
自动添加的设计器命名为:con
对它进行设置,并测试成功
数据环境的初始时间中的代码:
'根据目录所在的位置,改变ADO所使用的连接字符串
dim strconn as string
strconn="provider=microsoft.jet.oledb.4.0;password=;data source="
'使用相对路径
strconn=strconn&app.path & "\student.mdb" & ";persist security info=true"
con.connetionstring=strconn
end sub
在con里面添加一个sql查询名为sqlseek
登录窗体代码为:
private sub cmdok_click()
'取得用户输入的用户名和密码
dim user as string,pwd as string
user=trim(txtuser)
pwd=trim(txtpwd)
dim r as new adodb.recordset
set r=dataenv.sqlseek
dim strsql as string
strsql="select * from student where name='"& user &"'and pwd='
microsoft data environment instance 1.0"
工程-"添加data environment"添加一个数据环境设计器.命名为"dataenv"
自动添加的设计器命名为:con
对它进行设置,并测试成功
数据环境的初始时间中的代码:
'根据目录所在的位置,改变ADO所使用的连接字符串
dim strconn as string
strconn="provider=microsoft.jet.oledb.4.0;password=;data source="
'使用相对路径
strconn=strconn&app.path & "\student.mdb" & ";persist security info=true"
con.connetionstring=strconn
end sub
在con里面添加一个sql查询名为sqlseek
登录窗体代码为:
private sub cmdok_click()
'取得用户输入的用户名和密码
dim user as string,pwd as string
user=trim(txtuser)
pwd=trim(txtpwd)
dim r as new adodb.recordset
set r=dataenv.sqlseek
dim strsql as string
strsql="select * from student where name='"& user &"'and pwd='
on error resume next
是如果发生错误，退出该过程
打开记录集对象r必须需要数据库链接对象con，以及打开记录集对象的方式：
r.open strsql ,con,2,2
r.open strsql,con,3,1
后面的参数需要的
你的编码有问题,应该先打开数据库,查询过后才关闭,原因是你没有打开数据库.