#include "FiveWin.ch"
function Main()
local oCn, oRs, aStates
LOCAL lShowError := .F.
cPathCnx := "D:\fwh\samples"
cSql := "SELECT * FROM Clients.dbf"
if ( oCn := FW_OpenAdoConnection( cPathCnx , lShowError ) ) != nil
if ( oRs := FW_OpenRecordSet( oCn, cSql ) ) != nil
oRs:MoveFirst()
xBrowse(oRs,"oRs")
oRs:MoveFirst()
nCol := 1
aStates := ArrTranspose( oRs:GetRows() )[ nCol ] // *** Toma sólo la nCol columna. Es decir es un array aStates[n,n] *** //
oRs:MoveFirst()
oRs:Close()
else
? "Open Table Fail"
endif
oCn:Close()
else
? "Connect Fail"
endif
return aStates
//--------------------------------------------------------------------------------------//
oCn := FW_OpenAdoConnection( foldername )
oRs := FW_OpenRecordSet( oCn, "states" )
oRs := FW_OpenRecordSet( oCn, "select first,salary from customer" )
oCn := FW_OpenAdoConnection( { "FOXPRO", cfoldername }, .T.)
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 63 guests