View: - 213
'NOTE : You Must Download & Install MySQL ODBC 3.51 Driver 'WEBSITE : http://dev.mysql.com/downloads/connector/odbc/3.51.html 'REFRENCES NEEDED : Microsoft ActiveX Data Objext 2.6 OR 2.5 Liabrary Public CN As Connection Public rsA As Recordset Public Sub Connect_DB() Set CN = New ADODB.Connection CN.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=ServerIP;PORT=3306;DATABASE=DatabaseBName;USER=USER_NAME;PASSWORD='PASSWORD';OPTION=3;" CN.Open Set rsA = New ADODB.Recordset rsA.Open "TABLENAME", CN, adOpenKeySet, adLockOptimistic End Sub Public Sub DissConnect_DB() rsA.Close Set rSA = Nothing CN.Close Set CN = Nothing End Sub
