Permisi ikut nimbrung juga....
Sedikit suprised dgn fakta bhw ODBC bisa putus di tengah jalan, selain teknik Mas Hari bagaimana dgn teknik Pass Through Queries (PTQ) ?
Setau saya PTQ tdk membutuhkan Link Table yg harus konek terus menerus...saya sih belum berpengalaman dgn data yang di server,
selama ini baru berkutat BE di local non ODBC alias BE Access...hehehehe
From: hari yanto <har_i20002000@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Monday, May 20, 2013 10:52 PM
Subject: Re: Bls: [belajar-access] Re: koneksi otomatis ke ODBC
Sedikit suprised dgn fakta bhw ODBC bisa putus di tengah jalan, selain teknik Mas Hari bagaimana dgn teknik Pass Through Queries (PTQ) ?
Setau saya PTQ tdk membutuhkan Link Table yg harus konek terus menerus...saya sih belum berpengalaman dgn data yang di server,
selama ini baru berkutat BE di local non ODBC alias BE Access...hehehehe
Mohon bimbingan pakar-pakar...
Regards
Hendra
Regards
Hendra
From: hari yanto <har_i20002000@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Monday, May 20, 2013 10:52 PM
Subject: Re: Bls: [belajar-access] Re: koneksi otomatis ke ODBC
Bismillahirrohmanirrohim...., Ikut nimbrung... Saya memakai juga memakai ODBC. Cuma, metodenya agak berbeda. Tidak link terus menerus (link tabel). Tapi melakukan koneksi ketika dibutuhkan. Setelah selesai diputus. Hasilnya, lebih ringan. Dan, ODBC-nya saya tanam di VBA. Jadi nggak perlu men-setting ODBC pada masing-masing-masing komputer user. Ini script-nya (database MySql): 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 Exit Function End Function Function KONEKSI() connToDB "ISI_DG_IP_SERVER", "ISI_DG_USER_NAME_MYSQL", "ISI_DG_USERNAME_MYSQL", 3306, "ISI_DG_NAMA DATABASE" End Function Semoga bisa membantu dan memberi semangat. Hariyanto (Surabaya) --- On Mon, 20/5/13, aksan kurdin <aksan.kurdin@gmail.com> wrote:
|
__._,_.___
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (17) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar