FiveTech Software tech support forums

... := TOLEAUTO():New("adodb.command") oRecordSet:CursorType := 1 // opendkeyset oRecordSet:CursorLocation := 3 // local cache oRecordSet:LockType := 3 // lockoportunistic oRecordSet:ActiveConnection(oCone) oRecordSet:Source := "Select * from Inventario Order by Codigo" oRecordSet:Open() ...

... oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) END orsPed:CursorLocation := adUseClient orsPed:LockType := adLockOptimistic orsPed:CursorType := adOpenDynamic orsped:source:="SELECT * FROM ERP6_base" // ENVIAMOS QUERY DE PRUEBA PARA ...

... oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) END orsPed:CursorLocation := adUseClient orsPed:LockType := adLockOptimistic orsPed:CursorType := adOpenDynamic orsPed:Source :="select * from BasedeDatos" orsPed:ActiveConnection( oApp:oCon ...

... oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) END orsPed:CursorLocation := adUseClient orsPed:LockType := adLockOptimistic orsPed:CursorType := adOpenDynamic orsped:source:="SELECT * FROM ERP6_base" // ENVIAMOS QUERY DE PRUEBA PARA ...

... oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) END orsPed:CursorLocation := adUseClient orsPed:LockType := adLockOptimistic orsPed:CursorType := adOpenDynamic orsped:source:="SELECT * FROM ERP6_base" // ENVIAMOS QUERY DE PRUEBA PARA ...

... oRsEmp := TOleAuto():New( "ADODB.Recordset" ) oRsEmp:CursorType := 1 // opendkeyset oRsEmp:CursorLocation := 3 // local cache oRsEmp:LockType := 3 // lockoportunistic TRY oRsEmp:Open( cSQL,xCONNECT ) CATCH oErr MsgInfo( "Error in Opening EMPLOYEES table" ) RETURN(.F.) END ...

... refresh) How is it possible with RecordSet ? I think i have to change the CursorType . oRsa:= CREATEOBJECT( "ADODB.Recordset" ) oRsa:LockType := 3 // lockoportunistic oRsa:CursorType := 1 // opendkeyset oRsa:CursorLocation := 3 // local cache * Thanks, Philippe

... := TOleAuto():New( "ADODB.RecordSet" ) WITH OBJECT oRsDir :ActiveConnection := oApp:oCon :Source := cSql :CursorLocation := adUseClient :LockType := adLockOptimistic :CursorType := adOpenDynamic TRY :Open() CATCH FW_ShowAdoError( oApp:oCon ) END END oRsDir:Properties("Unique Table"):Value ...

... to Load SQL Driver" ) RETURN (.F.) END // Set... oSql:CursorType := 1 // opendkeyset oSql:CursorLocation := 3 // local cache oSql:LockType := 3 // lock opportunistic // Init xCONNECT := 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xDATABASE+';User Id='+xUSERID+';Password='+xPASSWORD ...

... have MDAC installed OR MDAC is corrupted.") RETURN (.F.) END oSql:CursorType := 1 // opendkeyset oSql:CursorLocation := 3 // local cache oSql:LockType := 3 // lock opportunistic cSqlIns := [UPDATE sailing SET ] cSqlIns += [scheduleid='] + ALLTRIM( cScheduleId ) + [',] cSqlIns += [carrier='] ...

... ) CATCH oError MsgStop( "No se ha podido crear el OBJETO"+ oError:Description ) RETURN .F. END oRSet:CursorLocation:=adUseClient;oRSet:LockType:=adLockReadOnly;oRSet:CursorType:=adOpenForwardOnly;oRSet:ActiveConnection( oConnection ) sSQLQuery := "SELECT * FROM CONSULMARKET" ...

... installed OR MDAC is corrupted.") RETURN (.F.) END // Set... oSql:CursorType := 1 // opendkeyset oSql:CursorLocation := 3 // local cache oSql:LockType := 3 // lock opportunistic FOR nX1=2 TO nMax // Message... oSay:SetText( "Processing XLS Row " + LTRIM(TRANSF( nX1, "999,999" ...

... adUseNone (Obsolete and does not work) 2. adUseServer (Can not navigate and is not useful for us) 3. adUseClient : This is the only choice we have LockType: 1. adLockUnspecified (not to be used for new recordsets) 2. adLockReadOnly : This is not what you want when you want to make changes. (Note: ...

... "Select * from clientes Order by RFC" oRecordSet:CursorType := 1 // opendkeyset oRecordSet:CursorLocation := 3 // local cache oRecordSet:LockType := 3 // lockoportunistic oRecordSet:Open() oRecordSet:MoveFirst() oRecordSet:Find("RFC = " + "'" + xRfc + "'" ...

... SQL Driver", Ptitle ) RETURN (.F.) END // Set... oSqlLoad:CursorType := 1 // opendkeyset oSqlLoad:CursorLocation := 3 // local cache oSqlLoad:LockType := 3 // lock opportunistic // Set SQL string... cSqlLoad := "SELECT * FROM vessels WHERE Active=1 ORDER BY [DateCreated] DESC" TRY ...