Saya menggunakan versi 3.51 dan ver 5. keduanya tidak bermasalah.
Public Function OpenTheDatabase() As Boolean
Dim strKonek As String
On Error GoTo OraKonekErr
Screen.MousePointer = 11
OpenTheDatabase = False
Set ConMySQL = New ADODB.Connection
' Kantor
'strKonek = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User
ID=root;Data Source=torin;database=torindo"
strKonek = "Provider=MSDASQL.1;Persist Security Info=False;Data
Source=torin;Password=234;User ID=root;database=torindo"
' Rumah
'strKonek = "Provider=MSDASQL.1;Password=234;Persist Security
Info=True;User ID=root;Data Source=torin;database=torindo"
ConMySQL.CursorLocation = adUseClient
ConMySQL.Open strKonek
OpenTheDatabase = True
Screen.MousePointer = 0
Exit Function
OraKonekErr:
Screen.MousePointer = 0
If Err.Number <> 0 Then
MsgBox "Koneksi ke Database gagal. Silahkan coba lagi hingga beberapa
kali!!!." & vbCrLf & " Kemungkinan disebabkan karena alasan berikut ini :" &
vbCrLf & vbCrLf & " Kesalahan Nomor : " & Err.Number & vbCrLf & " Keterangan
: " & Err.Description, vbOKOnly + vbCritical, "Koneksi ke Database
Oracle..."
End If
End Function
Smoga bermanfaat
Basmal
____________________________________________________________________________________
Never miss a thing. Make Yahoo your home page.
http://www.yahoo.com/r/hs
[Non-text portions of this message have been removed]
