FiveTech Software tech support forums

... "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 TRY xbrowse( oRsEmp ...

... 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

... 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 + "'" ) //Aqui es donde ...

Mil disculpas ya vi lo que se me paso tomar en cuenta
oRecordSet:LockType := 3 // lockoportunistic

Gracias

... "ADODB.Recordset" ) oRsUser:CursorType := 1 // opendkeyset oRsUser:CursorLocation := 3 // local cache oRsUser:LockType := 3 // lockoportunistic TRY oRsUser:Open( cSQL, cStr ) oCn := oRsUser:ActiveConnection oRdbms := FW_RDBMSName( oCn ) CATCH oError ado_ErrorNoRecordSet(oError) ...

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

Darrell I have been using ADO for many years and found when you set up your recordset object to use the opendkeyset, local cache and lockoportunistic options. Most importantly is the Local Cache option which takes your recordset and places it in local memory of the workstation. You will ...

... := TOleAuto():New( "ADODB.Recordset" ) oRs:CursorType := 1 // opendkeyset oRs:CursorLocation := 3 // local cache oRs:LockType := 3 // lockoportunistic TRY oRs:Open(cSQL,< sql-lite connection string > ) CATCH oErr Close Temp MsgInfo( "Error in Opening YourTable table" ...

... := TOleAuto():New( "ADODB.Recordset" ) oRsProj:CursorType := 1 // opendkeyset oRsProj:CursorLocation := 3 // local cache oRsProj:LockType := 3 // lockoportunistic TRY oRsProj:Open( cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD ...

... := TOleAuto():New( "ADODB.Recordset" ) oRsProj:CursorType := 1 // opendkeyset oRsProj:CursorLocation := 3 // local cache oRsProj:LockType := 3 // lockoportunistic TRY oRsProj:Open( cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD ...

... := TOleAuto():New( "ADODB.Recordset" ) oRsuser:CursorType := 1 // opendkeyset oRsuser:CursorLocation := 3 // local cache oRsuser:LockType := 3 // lockoportunistic cSQL := "SELECT * FROM USERINFO order by USERID" TRY oRsuser:Open( cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User ...

... oRs := TOleAuto():New( "ADODB.Recordset" ) oRs:CursorType := 1 // opendkeyset oRs:CursorLocation := 3 // local cache oRs:LockType := 3 // lockoportunistic cSQL := "SELECT * FROM Suntrack.EFIS_UST_RELEASES" TRY oRS:Open(cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';User Id='+xUSERID+';Password='+xPASSWORD ...

... oRs := TOleAuto():New( "ADODB.Recordset" ) oRs:CursorType := 1 // opendkeyset oRs:CursorLocation := 3 // local cache oRs:LockType := 3 // lockoportunistic cSQL := "SELECT * FROM EFIS_UST_RELEASES" TRY oRS:Open(cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';User Id='+xUSERID+';Password='+xPASSWORD ...

... oRs2 := TOleAuto():New( "ADODB.Recordset" ) oRs2:CursorType := 1 // opendkeyset oRs2:CursorLocation := 3 // local cache oRs2:LockType := 3 // lockoportunistic IF xADMIN = 'Y' cSQL := "SELECT * FROM GROUPS order by progid,code" cTITLE := "GROUP Select for ALL" ELSE cSQL := "SELECT * from GROUPS ...

... TOleAuto():New( "ADODB.Recordset" ) oRsMTP:CursorType := 1 // opendkeyset oRsMTP:CursorLocation := 3 // local cache oRsMTP:LockType := 3 // lockoportunistic cSQL := "SELECT * FROM MTRPOOL where AGENEID = '"+xAGENEID+"' order by AGENCY,MTRPOOL" TRY oRsMTP:Open( cSQL,'Provider='+xPROVIDER+';Data ...