Mantap kodenya dari Mas Syarief, terima kasih yah.
Dear friends, sekedar memperkaya pengetahuan yah. Kode dari Mas Syarief memanfaatkan perintah khusus untuk Jet Database via ActiveX DAO. ALternatif lainnya, kita bisa juga menggunakan perintah bawaan Access yang sangat simple, sederhana namun bisa untuk berbagai type database, yakni:
DoCmd.DeleteObject acTable, "Nama Table"
DoCmd.TransferDatabase acLink, "Microsoft Access", Me!Foldernya & "\" & "Nama File Access", acTable, "Nama Table", "Nama Table"
Cukup dua line untuk perintah link table. Bagaimana bila banyak table yang hendak dilink? Maka semua table dibuat dulu daftar namanya dalam satu table, ditentukan saja foldernya melalui tombol Browse, kemudian gunakan Loop, misal:
'Code start here...
'BTR, Ba'da rapat & arisan RT bulanan :)
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("dbTableName", dbReadOnly)
rs.MoveFirst
Do While Not rs.EOF
Dir Me!txtFolder & "\" & rs!MDB_Name
DoCmd.DeleteObject acTable, rs!Table_Name
DoCmd.TransferDatabase acLink, "Microsoft Access", Me!txtFolder & "\" & rs!MDB_Name, acTable, rs!Table_Name, rs!Table_Name
rs.MoveNext
Loop
rs.Close
db.Close
MsgBox "Proses link table telah berhasil."
Bagaimana untuk SQL Server, MySQL, dll? String pada database type yg kita ubah, diantaranya yg terdaftar:
Microsoft Access (default)
Jet 2.x
Jet 3.x
dBase III
dBase IV
dBase 5.0
Paradox 3.x
Paradox 4.x
Paradox 5.x
Paradox 7.x
ODBC Database
WSS
Nah, SQL Server, MySQL, Oracle, biasanya ada di ODBC Database, tinggal ditest dan uji coba saja. PC saya tidak ada MySQL nya.
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/
--- In belajar-access@yahoogroups.com, Andi Ali <aliandi05@...> wrote:
>
> Menyambung pertanyaan dari saudara Asih.. bagaimana kalo database yang di link adalah database MySql. kodenya gimana ya...
>
>
> ________________________________
> From: Nyong Arif <nyong_arif@...>
> To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
> Sent: Saturday, April 7, 2012 7:46 PM
> Subject: Bls: [belajar-access] Cara Membuat Link Refresh [1 Attachment]
>
>
> Â
> [Attachment(s) from Nyong Arif included below]
> Dear Asih Welas..yang pake Ros.
>
> Membuat Link Database dengan menggunakan Link directory Jika secara manual mungkin bisa menggunakan menu menu yang ada. Disamping memanfaatkan menu menu yang ada, Agar database bisa di link sesuai dengan keinginan pembuat mungkin sedikit belajar menggunakan VBA Script.
>
> Berikut dkirimkan contoh menentukan link lokasi file dan merekoneksi file-file yang diinginkan. semoga bisa membantu.
>
> [Code VBA nya ada di file Koperasi_01.mdb]
>
>
>
> Terima Kasih
>
> Salam,
> Syarief Nyong
>
>
>
> ________________________________
> Dari: Asih Roswelas <roswelasasih@...>
> Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
> Dikirim: Sabtu, 7 April 2012 15:37
> Judul: [belajar-access] Cara Membuat Link Refresh [1 Attachment]
>
>
> Â
> Dear Acces Seniors,
> Â
> Saya pemula dan baru belajar access. Saya membuat beberapa database yg isinya saling berkaitan. Saya akan coba bikin program dari 3 database tsb. Bagaimana cara men link kan ke-3 database tsb dengan menggunakan link direktori. Maaf kalo ada istilah2 yg tdk sesuai... (file2 terlampir). Terima kasih banyak sebelumnya.
> Â
> Â
>
Tidak ada komentar:
Posting Komentar