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

harbour/ChangeLog

@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+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
+
 2009-11-16 21:29 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbct/ctnet.c
   * contrib/hbct/pos1.c

harbour/contrib/rddsql/sddodbc/tests/test2.prg

@@ -0,0 +1,35 @@
+/*
+ * $Id$
+ */
+
+#define RDDI_CONNECT          1001
+
+REQUEST SQLMIX, SDDODBC
+
+PROC main()
+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;" } )
+   IF nConnection == 0
+      ? "Unable connect to server"
+      RETURN
+   ENDIF
+   ? nConnection
+   ? RDDINFO(RDDI_EXECUTE, "DROP TABLE country")
+   ? RDDINFO(RDDI_EXECUTE, "CREATE TABLE country (CODE char(3), NAME char(50), RESIDENTS int(11))")
+   ? RDDINFO(RDDI_EXECUTE, "INSERT INTO country values ('LTU', 'Lithuania', 3369600),('USA', 'United States of America', 305397000), ('POR', 'Portugal', 10617600), ('POL', 'Poland', 38115967), ('AUS', 'Australia', 21446187), ('FRA', 'France', 64473140), ('RUS', 'Russia', 141900000)")
+   ? DBUSEAREA( .T.,, "SELECT * FROM country", "country" )
+   ? "LASTREC:", LASTREC()
+   DO WHILE ! EOF()
+     aI := ARRAY( FCOUNT() )
+     FOR nI := 1 TO FCOUNT()
+       aI[nI] := FIELDGET( nI )
+     NEXT
+     ? RECNO(), HB_VALTOEXP( aI )
+     DBSKIP()
+   ENDDO
+   ? "LASTREC:", LASTREC()
+   DBCLOSEALL()
+RETURN