ee5450a5fb
* harbour/contrib/sddodbc/tests/test2.prg
! reverted accidentally changed file in last commit
* harbour/src/rtl/hbsockhb.c
+ added public functions to use socket GC pointers from other modules:
HB_SOCKET hb_socketParam( int iParam );
HB_SOCKET hb_socketItemGet( PHB_ITEM pItem )
PHB_ITEM hb_socketItemPut( PHB_ITEM pItem, HB_SOCKET sd );
void hb_socketItemClear( PHB_ITEM pItem );
37 lines
1.2 KiB
Plaintext
37 lines
1.2 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
#include "hbrddsql.ch"
|
|
|
|
REQUEST SQLMIX, SDDODBC
|
|
|
|
PROC main()
|
|
LOCAL nConnection, nI, aI
|
|
|
|
RDDSETDEFAULT( "SQLMIX" )
|
|
SET( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
nConnection := RDDINFO( RDDI_CONNECT, { "ODBC", "Server=localhost;Driver={MySQL ODBC 5.1 Driver};dsn=;User=test;database=test;" } )
|
|
IF nConnection == 0
|
|
? "Unable connect to server", RDDINFO( RDDI_ERRORNO ), RDDINFO( RDDI_ERROR )
|
|
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
|