----- Original Message -----
From: "aksankurdin" <
aksan.kurdin@gmail.com>
To: <
belajar-access@yahoogroups.com>
Sent: Friday, June 18, 2010 1:20 PM
Subject: [belajar-access] Re: Form Master-Child dengan database MySQL
dan ... jika anda creative, maka untuk dsn-less:
Private Sub Form_Load()' Me.RecordSource = "SELECT * FROM
[ODBC;DSN=PO;].Po"' Me.frm_posub_grid.Form.RecordSource = "SELECT *
FROM [ODBC;DSN=PO;].POSub" Me.RecordSource = "SELECT * FROM [ODBC;" &
ConnStr("localhost", "po", "root", "") & ";].Po"
Me.frm_posub_grid.Form.RecordSource = "SELECT * FROM [ODBC;" &
ConnStr("localhost", "po", "root", "") & "].POSub" Me.Requery
Me.frm_posub_grid.Form.RequeryEnd Sub
Fungsi untuk connstr:
Public Function ConnStr(serverName As String, dbName As String, userName
As String, pwd As String) As String ConnStr = "DRIVER={MySQL ODBC 5.1
Driver};SERVER=" _ & serverName & ";DATABASE=" & dbName & ";" & _
"UID=" & userName & ";PWD=" & pwd & ";OPTION=16426"End Function
look,anda tetap bisa memanfaatkan access untuk desain form yang cakep
dengan bound form on-the fly, layaknya kita sudah punya tabel di tab
tabel access, bukan ?
aksan kurdin