From 10efc370285517b2084a0c9e5748c9916cd9e87a Mon Sep 17 00:00:00 2001 From: Mindaugas Kavaliauskas Date: Mon, 16 Nov 2009 22:13:15 +0000 Subject: [PATCH] 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 --- harbour/ChangeLog | 4 ++++ harbour/contrib/rddsql/sddodbc/tests/test2.prg | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) 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