修改为以下代码:
<% '打开数据库
constr="Driver={Microsoft Access Driver (mdb)};DBQ="&ServerMapPath("/database/123mdb")
Set conn = ServerCreateObject("ADODBConnection") '这一行
connOpen constr
%>
Dim constr As String = "provider=MicrosoftJetOledb40;data source="+ ServerMapPath("promdb")+" 服务端形式
Dim constr As String = "provider=MicrosoftJetOledb40;data source="+ Apppath("promdb")+" 程序目录本地端形式
不知道你是啥开发语言
如果你使用了数据连接控件,并且在该控件的属性窗口设定了数据连接的路径,那么,你在移动程序或工程位置后,就会出现数据库路径错误。
正确的做法是在代码窗口设定数据连接控件的相对路径。
例如Adodc1控件在 Private Sub Form_Load() 中加入如下代码:
Adodc1ConnectionString = "Provider = MicrosoftJetOLEDB40;Data Source = " & AppPath & "\数据库mdb"
如果你的窗体比较多,并且有比较多的数据连接控件,建议你添加一个模块,在模块中设置数据连接控件的连接路径比较合理。
查询视图:
1,设计视图;
2,数据表视图;
3,SQL视图;
4,数据透视表视图;
5,数据透视图视图
数据来源;
1,表;
2,查询。
Set Connvk= ServerCreateObject("ADODBConnection")
vk_mdb="/Data_vikecn/#Vikecn_supermdb"
connstr="Provider=MicrosoftJetOLEDB40;Data Source=" & ServerMapPath(vk_mdb)
ConnvkOpen connstr
修改connectionstring为相对路径或者拼接字符串
'Provider=MicrosoftJetOLEDB40;Data Source=/demomdb;User Id=admin;Password=;'
'Provider=MicrosoftJetOLEDB40;Data Source='+extractfilepath(paramstr(0))+'demomdb;User Id=admin;Password=;'
以上就是关于access数据库路径更改错误 急全部的内容,包括:access数据库路径更改错误 急、关于access数据库在项目中路径问题、VB修改连接Access数据库路径问题等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)