FiveTech Software tech support forums

... la tDataBase, pero ha terminado siendo una clase nueva por la cantidad de nuevos aportes que entrega. Entonces... si creas la clase asi... Local cSelect:= "select Cli.RUT, Cli.RAZON, Cli.DIRECCION from CLIENTES as Cli" oDbCli:=TAdoBase():New( oCn, "CLIENTES", cSelect ) Entonces tienes : oDbCli:RUT ...

... + " -> " + oErr:Description ) Retorno:=.F. END Return Retorno Function maestro() local oBrw Local cSelect:= "select maestro.FECASI, maestro.ASIENTO, maestro.DESCASI, maestro.TOTDEB, maestro.TOTHAB from maestro" oDbDet:=TAdoBase():New( ...

... oErr MSGAlert( "Error: " + oErr:Operation + " -> " + oErr:Description ) Retorno:=.F. END Return Retorno Function maestro() local oBrw Local cSelect:= "select maestro.FECASI, maestro.ASIENTO, maestro.DESCASI, maestro.TOTDEB, maestro.TOTHAB from maestro" lAdo := .t. If lAdo oDbDet:=TAdoBase():New( ...

Here is the source code for DbChoice() function DbChoice( cTitle, cSelect ) local oDlg, oBrw DEFINE DIALOG oDlg RESOURCE "DbChoice" TITLE cTitle REDEFINE LISTBOX oBrw ; FIELDS ArCust->Code, ArCust->Name ; HEADERS "Code", "Name" ; ID 100 OF oDlg ACTIVATE ...

... a customer", 1 ) ) oGetCodex:VarPut( AllTrim( ArCust->Code ) ) oGetCodex:Refresh() // repaints the GET return nil function DbChoice( cTitle, cSelect ) local oDlg, oBrw DEFINE DIALOG oDlg RESOURCE "DbChoice" TITLE cTitle if cSelect = 1 REDEFINE LISTBOX oBrw ; FIELDS ArCust->Code, ArCust->Name ...

... a customer", 1 ) ) oGetCodex:VarPut( AllTrim( ArCust->Code ) ) oGetCodex:Refresh() // repaints the GET return nil function DbChoice( cTitle, cSelect ) local oDlg, oBrw DEFINE DIALOG oDlg RESOURCE "DbChoice" TITLE cTitle if cSelect = 1 REDEFINE LISTBOX oBrw ; FIELDS ArCust->Code, ArCust->Name ...

DAVID, SYSCTRL2 He intentado reproducir el error que me indican, pero solo puedo hacerlo cuando el string del cSelect esta con errores o misspelling, vale decir, cuando un nombre de campo, tabla esta mal escrito, mayusculas/minusculas etc. Prueben recompilando, todo el ejemplo, ...

... */ Además deberás modificar: #xcommand DEFINE ADOBASE <oDb> ; [ CONNECTION <oConnect> ] ; [ TABLE <cTable> ] ; [ SELECT <cSelect> ] ; => ; <oDb>:= TAdoBase():New( <(oConnect)>, <(cTable)>, <(cSelect)> ) por: #xcommand DEFINE ADOBASE <oDb> ...

... aDatas := {}, aMethods := {} ? A ver que te parecen estas sencillas modificaciones: /* ******************** */ METHOD New( oConnect, cTable, cSelect ) CLASS TAdoBase ... ::nFields:=oRs:Fields:Count ::aBuffer := Array( ::nFields ) ::Load() ... return Self /* ******************** */ METHOD ...