Wah langkah2 ya lengkap n mudah d mengerti nech mas Jadi nambah ilmu sy
Mas edi Kl cara praktis untuk koneksi sql server ke ms access Gmn ya. thank Afrizal ________________________________ From: [email protected] [mailto:[email protected]] On Behalf Of MBA Sent: 17 Juli 2010 12:19 To: [email protected] Subject: RE: [belajar-access] Koneksi ODBC dari MS Access ke MS Access Lain Asumsi sbb: Aplikasi_yono.mdb -- Front End Database_yono.mdb -- Back End - tblSatu - tblDua - tblTiga - dst - dst - ... - tblSeratus Jadi anggap saja back end tsb mengandung 100 tabel. Cara praktis yang mudah dilakukan adalah sbb. 1. Gunakan Get External File - Link dari file Aplikasi_yono.mdb 2. Buat Link Table untuk semua tabel di database_yono.mdb. 3. Buka immediate window, kemudian ketikkan : ?currentdb.TableDefs("tblSatu").Connect ;DATABASE=D:\Data\BelajarAccess\yokonan\database_yono.mdb 4. Perhatikan string koneksi tsb. Kita akan pecah menjadi beberapa bagian. ";DATABASE=" & LokasiFolderBackEnd & "\database_yono.mdb" 5. String tsb di rekonstruksi lagi sbb. strKoneksi=";DATABASE=" & LokasiFolderBackEnd & "\database_yono.mdb" 6. Naah di sini baru ditentukan apakah database_yono akan selalu satu folder dengan aplikasinya atau ada di sub folder tertentu a. Aplikasi_yono.mdb selalu satu folder dengan Database_yono.mdb Gunakan : CurrentProject.Path CurrentProject.Path akan mengembalikan Folder dimana aplikasi_yono.mdb berada. Keuntungannya adalah kita bisa memindahkan aplikasi dan folder di manapun yang kita mau. Di simpan di flash disk jalan. Dicopy ke folder manapun aplikasi_yono.mdb dan database_yono.mdb akan selalu bisa berhubungan. Langkahnya sbb. LokasiFolderBackEnd=CurrentProject.Path strKoneksi=";DATABASE=" & LokasiFolderBackEnd & "\database_yono.mdb" b.database_yono.mdb selalu berada di sub folder dari aplikasi_yono.mdb. Misalnya. Aplikasi_yono.mdb terletak di C:/Aplikasi, databasenya terletak di C:/Aplikasi/Database. Gunakan : CurrentPRoject.Path digabung dengan nama Subfoldernya. Subfolder="Database" LokasiFolderBackEnd=CurrentProject.Path & "\" & NamaSubFolder strKoneksi=";DATABASE=" & LokasiFolderBackEnd & "\database_yono.mdb" 7. Untuk membuat selalu terkoneksi, connection string dari tabel link tersebut haruslah dibuat dinamis, artinya selalu diperbaharui setiap kali aplikasi di buka. Anda bisa menggunakan macro bernama Autoexec atau meletakkan command button misalnya refreshlink. Cara melakukannya begini. a. Buat query. Namanya misalnya: qry_DaftarTabel. Isi dengan SQL String sbb: Select * from msysobjects where database is not null b. Anda bisa gunakan data ini untuk merefresh tabel link. Buat sebuah Procedure / Function di Module. Parameter dari prosedur ini adalah NamaTabel dan string Koneksi. Contohnya sbb: Public Sub Relink_Table(byval NamaTabel as string, _ byval strKoneksi as string) With Currentdb strKoneksi_asal=.tabledefs(NamaTabel).connect If strKoneksi_asal<> strKoneksi then .tabledefs(NamaTabel).connect=strKoneksi .tabledefs(NamaTabel).refreshLInk End if End with End sub c. Procedure di bagian b, digunakan untuk merefresh hanya satu tabel dengan string koneksi yang tersedia. Anda harus mengulangi untuk setiap tabel yang terdaftar di query qry_DaftarTabel. Buat satu function sbb. Kenapa Function, karena Procedure tdk muncul di list function dalam makro. Function Jalankan_Relink() Dim cnn As ADODB.Connection Set cnn = CurrentProject.Connection Dim rst As New ADODB.Recordset Dim subfolder As String, LokasiFolderBackEnd As String, strKoneksi As String, strKoneksi_asal As String 'jika database_yono.mdb terletak di subfolder \Database 'subfolder = "Database" 'LokasiFolderBackEnd = CurrentProject.Path & "\" & NamaSubFolder 'jika database_yono.mdb terletak di folder yang sama dengan 'aplikasi_yono.mdb LokasiFolderBackEnd = CurrentProject.Path strKoneksi = ";DATABASE=" & LokasiFolderBackEnd & "\database_yono.mdb" With rst .Open "qry_DaftarTabel", cnn, adOpenKeyset, adLockPessimistic, adCmdTable If Not (.EOF Or .BOF) Then .MoveLast .MoveFirst For i = 1 To .RecordCount Relink_Table !Name, strKoneksi .MoveNext Next End If End With rst.Close Set rst = Nothing cnn.Close Set cnn = Nothing End Function 8. Anda tinggal menaruh function ini di makro autoexec. Pilih RunCode; kemudian tuliskan : =Jalankan_Relink() Selesai. Salam Hangat dan Jabat Erat Murid Belajar Access EdyWiyono ________________________________________ From: [email protected] <mailto:belajar-access%40yahoogroups.com> [mailto:[email protected] <mailto:belajar-access%40yahoogroups.com> ] On Behalf Of yokananwahyono Sent: Friday, July 16, 2010 07:32 To: [email protected] <mailto:belajar-access%40yahoogroups.com> Subject: [belajar-access] Koneksi ODBC dari MS Access ke MS Access Lain Dear Teman - teman Bagaimana membuat koneksi ODBC dari MS Access ke MS Access Lain? Misal "database1.mdb" adalah data dan "Aplikasi.mdb" adalah program untuk update data Bagaimana mengkoneksikan aplikasi.mdb dengan database1.mdb dengan skrip (kode)? Sepertinya dah pernah di bahas, tapi saya acari - cari kok belum ketemu Salam Yokanan Wahyono
