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