vb如何读取Access2003数据库
用VB6，做了一个登录页面，如何来进行用户验证！用户名为“usetext”，密码为"pswtext"，数据库放在E：\vb6\denglu.mdb
本人在菜鸟，在没教材的情况下自学，望高物指点，越细越好！
先添加个adodc控件。adodc1.ConnectionString 连接你的数据库。
adodc1.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb6\denglu.mdb"
;Persist Security Info=False
Adodc1.RecordSource查询
Adodc1.RecordSource = "select * from 表名 where 字段名='usertext'"
Adodc1.Refresh
用x变量保存查询到的用户名
x = Adodc1.Recordset.Fields(0)
然后就判断text的值是否等于x;(text是你输入的用户名吧)
密码也同上！
这个方法可是最简单的哦~~追问
adodc1.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb6\denglu.mdb"
;Persist Security Info=False
Adodc1.RecordSource查询
Adodc1.RecordSource = "select * from 表名 where 字段名='usertext'"
Adodc1.Refresh
用x变量保存查询到的用户名
x = Adodc1.Recordset.Fields(0)
然后就判断text的值是否等于x;(text是你输入的用户名吧)
密码也同上！
这个方法可是最简单的哦~~追问
这短代码写在哪里，那个X要定义数据类型吗？
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
是这是放在这里面，我直接复制进出提示不可用。“;Persist Security Info=False”提示出错！
直接复制到formload里就可以了啊，x尽量定义在通用里吧……
追问“;Persist Security Info=False”
提示语法错误
“;Persist Security Info=False”你以为这是单独的一句呀？想想也知道这单独的一句怎能行呀？而且vb里那个语句是以“；号”开头的呀……那句是发到adodc1.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb6\denglu.mdb"后面的。基本的语法能够辨别的吧……
温馨提示：内容为网友见解，仅供参考
无其他回答
相似回答
