自定义链接后端数据库

时　间:2008-04-22 09:00:49
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要:自定义链接后端数据库
正　文:

代码很简单的，我这里的例子是从文本框里输入新的数据库路径，然后更新链接。你参考一下，再改。
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


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店