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

pake myodbc mas. download di http://dev.mysql.com/downloads/connector/odbc/5.1.html

2010/11/23 Ahmad Qomaruddin <ud13en@gmail.com>

 

Nanya lagi, kalo database sudah ada di mysql, cara ngelink-nya gimana?
Terima Kasih....

On 11/20/10, hari yanto <har_i20002000@yahoo.com> wrote:
> 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
>
>
>
>
>
>
>
>

--
Ahmad Qomaruddin
Sulang Rembang Jawa Tengah Indonesia
email : ud13en@gmail.com
blog : ud13en.blogspot.com

--
--------------------------------------------------------------------
Syahmin Sukhairi

http://www.syahmin.net
--------------------------------------------------------------------

__._,_.___

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

__,_._,___