FiveTech Software tech support forums

... creo que esto lo había obtenido de algún hilo de este foro, y me ha funcionado, aunque no se si es la mejor forma o la mas adecuada oQry := oApp:oServer:Query("SELECT 1") También esto me indica si en el transcurso del programa se ha cortado la conexión a internet. Espero tus comentarios ...

... KILL nId (nId es el id que te muestra en show processlist) Cuando cierras la sesión debes cerrar la conexión a la base de datos, con el metodo oServer:End() (o su similar en la clase nativa) Espero que te sea de ayuda Cesar, puedes poner como haces en Dolphin para mantener la conexión "activa"

... KILL nId (nId es el id que te muestra en show processlist) Cuando cierras la sesión debes cerrar la conexión a la base de datos, con el metodo oServer:End() (o su similar en la clase nativa) Espero que te sea de ayuda

... tablas temporales solo tienen visibilidad en la sesion que son creadas, y mientras no se cierre la misma, tienen vida (o sea, mientras no hagamos oServer:End()). Por lo demás, podemos hacer sobre ellas todo lo que podriamos hacer sobre una tabla normal. Creo que eso es una ventaja sobre una dbf. ...

... si lo puedes probar con la version FWh 07-2023. Muy agradecido por el tiempo #include "fivewin.ch" Function ConectMySql LOCAL hIni LOCAL oServer LOCAL oErr,nFlags,cUser,cPassword,nPort,cServer hIni := 0 oServer := NIL nFlags := 0 ? File(".\connect.ini") If File(".\connect.ini") ...

... entorno a 2020/12 y si conecta al servidor. Que puede estar mal ? esta es la funcion de conexion Function ConectMySql( cDbName ) LOCAL hIni LOCAL oServer LOCAL oErr,nFlags,cUser,cPassword,nPort,cServer hIni := 0 oServer := NIL nFlags := 0 If File(".\connect.ini") cServer := GetPvProfString("mysql","host" ...

...  oQry     := ::Query( cExecute )   ::NextResult()RETURN oQry ReturnCall (cProcName,aParameters) oServer:ReturnCall("busca_clientes",{ cCodClie }) En tu caso es una lista, muestranos un ejemplo y el storeproceure para ver como acomodamos ...

... un WHERE con un IN, o sea, por ejemplo tengo: SELECT codigo,nombre FROM clientes WHERE codigo IN (cod1,cod2,cod3...) Cuando llamo a mi función: oServer:ReturnCall("busca_clientes",parametrowhere) este "parametrowhere", como lo debo mandar? Hice varias pruebas con diferentes ...

... Daniel García, tiene excelentes Funciones, Métodos y Datas, para el manejo de Query’s. Y Bases de Datos. Por ejemplo en lo que preguntas sería : oServer:TableExist( cTable ) Cualquier duda me consultas Sergio Vacarezza S. Programador Freelance sergio@vacarezza.cl Santiago, Chile Harbour 3.2.0 ...

... local IsQry,aWait local lConn:= .T. DEFAULT lWait TO .F. TRY If lWait WaitOn("Espere, Comprobando conexion....",@await ) EndIf IsQry:= oServer:Query("Select 1") IsQry:End() If lWait WaitOff( @aWait ) Endif CATCH oError If oError:SubCode=2013 .OR. oError:SubCode=1096 If lWait ...

... ON DUPLICATE KEY UPDATE c=3;INSERT INTO t1 (a,b,c) VALUES (4,5,6)  ON DUPLICATE KEY UPDATE c=9; Eso se podría armar en un solo oServer:Execute y tendríamos la solución. Cesar la solucion que propones no es la mejor en sistemas modernos o que usaan el paradigma cliente/servidor ...

... del archivo, del formato que sea",9,,.T.,.T.,) *lo guardo en la variable uData uData:=D_ReadFile(cTempZip) Si se inserta: oServer:Insert("fotos_articulos",{"fotografia"},{uData}) Si se actualiza: oServer:Update("fotos_articulos",{"fotografia"},{uData},cWhere) ...

Mr. Rao, a mi modesto entender deberia funcionar como cuando usamos :Execute() TRY ::oServer:BeginTransaction() ::oServer:Execute( "INSERT INTO ... ") ::oServer:Execute( "INSERT INTO ... ") ::oServer:Execute( "INSERT INTO ... ") ::oServer:Execute( ...

Mr. Rao, A mi modesto parecer deberia funcionar como el :execute() TRY oServer:Begintrasaction() oServer:Execute( "INSERT INTO ... ") oServer:Execute( "INSERT INTO ... ") oServer:Execute( "INSERT INTO ... ") oServer:Execute( "INSERT ...

...           Var2Str( aTabla[ i, TABLA_ABO_VALPROG ] ) +  "," + "'A'),"    NEXT    cSqlDetalle := hb_StrShrink( cSqlDetalle )    oServer:lThrowError := TRUE //aca lo activo    TRY       oServer:BeginTransaction()       IF ( nPresNum := IncCount( "control", "cont_pres" ...