打印本文 打印本文  关闭窗口 关闭窗口  
ACCESS中自定义链接后端数据库
作者：佚名  文章来源：不详  点击数  更新时间：2008/10/22 21:44:10  文章录入：杜斌  责任编辑：杜斌
　　代码很简单的，考试大提示: 这里的例子是从文本框里输入新的数据库路径，然后更新链接。参考一下。
　　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来源：考试大
打印本文 打印本文  关闭窗口 关闭窗口