MS ACCESS MAILING LIST: Re: [belajar-access] koneksi mysql pake driver mysql ODBC 5.1 di komputer lain lewat jaringan

mas hari kodenya di taruh dimana di module apa d forms
maklum mas sy bener2 belum mengerti untuk kode2 VBA ya

thank

Pada 18/06/2011 13:39, hari yanto menulis:

Untuk menampilkan datanya, bisa menggunakan tabel temporer. Teknisnya begini:

koneksi

bila sukses hapus dan buat tabel temporer. Contoh script hapus tabel:

Private Sub hps_tb(nm)
Dim rbs As Recordset
Dim db As Database

    Set rbs = CurrentDb.OpenRecordset("SELECT MSysObjects.Name" _
    & " FROM MSysObjects WHERE MSysObjects.Type= 1 And MSysObjects.Flags = 0" _
    & " AND MSysObjects.Name='" & nm & "'")
        If Not rbs.EOF Then
            Set db = CurrentDb
            db.TableDefs.Delete nm
            db.Close
            Set db = Nothing
        End If
    rbs.Close
    Set rbs = Nothing

End Sub

Panggil dengan cara:

hps_tb ("xx_nmTable")

Terus buat tabel:

DoCmd.RunSQL "create table xx_nmTable (id number, nama text(255));"

SQL ke MySql dan memasukkan hasilnya ke tabel temporer, Misal:

Set rsp = conn.Execute("SELECT information_schema.columns.column_name" _
        & " FROM information_schema.columns WHERE" _
        & " information_schema.columns.table_schema='mysql'" _
        & " AND information_schema.columns.table_name='db'")
        If Not rsp.EOF Then
            i = 1

            Set db = CurrentDb
            Do While Not rsp.EOF

                 db.Execute "insert into xx_nmTable" _
                    & " values (" & i & ",'" & rsp.Fields(0) _

                    & "')"
                i = i + 1
                rsp.MoveNext
            Loop

            db.Close
                Set db = Nothing
        End If
        rsp.Close
        Set rsp = Nothing

tutup koneksi

tampilkan data ke user

Semoga bisa membantu dan memberi semangat.

Hariyanto

http://110.139.57.19

--- On Sat, 18/6/11, Afrizal <aflazio7@yahoo.com> wrote:

From: Afrizal <aflazio7@yahoo.com>
Subject: Re: [belajar-access] koneksi mysql pake driver mysql ODBC 5.1 di komputer lain lewat jaringan
To: belajar-access@yahoogroups.com
Date: Saturday, 18 June, 2011, 12:06 AM

Numpang nanya jg mas hari karena sy tertarik jg mengenai access to mysql
kl sudah konek, terus cara lihat tabelnya bagaimana ya mas

thank
afrizal

Pada 16/06/2011 7:02, hari yanto menulis:

Audzubillah himinasyaitonirrajim Bismillahirrahmanirrahiim ....,

Terimakasih. Terlampir adalah contohnya (versi 2003).

Untuk bisa mengeksekusi, selain komputer/server harus diinstal MySql. Juga harus diinstall pula Conectornya. Software MySql dan connectornya bisa didown load di dev.mysql. Gratis.

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

http://110.139.57.19

--- On Wed, 15/6/11, Hasan Salman <salmankomputer@yahoo.com> wrote:

From: Hasan Salman <salmankomputer@yahoo.com>
Subject: Re: Bls: [belajar-access] koneksi mysql pake driver mysql ODBC 5.1 di komputer lain lewat jaringan
To: belajar-access@yahoogroups.com
Date: Wednesday, 15 June, 2011, 5:45 PM

Maaf bisa tolong dikasih attachment nya,
soalnya saya agak bingung,

sekian, terima kasih.
Wassalam
Salman Hasan

--- Pada Sel, 14/6/11, hari yanto <har_i20002000@yahoo.com> menulis:

Dari: hari yanto <har_i20002000@yahoo.com>
Judul: Re: Bls: [belajar-access] koneksi mysql pake driver mysql ODBC 5.1 di komputer lain lewat jaringan
Kepada: belajar-access@yahoogroups.com
Tanggal: Selasa, 14 Juni, 2011, 11:54 PM

Kalau pengalaman saya, pakai IP yang akan dijadikan server. Ini salah satu contoh scriptnya:

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()
    connToDB "isi_dengan_IP_(misal 192.168.1.200", "Isi_user_name_Mysql", "isi_password_MySql", 3306, "namadatabase_MySql"
End Function

--- On Wed, 15/6/11, Rully Arfan <rully_arfan@yahoo.com> wrote:

From: Rully Arfan <rully_arfan@yahoo.com>
Subject: Bls: [belajar-access] koneksi mysql pake driver mysql ODBC 5.1 di komputer lain lewat jaringan [1 Attachment]
To: belajar-access@yahoogroups.com
Date: Wednesday, 15 June, 2011, 1:14 PM

coba bang rubah privilage mysqlnya yang sebelumnya local menjadi any host, seperti gambar di lampiran ini

semoga membantu

==========
Rully Arfan

Dari: Hasan Salman <salmankomputer@yahoo.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Rab, 15 Juni, 2011 12:10:43
Judul: [belajar-access] koneksi mysql pake driver mysql ODBC 5.1 di komputer lain lewat jaringan

Saya ingin bertanya kepada pakar-pakar access,
terutamanya kepada Pak Aksan Kurdin.

Saya sdh bisa koneksi mysql pake driver mysql ODBC 5.1, sukses untuk komputer sendiri tapi gimana koneksi untuk ke mysql di komputer lain lewat jaringan ? apa saja yang harus di setting?? Kok selalu gagal, gima setting yang benar?

Thanks b4nya

--- Pada Sel, 14/6/11, tio.adjie@ptssb.co.id <tio.adjie@ptssb.co.id> menulis:

Dari: tio.adjie@ptssb.co.id <tio.adjie@ptssb.co.id>
Judul: [belajar-access] Icon di Application Database
Kepada: belajar-access@yahoogroups.com
Tanggal: Selasa, 14 Juni, 2011, 9:52 PM

Dear Master Access,

Saya ingin buat icon di database, yaitu di menu start up. Tapi ketika saya buat photo dan kemudian di save, ternyata tidak ada save as type nya *.ico. Apakah teman-teman punya pencerahan,

bagaimana untuk menghasilkan file dengan extension ico (jadi bisa di save as ke *.ico). Kalau memang ada software tambahan, software apa ya namanya ?

Trims sebelumnya,

regards,
Tio