RDDSETDEFAULT( "DBFCDX" )
oCn := FW_OpenAdoConnection( "MSSQL,server,database,sa,password", .t. )
if oCn == nil
? "connect fail"
return nil
endif
AEval( DIRECTORY( "*.dbf"), { |a| FW_AdoImportFromDBF( oCn, a[ 1 ] ) } )
? "done"
RDDSETDEFAULT( "DBFCDX" )
oCn := maria_Connect( "server,database,root,password" )
if oCn == nil
? "connect fail"
return nil
endif
AEval( DIRECTORY( "*.dbf"), { |a| oCn:ImportFromDBF( a[ 1 ] ) } )
? "done"
oRs := FW_OpenRecordSet( oCn, "select * from customer" )
// accessing field value
? oRs:Fields( "salary" ):Value
// modifying field value and saving
oRs:Fields( "age" ):Value := 35
oRs:Fields( "Salary" ):Value := 40000
oRs:Update()
oRs := oCn:RowSet( "customer" ) // or ( "select ... from customer" )
// accessing field value
? oRs:Salary
// modifying field value and saving
oRs:Age := 35
oRs:Salary := 40000
oRs:Save() // or oRs:Update()
Antonio Linares wrote:Dear Tim,
> Is FWH 64 bit now fully functional ?
Yes, it is. Rock solid
Microsoft is doing it very well!
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 32 guests