mas hari nanya lagi nich....
kl buat query di access ambil database mysql ya bagaimana ya..
thank
Pada 19/06/2011 19:53, hari yanto menulis:
Prinsip peletakkan script, ditentukan oleh kebutuhan kita. Kalau kita membutuhkan untuk berbagai keperluan dan pada banyak form, lebih baik di taruh di module (karena bisa dipanggil dari manapun). Tapi kalau hanya untuk kepentingan satu form, lebih baik di taruh di form itu sendiri.Dalam kasus contoh yang saya sampaikan, lebih baik diletakkan di form. Karena saya hanya butuh untuk form itu saja.Semoga bisa membantu dan memberi semangat.Hariyanto (Surabaya)
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: Sunday, 19 June, 2011, 1:16 AM
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 DatabaseSet 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 SubPanggil 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 = 1Set db = CurrentDb
Do While Not rsp.EOFdb.Execute "insert into xx_nmTable" _
& " values (" & i & ",'" & rsp.Fields(0) _& "')"
i = i + 1
rsp.MoveNext
Loopdb.Close
Set db = Nothing
End If
rsp.Close
Set rsp = Nothing
- tutup koneksi
- tampilkan data ke user
Semoga bisa membantu dan memberi semangat.Hariyanto
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)
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.ConnectionPublic Function connToDB(serverName As String, _
UserName As String, userPass As String, _
dbPath As String, dbName As String)Dim strCon As StringOn 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 strConExit FunctionerrHandle:
MsgBox "SERVER SEDANG TIDAK AKTIF", , "NON AKTIF"
conn.Close
Set conn = Nothing
End FunctionFunction 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
__._,_.___