Código: Selecionar todos
// hbmk2 test sddodbc.hbc
#include "simpleio.ch"
#include "hbrddsql.ch"
REQUEST SDDODBC, SQLMIX
PROC main()
RDDSETDEFAULT( "SQLMIX" )
SET( _SET_DATEFORMAT, "yyyy-mm-dd" )
// try also (local)SQLEXPRESS
? "Connect:"
?? RDDINFO(RDDI_CONNECT,{"ODBC","Server=.\SQLEXPRESS;Driver={SQL Server};dsn=;Uid=sa;database=test;pwd=pass" },'SQLMIX' )
? RDDINFO(RDDI_EXECUTE, "DROP TABLE test")
? RDDINFO(RDDI_EXECUTE, "CREATE TABLE test (CODE char(3), DESCR char(50), VALUE int(11))")
? RDDINFO(RDDI_EXECUTE, "INSERT INTO test values ('AA','Lithuania', 3369600), ('USA', 'United States of America', 305397000)")
? "Use:", DBUSEAREA( .T.,, "select * from test", "test" )
? "Alias:", ALIAS()
? "DB struct:", HB_VALTOEXP( DBSTRUCT() )
INKEY( 0 )
BROWSE()
INDEX ON FIELD->CODE TO TEST
DBGOTOP()
BROWSE()
DBCLOSEAREA()
RETURN
Itamar M. Lins Jr.