Re: [belajar-access] MS Acess dengan Database Mysql ???

Audzubillah himinasyaitonirrajim Bismillahirrahmanirrahiim ....,   Mas Ahmad..., Ada beberapa pendapat memang untuk berhubungan dengan database MySql. Kalau saya senang memakai metode: kalau dibutuhkan berhubungan, kalau tidak ya tidak usaha berhubungan. Sehingga interface form Ms Access yang kita gunakan menjadi ringan. Type hubungan yang saya pakai adalah ODBC. Seperti yang Sampeyan kutip itu. Ada juga yang memakai API. Tentu Sampeyan harus membuat nama database (kalau belum ada). Prosedurnya: koneksi tanpa menyebut nama database: scriptnya begini:   'ini untuk untuk berhubungan dengan MySql Dim conb As New ADODB.Connection Public Function conbToDB(serverName As String, _    UserName As String, userPass As String, _    dbPath As String) Dim strCon As String     On Error GoTo errHandle         strCon = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" _     & serverName & ";" & _     "UID=" & UserName & ";PWD=" & userPass & ";OPTION=16426"     Set conb = New ADODB.Connection     conb.Open strCon     Exit Function errHandle:     MsgBox "SERVER SEDANG TIDAK AKTIF", , "NON AKTIF"     conb.Close     Set conb = Nothing End Function   'Terus lanjutkan dengan dengan ini:   Function KONEKSIS()     conbToDB "isi hostname/localhost/ip", "isi dengan username", "isi dengan password", 3306 End Function   'Lalu kita jalankan fungsi itu dengan memanggilnya, misalnya:   Private Sub Command0_Click()     KONEKSIS     If conb.State <> 0 Then         conb.Execute "create database IF Not EXISTS conto_rek"         MsgBox "sukses membuat database dengan nama conto_rek di MySql"     Else         MsgBox "gagal membuat database di MySql"     End If         conb.Close     Set conb = Nothing End Sub   'Kalau sudah sukses, baru kita buat tabel di dalam database tsb. Caranya, kita buat scirpt hampir serupa (bedanya menyebut nama database):   Option Compare Database Option Explicit Public conn As New ADODB.Connection Public Function connToDB(serverName As String, _ UserName As String, userPass As String, _ dbPath As String, dbName As String) Dim strCon As String On Error GoTo errHandle strCon = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" _ & serverName & ";DATABASE=" & dbName & ";" & _ "UID=" & UserName & ";PWD=" & userPass & ";OPTION=16426" Set conn = New ADODB.Connection conn.Open strCon Exit Function errHandle: MsgBox "SERVER SEDANG TIDAK AKTIF", , "NON AKTIF" conn.Close Set conn = Nothing End Function Function KONEKSI() ' modikasi ini, dengan keadaan yang sesuai ' contoh connToDB "localhost", "username", "password", port, "nama database" connToDB "localhost", "root", "root", 3306, "conto_rek" End Function 'Terus script tersebut kita jalankan, misalnya:   Private Sub buat_tabel_Click() Dim sql As String     KONEKSI     If conn.State <> 0 Then         sql = "CREATE TABLE " & TABEL_LEGES & " (ID int(30) NULL, PRIMARY KEY (ID)," _             & " NRBU int(10) NULL NULL, ID_SUBBID_BU int(10) NULL NULL," _             & " GRADE int(10) NULL NULL, TN_PROP int(10) NULL NULL," _             & " TN_JN int(10) NULL NULL, TN_NOREG int(10) NULL NULL," _             & " ASOSIASI Varchar(50) NULL NULL, ID_AS_URUT int(10) NULL NULL," _             & " LPJK Varchar(10) NULL NULL);"                     conn.Execute "DROP TABLE IF EXISTS " & TABEL_LEGES & ";"         conn.Execute sql             End If     conn.Close     Set conn = Nothing End sub   Kalau mau lihat data juga sama. Koneksi dulu > kita tetapkan data yang akan dilihat > Insert data MySql ke Tabel Ms Access temporer. Sehingga mengubah data di Ms Acces, tidak akan berpengaruh pada data yang di MySql, karena hanya bersifat temporer (kecuali untuk hal-hal yang sudah kita tetapkan).   Memang agak ribet. Tapi kita bisa mengetahui proses detailnya.   Semoga ini bisa membantu dan memberi semangat untuk terus belajar.     Hariyanto (Surabaya)   --- On Fri, 19/11/10, Ahmad <ud13en@gmail.com> wrote: From: Ahmad <ud13en@gmail.com> Subject: [belajar-access] MS Acess dengan Database Mysql ??? To: belajar-access@yahoogroups.com Date: Friday, 19 November, 2010, 8:32 AM   Teman2 milis ada yang punya file access dengan BE Mysql? kalo ada dishare dong.... saya nyoba tapi bingung, buatnya tabelnya gimana? pake link kayak BE nya access atau pakai script koneksi seperti ini? (dari arsip milis dahulu kalau ga salah adm_surat_new) Trus kalau pake script, memanggilnya kapan?saat buka file atau mau pakai tabel? Terima Kasih atas responnya. Option Compare Database Option Explicit Public conn As New ADODB.Connection Public Function connToDB(serverName As String, _ UserName As String, userPass As String, _ dbPath As String, dbName As String) Dim strCon As String On Error GoTo errHandle strCon = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" _ & serverName & ";DATABASE=" & dbName & ";" & _ "UID=" & UserName & ";PWD=" & userPass & ";OPTION=16426" Set conn = New ADODB.Connection conn.Open strCon Exit Function errHandle: MsgBox "SERVER SEDANG TIDAK AKTIF", , "NON AKTIF" conn.Close Set conn = Nothing End Function Function KONEKSI() ' modikasi ini, dengan keadaan yang sesuai ' contoh connToDB "localhost", "username", "password", port, "nama database" connToDB "localhost", "root", "root", 3306, "SURAT" End Function

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___