/* */

Saturday, November 20, 2010

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

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 PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

No comments:

Post a Comment