标题:[求助]如何用VB语言去连接Access数据库啊?
只看楼主
t3crystal
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2006-7-26
 问题点数:0 回复次数:7 
[求助]如何用VB语言去连接Access数据库啊?

各位好心得人呐,谁能帮帮我?


如何用VB语言去连接Access数据库啊?我的程序就是连不上啊?各位请指教!


谢谢,谢谢了, SOS Help Me !!!!!!

q4dUn5A4.rar (170.53 KB) [求助]如何用VB语言去连接Access数据库啊?


搜索更多相关主题的帖子: VB语言 数据库 Access SOS 
2006-07-28 11:18
llshen
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-7-28
得分:0 
将你的数据库的User数据表更名,例如username,再修改相应代码就可以啦。
2006-07-28 12:30
t3crystal
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2006-7-26
得分:0 

不行啊

2006-07-28 16:21
gjhflq
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2006-7-8
得分:0 
我觉得应该是引用那有问题
2006-07-30 00:12
gjhflq
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2006-7-8
得分:0 
Set conn = New ADODB.Connection
s = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\restaurant.mdb;"
conn.Open s
strsql = "select*from user where username='" & strusername & "'and Password='" & strpassword & "'"
Set rslogin = conn.OpenSchema(adSchemaTables)
If rslogin.EOF Or rslogin.BOF Then
MsgBox "用户名或口令错误,请检查!"
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
txtPassword.SetFocus我改了下
2006-07-30 00:37
t3crystal
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2006-7-26
得分:0 

谢谢您,万分感谢

2006-07-31 10:15
t3crystal
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2006-7-26
得分:0 
您帮我编的这段程序有问题,因为我输入错误的用户名和密码也能进入,是不是没有调用数据库阿?
2006-07-31 11:02
gjhflq
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2006-7-8
得分:0 
恩.是我只是通过了程序.没有想
2006-08-02 00:33



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-80709-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.656079 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved