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 (8) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar