From: "Ana Abdullah" <abdullahana@ymail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, September 11, 2009 2:24 PM
Subject: RE: [belajar-access] Tidak bisa menghapus record
Salam kenal semuanya.
sekalian mau coba jawab ya ...
saya copas dari arsip lama ini.
Sebagian besar masalah link table biasanya karena
- hubungan antara komputer dengan server terputus , jadi lakukan ping
misalnya: ping serverku , bila hasilnya bagus berarti sudah ada koneksi
antara komputer
dengan server. silahkan ke bagian ke dua
- lakukan refreshing link table. time-out artinya waktu yang diperlukan
untuk meretrieve data
ke server telah melewati batas yang diijinkan.
biasanya saya gunakan fungsi refreshing sbb:
Function RefreshLink()
sServerName="NAMASERVERMU" --> Namakomputer\SQLEXPRESS
sDatabase ="NAMADATABASEMU" --> misalnya MAYOR
sUserName ="USERLOGIN KE SQLSERVERMU" --> misalnya sa
sPassword ="USERPASSWORD KE SQLSERVERMU" --> misalnya 12999
Dim datDB As DAO.Database
Dim datRS As DAO.Recordset
Set datDB = CurrentDb
Set datRS = datDB.OpenRecordset("Select * From MsysObjects Where Connect is
not null")
If Not datRS.EOF Then
datRS.MoveLast
datRS.MoveFirst
End If
For datNo = 1 To datRS.RecordCount
'Debug.Print datRS!Name
datDB.TableDefs(datRS!Name).Connect = "ODBC;Driver={SQL Server};Server=" &
sServerName & ";Database=" & sDatabaseName & "; Uid=" & sUserName & ";Pwd="
& sPassword;"
datDB.TableDefs(datRS!Name).RefreshLink
datRS.MoveNext
Next
Set datRS = Nothing
Set datDB = Nothing
End Function
- Bila dengan kedua cara di atas belum bisa juga, coba lakukan maintenance
servernya.
a. lakukanlah shrink database.
b. lakukanlah shrink file databasenya.
- bila masih belum bisa juga, silahkan bertanya kembali
dengan mencantumkan errornya terjadi.
--- On Fri, 9/11/09, HENDRA <