| Maaf, untuk dbpath itu diisi apa ya? dbPath itu port. Bisa pakai 3306. Kenapa 3306, kok tidak 100, katakanlah. He... he.. Ini bisa browsing di google.. Di luar itu, yang juga penting di user MySql adalah host. Host itu sama dengan nama komputer. Lebih baik diberi nilai %. Artinya semua komputer. Kalau di VBA = *. Host merupakan salah satu cara pembatasan akses dari komputer lain ke server. Pembatas-pembatas lainnya berada di field-field tabel user di database MySql, dengan nama database mysql: Jumlah field user tersebut ada 20 buah. Terdiri dari:
1. Host
2. Db
3. User
4. Select_priv
5. Insert_priv
6. Update_priv
7. Delete_priv
8. Create_priv
9. Drop_priv
10. Grant_priv
11. References_priv
12. Index_priv
13. Alter_priv
14. Create_tmp_table_priv
15. Lock_tables_priv
16. Create_view_priv
17. Show_view_priv
18. Create_routine_priv
19. Alter_routine_priv
20. Execute_priv Untuk mendapatkan nama-nama field tersebut, Sampeyan harus memakai user superadmin. Dilanjutkan dengan membuat script. Misalnya seperti ini: Private Sub Command7_Click()
Dim aa, bb As Variant
Dim rsp As ADODB.Recordset
Dim i As Integer KONEK
If conn.State <> 0 Then
Set rsp = conn.Execute("SELECT count(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
aa = rsp.Fields(0)
End If
rsp.Close
Set rsp = Nothing
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
Do While Not rsp.EOF
bb = bb & i & ". " & rsp.Fields(0) & vbCrLf
i = i + 1
rsp.MoveNext
Loop
End If
rsp.Close
Set rsp = Nothing End If
conn.Close
Set conn = Nothing
Text9 = "Jumlah field " & aa & " buah. Terdiri dari: " & vbCrLf & bb
End Sub Satu hal lagi, pada fungsi: Function KONEKSI()
connToDB "isi_dengan_IP_(misal 192.168.1.200", "Isi_user_name_Mysql", "isi_password_MySql", 3306, "namadatabase_MySql"
End Function gunakan username dengan host %, namun dibatasi pada hak akses. Misalnya hanya bisa select (untuk melihat-lihat saja). Atau ditambah dengan update, insert, delete. Kalau diberikan superadmin, user bisa memanfaatkan untuk hal-hal yang terkadang tidak sesuai harapan. Misalnya menghapus tabel di MySql, dlsb. Semoga bisa membantu dan memberi semangat. Hariyanto (Surabaya)
--- 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