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

Audzubillah himinasyaitonirrajim Bismillahirrahmanirrahiim ....,   Ya benar.. Untuk buat tabel, kan hanya sekali saja. Buat tabel MySql, bisa juga menggunakan software navicat for MySql (dari sini pula kita bisa belajar bagaimana cara membuat manualnya). Dan, dari sini pula kita bisa belajar dan mendapat tantangan memahami bahasa-bahasa lainnya (seperti php,html) kalau berhubungan dengan MySql.   Yang saya rasakan menggunakan database MySql, dengan interface Ms Access adalah, proses menjadi ringan dan besaran database (setahu saya) tidak dibatasi. Semoga makin bersemangat dan bermanfaat...   Hariyanto (Surabaya) --- On Sat, 20/11/10, Ahmad Qomaruddin <ud13en@gmail.com> wrote: From: Ahmad Qomaruddin <ud13en@gmail.com> Subject: Re: [belajar-access] MS Acess dengan Database Mysql ??? To: belajar-access@yahoogroups.com Date: Saturday, 20 November, 2010, 7:23 AM   Terima kasih Bp. Hariyanto, berati kalo Aplikasi kita tabelnya banyak dengan field nya yang banyak berarti scriptnya tambah banyak ya? Jazakallaha katsiran... On 11/19/10, hari yanto <har_i20002000@yahoo.com> wrote: > 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 > > > > > > > > > -- Ahmad Qomaruddin Sulang Rembang Jawa Tengah Indonesia email : ud13en@gmail.com blog : ud13en.blogspot.com

__._,_.___

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

__,_._,___