fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-11-17 00:10 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/contrib/rddsql/sddodbc/tests/test2.prg
    ! fixed minor error in last commit
This commit is contained in:
Mindaugas Kavaliauskas
2009-11-16 22:13:15 +00:00
parent a0d1401dde
commit 10efc37028
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -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

3
harbour/contrib/rddsql/sddodbc/tests/test2.prg
View File

@@ -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