ACCESS FEED: Re: Bls: [belajar-access] Memendekkan perintah link data msql

Jumat, 15 Februari 2013

Re: Bls: [belajar-access] Memendekkan perintah link data msql

terima kasih pak imam safari di cobian dulu :)

nama depan kita sama pak :):):)

From: imam safari <imam_safari_hidayat@yahoo.co.id>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Friday, 15 February 2013, 9:19
Subject: Bls: [belajar-access] Memendekkan perintah link data msql

maaf para suhu ta coba menjawab sepengetahuan saya

buat satu modul
Function relink_mysql_tables(mysql_connection As String)
    Dim db As Database
    Set db = CurrentDb()
    Dim tbldef As TableDef
    For Each tbldef In db.TableDefs
        If (tbldef.Attributes And TableDefAttributeEnum.dbAttachedODBC) Then
            tbldef.Connect = mysql_connection
            tbldef.RefreshLink
        End If
    Next
End Function

buat satu button sebelum masuk

relink_mysql_tables ("DRIVER={MySQL ODBC 5.1 Driver};Server=.........;Database=........;Uid=......;password=......;option=18")

Imam Safari Hidayat

Dari: imam <imammukhlasin@yahoo.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Jumat, 15 Februari 2013 2:56
Judul: [belajar-access] Memendekkan perintah link data msql

Terimakasih kepada sebelumnya kepada semua yang membantu memberrikan solusi.

Saya membuat data FE di msql dan sudah ok, sbb:

DoCmd.TransferDatabase acLink, "ODBC Database", _
"ODBC;DSN=" & dsnName & ";SERVER =" & d1 & ";UID=" _
& d2 & ";PWD=" & d3 & ";LANGUAGE=us_english;" _
& "DATABASE=" & d4 & "", acTable, "lap_evaluasi", "lap_evaluasi"

DoCmd.TransferDatabase acLink, "ODBC Database", _
"ODBC;DSN=" & dsnName & ";SERVER =" & d1 & ";UID=" _
& d2 & ";PWD=" & d3 & ";LANGUAGE=us_english;" _
& "DATABASE=" & d4 & "", acTable, "lap_pengunjung", "lap_pengunjung"

DoCmd.TransferDatabase acLink, "ODBC Database", _
"ODBC;DSN=" & dsnName & ";SERVER =" & d1 & ";UID=" _
& d2 & ";PWD=" & d3 & ";LANGUAGE=us_english;" _
& "DATABASE=" & d4 & "", acTable, "tblbulan", "tblbulan"

sebenarnya ada 12 tabel.

dg cara ini sudah ok,adakah coding lain yang lebih simple sehingga apabila ada penambahan tabel saya tidak perlu ketik seperti diatas.

saya sudah coba pake for... next... tidak bisa
pake do while...loop tidak bisa juga
maklum baru belajar :)

wassalammualaikum warohmatullohi wabarokatuh

m451mam

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (3)

Recent Activity: