不能打开VB数据库 提示路径未找到 怎么办

如果你连接的数据库是Access2000以后的版本(Access97除外),你必须要安装VssP5的补丁,但是这个补丁根本就找不到(除非你是微软的正版用户),VB当中还有其他的数据库控件,在部件中可以设置找到,建议你还是用另外一个数据库控件,另外一个肯定没有问题

1一个简单的查询的例子：

'定义一个连接

Dim Conn As ADODBConnection

'定义一个记录集

Dim mrc As ADODBRecordset

'分别实例化

Set Conn = New ADODBConnection

set mrc =New ADODBRecordset

'定义一个连接字符串

dim ConnectString as string

ConnectString="provider=microsoftjetoledb40;data source=" & AppPath & "\data\数据库名mdb;jet oledb:database password=数据库密码"

'打开连接

Conn1Open ConnectString

'定义游标位置

Conn1CursorLocation = adUseClient

'查询记录集(从student表中找出名子为"张三"的记录)

mrcopen "select from student where name='张三'",Conn, adOpenKeyset, adLockOptimistic

'现在你已经得到了你想要查询的记录集了，那就是mrc

'你可以把此记录集与DataGrid榜定，用datagrid显示你查询的记录

set medatagriddatasource=mrc

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

Private Sub Command1_Click()

If Text1Text = text2text Then MsgBox "text1中的值与数据库中的一样"

End Sub

在程序中引用adodc，并且text2textfield设计为“用户名”这样在text2中正确的显示用户名。当在text1中输入同样的一个用户名按命令按钮，不执行此任务。这是怎么回事儿？为什么这两个字符串不相等？怎么改？

解析:

Private Sub Command1_Click()

If trim(cstr(Text1Text)) = trim(cstr(text2text)) Then MsgBox "text1中的值与数据库中的一样"

End Sub

如果你的数据库连接控件（ADODC）或ADODB的Connection对象，设置的是数据库的绝对路径（如E:\myapp\data\db1mdb），那么当数据库的位置发生变动时（比如把程序拿到其他计算机运行时），就会提示找不到数据库了。解决的办法是把绝对路径改为相对路径（相对于本exe文件所在的文件夹，比如data\db1mdb）。

以上就是关于不能打开VB数据库 提示路径未找到 怎么办全部的内容，包括:不能打开VB数据库 提示路径未找到 怎么办、在VB怎么查询数据库中的数据啊！、VB中SQL数据库的查找等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！