MS ACCESS MAILING LIST: 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

__,_._,___

Friday, November 19, 2010

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

No comments:

Post a Comment