FiveTech Software tech support forums

Estimado Horacio,

Has probado con oDataBase:RecCount() ?

Colegas, estoy haciendo filtros con la función oDatabase : ordScope y necesitaría saber cuantos registros tengo en el filtro. He mirado la clase pero no encuentro ningún método que me devuelva la cantidad de registros. Alguien sabe. Desde ya muchas gracias.

Saludos

... more in the program itself oInv_Cust... (colors, font, ....) Has anyone a sample using this technique ? Most likely i will also be using (Oop the oDatabase technique) for new parts of the program Would you use row/col or pixels ? (I will be using 1 kind of screen, NO changes of resolution are ...

... I suspect you specified "CUST" was the alias. You need to do this to specify that the browse is using a database object: oBrw:SetoDBF( oDatabase ) // where oDatabase is whatever name you have used for the database object oBrw gets the alias from there. James

I solved it.

If I say oDatabase:load(.t.) before editing everything is fine. Thank you
Alvaro

Hi again.

I realized that the record is not actually saved, but if you press twice or three times the button “Cancel”, the value of oDatabase:name is changed, even if you say oDatabase:load() before the dialog. If you don’t understand my point I will give you an example. Regards

Alvaro

... AADD(oDp:aDPMYSQLBD,{cIp,cDb,oDb,oMySql}) RETURN oDb FUNCTION DPMYSQLSTART(cIp,cLogin,cPass,nPort,lError) LOCAL lHayError:=.F. ,oMySqlCon:=NIL,nAt,oDataBase DEFAULT cIp :=oDp:cIp ,; cLogin :=oDp:cLogin,; cPass :=oDp:cPass ,; nPort :=oDp:nPort ,; lError:=.T. DEFAULT oDp:aMySql:={} cIp :=ALLTRIM(cIp ...

... I oTable:End() ? oTable:cSqlExec,LSTR(LEN(aFiles))+CRLF+"Archivos registrados en tabla MYTABLA" RETURN NIL FUNCTION OpenTable(cSql,lLoad,oDataBase) DEFAULT oDataBase:=oDb RETURN TTable():New(cSql,lLoad,oDataBase) CLASS Ttable DATA oDataBase DATA oCursor DATA lAppend INIT .T. DATA aBuffer ...

... #include "xbrowse.ch" #include "fivewin.ch" PROCEDURE main() local oWnd, oBrw, oCol local oCon, oTb, oCur, oDataBase // Objetos de Eagle1 local cHost := "127.0.0.1" local cUser := "root" local cPassword := "" local cDbName := ...

... aFields:={} aFields:=oCursor obrw := TXBrowse():New( ownd ) obrw:SetArray( aFields, .t. ) oCursor lo llamo asi oTb := TMsTable( cTabla ):New( oDatabase, cTabla ) // Abrimos la tabla, traemos el resultado a nuestro cliente if !oTb:Open() MsgInfo( "No se puede abrir la tabla: " + cTabla, ...

Prueba a cambiar esta línea:

__oDatabase := HBClass():New( cClsName, __CLS_PARAM ( cFromClass ) )

así:

__oDatabase := HBClass():New( cClsName, cFromClass )

Y a que se debe que lance el error al cambiar __oDatabase := HBClass():New( cClsName, __CLS_PARAM ( cFromClass ) )por __oDatabase := HBClass():New( cClsName,{ cFromClass } ) ?

Aca el codigo function TMyMSQuery( cCls ) ; return( MyGenClass( cCls, TMSQuery() ) ) The variable __aHCls AAdd( __aHCls, { cClsName, __nClassH } ) the class and handle How free static __aHCls := {} #include "HbClass.ch" function MyGenClass( cClsName, FromClass ) local n, __nClassH, __odata...

Hola

MIgrando de xHarbour a Habrbour 3.2 tengo problemas con la HBClass, al parecer Harbour no la reconoce

__oDatabase := HBClass():New( cClsName, __CLS_PARAM ( cFromClass ) )

Ya que me arroja lo siguiente

Error: Unresolved external '_HB_FUN___CLS_PARAM' referenced from...

Alguna solucion ?

Thanks Mr.Marcelo.

It works now.

Regards