FiveTech Software tech support forums

Frafive Hola Daniel Con esta clase se pueden crear datafield ? Algo como esto, que se puede hacer con la tmysql oTabla:Blak() oTabla:codigo:=123 oTabla:Save() un saludo y enhorabuena por la clase si es posible, existe el metodo en la clase TdolphonQry (manejador de consultas) GetBlankRow()

Hola Daniel
Con esta clase se pueden crear datafield ?

Algo como esto, que se puede hacer con la tmysql

oTabla:Blak()
oTabla:codigo:=123
oTabla:Save()

un saludo y enhorabuena por la clase

:D Hola Foro, estoy intentando guardar un registro despues de actualizarlo y me sale este mensaje al hacerle un oTabla:update() Error You Have an Error in Your SQL Syntax; Check the manual that corresponds to your MySql Version for the rights syntax to use near 'W' at line 1 lo ...

puede ser esto: oLbx:bKeyDown := {|nKey| ( SeekMySql(nKey,@cBusca,oLbx,oOrden,oTabla),oLbx:Refresh(),oGet:Refresh() )} STATIC FUNCTION SeekMySql(nKey,cBusca,oLbx,oOrden,oTabla) *----------------------------------------------------- oTB:End() If nKey=8 cbusca:= ...

... para manejo de mysql y es seguro que el problema radica en el seteo del objeto del recordset para la tablas de mysql con Eagle1. mysetBrowse(oLbx,oTabla) que tienes dentro de esta funcion?? oTabla que tipo de dato tiene es un objeto DBF o un recordset u otro objeto? usas SetDbf() o SetAdo(), te ...

mysetBrowse(oLbx,oTabla) que tienes dentro de esta funcion?? oTabla que tipo de dato tiene es un objeto DBF o un recordset u otro objeto? usas SetDbf() o SetAdo(), te podria sugerir pasar los datos a un array o una estructura y trabajar ...

... "+ PROCNAME()+" } " + s_cCaption REDEFINE SAY S_oTit1Text PROMPT S_cTit1Text ID 601 OF oDlg FONT S_oTit1Font *** REDEFINE LISTBOX oLbx FIELDS STR(oTABLA:RECNO(),4,0) ,; antess.. lo usaba REDEFINE XBROWSE oLbx FIELDS FDATE(LeeCampo(oTabla,"FE_TC")),; STR(LeeCampo(oTabla,"VAL_TC"),10,4),; STR(LeeCampo(oTabla,"VCO_TC"),10,4),; ...

Hola Aqui tienes un trozo de codigo del xbrowse funcionando con eagle un saludo ::oTabla := TMyTable():New( oVar:oMySQL,::cTabla,,,"nombre",if(oVar:lNavega,::nFilas,)) if ! ::oTabla:Open() MsgInfo( "No se puede abrir la tabla: " + ::cTabla, "Operación Cancelada" ...

... de usar tdbf sin que haya problemas de indices es la siguiente 1.- Si abres la base de datos e indices y usas USE MiDbf INDEX MiCdx DATABASE oTabla la clase no abre los indices, por lo tanto no funcionan Si abres la base de datos e indices y usas USE MiDbf INDEX MiCdx DATABASE OPEN oTabla ...

... de usar tdbf sin que haya problemas de indices es la siguiente 1.- Si abres la base de datos e indices y usas USE MiDbf INDEX MiCdx DATABASE oTabla la clase no abre los indices, por lo tanto no funcionan Si abres la base de datos e indices y usas USE MiDbf INDEX MiCdx DATABASE OPEN oTabla ...

GRACIAS ANTONIO,, CON TU RESPUESTA ME DISTE LA PISTA QUE NOCESITABA PARA RESOLVER EL PROBLEMA,,, ERA ESTO POR SI LE SIRVE ALGUN COMPAÑERO DEL FORO:: cuando se usa solo la clase DATABASE nativa de FWH.. y se quiere hacer un scope sobre ella se hace asi: (oTabla_1:cAlias)->(OrdSetFocus(1)) (oTabla_...

... OF oBar PICTURE "@S60!";// WHEN .F. ; SIZE 200,22 FONT oWnd:oFont COLOR CLR_BLUE oLbx:bKeyDown := {|nKey| ( SeekMySql(nKey,@cBusca,oLbx,oOrden,oTabla),oLbx:Refresh(),oGet:Refresh() )} STATIC FUNCTION SeekMySql(nKey,cBusca,oLbx,oOrden,oTabla) *----------------------------------------------------- ...

... FUNCTION prueba() && Programa de prueba ************************************************************* LOCAL oDlg ,; oButSalir ,; oTabla ,; oLbx ,; cTabla := "DtsCiudad" DEFINE TABLE oTabla ; NAME cTabla DATAFIELD ; ORDER BY 1 ; OF oDtBase // Traemos el resultado a nuestro cliente ...

... directamente. Parece que el problema tiene su origen en las definiciones que hace el eagle en MySetBrowse() de los bloques: oLbx:bGoTop := { || oTabla:GoTop(), MsFetchRow( oTabla:hResult ) } oLbx:bGoBottom :={||oTabla:GoBottom(),MsFetchRow(oTabla:hResult ) } oLbx:bSkip := { | n | oTabla:Skipper( ...

... FUNCTION prueba() && Programa de prueba ************************************************************* LOCAL oDlg ,; oButSalir ,; oTabla ,; oLbx ,; cTabla := "DtsCiudad" DEFINE TABLE oTabla ; NAME cTabla DATAFIELD ; ORDER BY 1 ; OF oDtBase // Traemos el resultado a nuestro cliente ...