Please Try this:
Public CnActiveConnection As ADODB.connection 'For MySQL
Public MsActiveConnection As ADODB.connection 'For MsSQL
Public connection As Boolean
Public host As String, database As String, user As String, password As String
Public Function SqlConnection(sql As String, host As String, UserName As
String, Passcode As String, database As String) As Boolean
Dim tsql As String
On Error GoTo errorf
If sql = "MsSQL" Then
Set MsActiveConnection = New ADODB.connection
tsql = "Provider=SQLOLEDB.1;Password=" & Passcode & ";Persist Security
Info=True;User ID=" & UserName & ";Initial Catalog=" & database & ";Data
Source=" & host
MsActiveConnection.Open tsql
MsActiveConnection.CommandTimeout = 0
MsActiveConnection.CursorLocation = adUseClient
SqlConnection = True
connection = True
Exit Function
Else
Set CnActiveConnection = New ADODB.connection
tsql = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & host & ";" _
& "DATABASE=" & database & ";" _
& "UID=" & UserName & ";" _
& "PWD=" & Passcode & ";" _
& "OPTION= " & 3
CnActiveConnection.Open tsql
CnActiveConnection.CommandTimeout = 0
CnActiveConnection.CursorLocation = adUseClient
SqlConnection = True
connection = True
Exit Function
End If
errorf:
SqlConnection = False
connection = False
MsgBox Err.Description, vbCritical, Err.Number
End Function
Private Sub Form_Load()
SqlConnection "MySQL", host, user, password, database 'For Mysql
SqlConnection "MsSQL", host, user, password, database 'For MsSQL
End Sub
Hope this help... thanks!
---------------------------------
Never miss a thing. Make Yahoo your homepage.
