diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f7eb10dddf..a664fac3b2 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-11-17 00:10 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) + * harbour/contrib/rddsql/sddodbc/tests/test2.prg + ! fixed minor error in last commit + 2009-11-17 00:01 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) + harbour/contrib/rddsql/sddodbc/tests/test2.prg + added ODBC sample for MySql database diff --git a/harbour/contrib/rddsql/sddodbc/tests/test2.prg b/harbour/contrib/rddsql/sddodbc/tests/test2.prg index c76471b51b..c4cdef8d2a 100644 --- a/harbour/contrib/rddsql/sddodbc/tests/test2.prg +++ b/harbour/contrib/rddsql/sddodbc/tests/test2.prg @@ -3,6 +3,7 @@ */ #define RDDI_CONNECT 1001 +#define RDDI_EXECUTE 1003 REQUEST SQLMIX, SDDODBC @@ -11,7 +12,7 @@ LOCAL nConnection, nI, aI RDDSETDEFAULT( "SQLMIX" ) SET( 4, "yyyy-mm-dd" ) - nConnection := RDDINFO( RDDI_CONNECT, { "ODBC", "DBQ=Server=192.168.1.99;Driver={MySQL ODBC 5.1 Driver};dsn=;User=test;database=test;" } ) + nConnection := RDDINFO( RDDI_CONNECT, { "ODBC", "DBQ=Server=localhost;Driver={MySQL ODBC 5.1 Driver};dsn=;User=test;database=test;" } ) IF nConnection == 0 ? "Unable connect to server" RETURN