自定义链接后端数据库
代码很简单的,我这里的例子是从文本框里输入新的数据库路径,然后更新链接。你参考一下,再改。
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim cat As ADOX.Catalog
Dim tdf As ADOX.Table
Me.txtDBnewNAME.SetFocus
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
Set tdf = cat.Tables("mytable")
tdf.Properties("jet oledb:link datasource") = Me.txtDBnewNAME.Text
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
本文作者:相关阅读:
PHP 调试工具Debug Tools
Linux yum安装过程图文详解
js prototype 格式化数字 By shawl.qiu
Javascript 的addEventListener()及attachEvent()区别分析
php学习笔记之 函数声明(二)
通过Grub启动硬盘上的Linux ISO安装文件
ASP.NET获取远程网页下载到本地文件
DEDE二级域名(多站点)绑定详解
主流浏览器对于CSS3与HTML5的支持
在多个网页之间迅速实现前进或后退移动的简便方法
JavaScript打印页面去除页眉页脚
mysql 前几条记录语句之(limit)
jquery1.4后 jqDrag 拖动 不可用
超详细的sql2005图解安装全过程