VB6.0连接access数据库 提示错误

2025-04-04 19:48:27
推荐回答(1个)
回答1:

唉,新手应该先看看VB的书和SQL的书先,数据库本地的一般是.MDB,这才是ACCESS创建的,不知道你的.accdb是什么软件创建的...
添加接ADO控件,添加方法请自己看书,或百度吧,这都是基础...

下面给你一个示例吧:
'连接代码
Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\XXX.mdb" '连接本地数据库 xxx.mdb是Access创建的数据库
Adodc1.RecordSource = "select * from b where name='" & text1 &"' and pass='" & text2 & "'" '打开表b( 记录了用户名和密码),比较用户名和密码
Adodc1.Refresh
if Adodc1.recordcount=0 then '得到记录为0,即不存在
msgbox "用户不存在或密码错误",,"错误"
else
......'正常登陆处理...
end if