ACCESS中自定义链接后端数据库

来源：计算机等级考试发布时间：2012-08-28 计算机等级考试视频评论

　　代码很简单的，考试大提示: 这里的例子是从文本框里输入新的数据库路径，然后更新链接。参考一下。
　　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来源：考试大

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。