oRsUser := TOleAuto():New( "ADODB.Recordset" )
oRsUser:CursorType := 1 // opendkeyset
oRsUser:CursorLocation := 3 // local cache
oRsUser:LockType := 3 // lockoportunistic
cSQL := "SELECT * FROM EMPLOYEES"
TRY
oRsUser:Open( cSQL, xCONNECT )
CATCH oErr
MsgInfo( "Error in Opening EMPLOYEES table here" )
RETURN(.F.)
END TRY
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Enrico Maria Giordano, Google [Bot] and 30 guests