FiveTech Software tech support forums

Pedro: Tal vez mi comentario no solucione el problema, perooo... En lugar de:        If oRsDiario:RecordCount() > 1   // si el recordset está vacío, te va a tirar un horror  :)           oRsDiario:MoveLast()       EndIf     Usa:        If oRsDiario:BOF() ...

... 4282, en mi fuente del xBrowse, son estas :   ::oRs    := oRs   DEFAULT ::bGoTop    := {|| If( ::oRs:RecordCount() > 0, ::oRs:MoveFirst(), nil ) },;           ::bGoBottom := {|| If( ...

... una devuelva un recorset vacío y por ende puede que se produzca el error que mencionas. buscando en la clase que yo tengo, lo único que se ve de recordcount es cuando se define el default del method METHOD SetAdO( oRs, lAddCols, lAutoOrder, aFldNames ) CLASS TXBrowse   local ...

... mins 24 secs    Error occurred at: 20-05-2015, 13:07:05   Error description: Error ADODB.RecordSet/6  DISP_E_UNKNOWNNAME: RECORDCOUNT   Args:Stack Calls===========   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETADO( 4282 ...

... error when you use where clause. Right? I expect that without where clause the record count may be greater than 200 and with where clause the recordcount could be less than 200. Can you please check this and confirm? If so, please look at this part of code in method SetRDD() of xbrowse.prg: ...

... SUM(exi_ent) As entrada,SUM(exi_sal) AS salida FROM exi_det WHERE exi_art='"+ AllTrim(oma_arti)+ "'", oConexion, 1, 3) If (cExi_Det:RecordCount) # 0 totini:=0 totent:=ADOField(cExi_Det,"entrada") totsal:=ADOField(cExi_Det,"salida") Else totini:=0 totent:=0 totsal:=0 ...

Antonio, Antonio, As far as I know oRs:RecordCount() returns the number of records of the recordset so if you use a WHERE clause then you get less records. Lets ask Mr. Rao Opening same dbf in 2 dif areas One with normal index the RECORDCOUNT ...

Antonio,

As far as I know oRs:RecordCount() returns the number of records of the recordset
so if you use a WHERE clause then you get less records.

Lets ask Mr. Rao

Antonio, OrdKeyCount and RECORDCOUNT might be a problem! The only way to solve this is to: If we use always adUseClient because ADO knows all rows and there ist any problem but performance decreases a lot. Not advisable! IF we use adUseServer ...

Antonio, We just found out that : RecordCount isnt always accurate: with adUseServer (cursor supported by the provider) always return the total nr of records in table even if there is a where clause in the select like Reccount() with adUseClient ...

... * FROM impresora WHERE ma_codi='"+ AllTrim(cPuerto)+ "' ORDER BY ma_codi", oConexion, 1, 3) If (cImpresora:RecordCount) # 0 cPrn:=AllTrim(ADOField(cImpresora,"ma_desc")) Endif ADO Close cImpresora oPrn:=PrintBegin("Impresión de documentos",.F.,lPrv,cPrn,.T.) ...

... After few days i have seen that it is huppaning when table is empty Is that mean that we must always control oRs:RecordCount ???? Is that standard ADO behavior or therw is some other solution ? Second case IF :Source is not SELECT statement for example :Source ...

Armando, comenta // esto:

oBrx:bKeyCount := {|| oRsAdj:RecordCount() }

Que retorna ahora?

Rao Thanks for reply One more question Is it possible to define a TIMER and every second read value from oRs:RecordCount() before collecting is finished and dysplay it on the screen and if nned to execute oRs:Close() before collecting is finished If it is possible will be a good ...

... If we expect that the Query may result in too many records, then specify oRs:MaxRecords := <yourlimit> and then open the recordset. If oRs:RecordCount() < oRs:MaxRecords then we know all records are read and if not there are more rows meeting the criteria that are not read. In such a ...