From 87836cb44e5606f75a8c80b349f5873c59ed6e71 Mon Sep 17 00:00:00 2001 From: Toby Wicks Date: Fri, 27 Apr 2012 22:24:27 +0930 Subject: [PATCH] MySQLDatabase class now supports latest MySQL 5.1 driver. Closes #55. Also updated to use FLAG_MULTI_STATEMENTS and FLAG_FOUND_ROWS options in the connection string. See reference: http://dev.mysql.com/doc/refman/5.0/en/connector-odbc-configuration-connection-parameters.html --- Database/MySQLDatabase.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Database/MySQLDatabase.vb b/Database/MySQLDatabase.vb index c24efc8..30d002f 100755 --- a/Database/MySQLDatabase.vb +++ b/Database/MySQLDatabase.vb @@ -11,13 +11,18 @@ Option Explicit On Public Class MySQLDatabase Inherits Database + 'Flags from http://dev.mysql.com/doc/refman/5.0/en/connector-odbc-configuration-connection-parameters.html + Private Const FLAG_MULTI_STATEMENTS As Integer = 67108864 + Private Const FLAG_FOUND_ROWS As Integer = 2 + Private Const Options As Integer = FLAG_MULTI_STATEMENTS Or FLAG_FOUND_ROWS + ''' ''' Connects to a MySQL database using the ODBC driver. ''' ''' Public Sub New(ByVal strDataSource As String, ByVal strDatabaseName As String, ByVal strUserName As String, ByVal strPassword As String) - MyBase.New("Driver={MySQL}; Server=" & strDataSource & "; Database=" & strDatabaseName & "; UID=" & strUserName & "; PWD=" & strPassword & ";", ConnectionType.MySQL) + MyBase.New("Driver={MySQL ODBC 5.1 Driver}; Server=" & strDataSource & "; Database=" & strDatabaseName & "; UID=" & strUserName & "; PWD=" & strPassword & ";Option=" & Options, ConnectionType.MySQL) If String.IsNullOrEmpty(strDataSource) Then Throw New ArgumentNullException("DataSource")