FiveTech Software tech support forums

... AddRegistro(cTabla) : FUNCTION AddRegistro( cTabla) LOCAL lOK:=.T., aResultados:=Array(3) LOCAL oCon, oError, oDatos TRY oCon:=toleauto():new("adodb.connection") CATCH oError MsgStop( "Línea 125: Error al crear ...

... .exe ¿Porqué?, lo desconozco. Quizás el instalador del provider no las registra adecuadamente, etc. Un detalle muy importante: Si no expecifico: oDatos:CursorLocation := adUseClient Sencillamente oDatos:RecordCount devuelve igual -1. Esto también sucede en MySql con el cliente ODBC 3.51 ...

Hola Nuevamente: Según el código que expongo a continuación: FUNCTION Sql2( cComando) LOCAL lOK:=.T., oCon, oDatos, aResultados:=Array(3) oCon:=toleauto():new("adodb.connection") //oCon:=CreateObject("adodb.connection") ...

Mil Gracias por el ejemplo René. Todo estaba ok, pero por algún motivo, la rutina dejó de funcionar. Se cae al realizar el " oDatos:Open() " del recordset. Aquí va el código y al final como estoy llamando a la función. FUNCTION SQL( cComando) LOCAL lOK:=.T. TRY MsgInfo( ...

... el foro cuando ejecutamos un comando sql con ado podemos obtener el recorset entregado por el resultado de esta manera: oSql:CommandText:=cComando oDatos:=oSql:Execute() Mi pregunta: cuales son los métodos y datos que se pueden manejar desde oDatos? oDatos:MoveFirst(), oDatos:EOF(), oDatos:MoveNext(), ...

... el recordset, y para no hacerme lío lo que hice es pasar todo el recordset a una array, y este último mostrar en el browse. aDatos := {} oDatos:MoveFirst() do while .not. oDatos:EOF() AADD(aDatos, {oDatos:Fields(0):value,; oDatos:Fields(1):value,; oDatos:Fields(2):value,; oDatos:Fields(3):value}) ...

It was just a matter of adding SysRefresh() !!! good :D Antonio, este codigo redefine get odatos[1]... ... redefine get odatos[10]... oDatos[1]:bValid:= { || oDatos[1]:SetPos( 10 ...

... pero treméndamente más rápida. ======================================= Function AddFields( lAppendBlank, lBloqueaReg, lDateVacio, oOwner ) LOCAL oDatos, n, uDatoVacio, cAlias := Select() DEFAULT lAppendBlank:= .T. DEFAULT lBloqueaReg := .F. DEFAULT lDateVacio := .F. DEFAULT oOwner:= oApWnd:oDlg ...

IF( oParamtros:lPresupu , ; ( oDbfPresup:Load() , ; nSiguiente := oDatos:Current()[ 1 ] , ; oDatos:Current()[ 1 ] := nAnterior , ; oDbfPresup:tipo := oPresupu:nTipo , ; oDbfPresup:estado := oPresupu:nEstado , ; oDbfPresup:codigo := oCliente:cCodigo , ; oDbfPresup:numpresup ...