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
--- 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)
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
|
|
|
|
|
No comments:
Post a Comment