kalau sudah koneksi odbc link, sebenarnya anda tinggal me-relink-nya kembali.
ini saya kopikan proses relink odbc ke sql server, adanya di suatu
form dengan text box bernama server, database, user, password.
silakan ...
Private Sub cmdUpdate_Click()
Dim td As DAO.TableDef
Dim db As DAO.Database
On Error GoTo errHandle
Set td = New DAO.TableDef
Set db = CurrentDb
DoCmd.RunCommand acCmdSaveRecord
for each td in db.TableDefs
if LEFT(td.name,4) = "dbo_" then
td.Connect = "ODBC;Driver=SQL Server;Server=" & Me.Server
& ";Database=" & Me.Database _
& ";Uid=" & Me.User & ";Pwd=" & Me.Password
td.RefreshLink
end if
next td
MsgBox "All table has reconected to current server.", vbInformation
Set td = Nothing
Set db = Nothing
Exit Sub
errHandle:
MsgBox Err.Description & vbCrLf & "Reconnection failed to server !!!!"
Set td = Nothing
Set db = Nothing
End Sub
2009/3/5 Abdurrahman Suryadi <[email protected]>:
> table-table yang ada sudah ngelink ke ODBC sourcenya GDB
>
> Program yang di pakai di client : Microsoft Access MDB
> OS client : Windows XP SP2
> Nama Server : GDCSRV
> OS Server : windows Server 2000
> DBMS : SQL Server 2000
> Nama Data Source di ODBC : GDB
> Nama Database : DataCenter
> User : Ahmad
> Password : santri
>
> Object di Form:
> 2 text box (txtUser dan txtPassword)
> 1 Commdand Button (btnOK)
>
> Sintax di on Click btnOK:
>
> Private Sub btnOK_Click()
> pServer = "GDCSRV"
> pUser = Me.txtUser
> pPwd = Me.txtPassword
> pDB = "DataCenter"
>
> bc = "PROVIDER=SQLOLEDB.1;" & _
> "PERSIST SECURITY INFO=TRUE;" & _
> "DATA SOURCE=" & pServer & ";" & _
> "USER ID=" & pUser & ";" & _
> "PASSWORD=" & Nz(pPwd, "") & ";" & _
> "INITIAL CATALOG=" & pDB
> CurrentProject.OpenConnection (bc)
> End Sub
>
> ketika klik btnOK, muncul peringatan: "the expression you entered refered to
> an object that is closed or doesn't exist"
>
> Tolong berikan pencerahan
> Terima kasih banyak
>
>
--
Aksan Kurdin
