FiveTech Software tech support forums

Hola leandro
Despues de abrir la base de datos ejecuta este query y con eso lo solucionas independiente de la charset y collation
oMySQL:Execute("SET NAMES 'latin1'") // TDolphin
Saludos!

Gracias a todos, lo he resuelto de la siguiente forma:

cQuery:= "DELETE estudio_ratio,gastos FROM estudio_ratio JOIN gastos ON estudio_ratio.idestudio=gastos.idgastos WHERE gastos.idgastos='" + Str( nIdGastos ) + " ' "
oVar:oMysql:Execute(cQuery)

Un saludo
Gabriel

FUNCTION DPMYSQLBD(cDb,cIp,cLogin,cPass,nPort,lError,lCreate,lAdd) LOCAL oDb,oMySql,nAt DEFAULT cIp :=oDp:cIp ,; cLogin :=oDp:cLogin,; cPass :=oDp:cPass ,; nPort :=oDp:nPort ,; cDb :=oDp:cDsnData,; lError :=.T.,; lCreate :=.F.,; lAdd :=.F. // Agrega lista de Tablas ...

... he llegado a la conclusioón que la classe TMysql contenida en la libreria MySql.lib, que bajé del blog de Wormar, no tiene el method o propiedad oMySql:cSort. Tampoco pude encontrar informacion sobre la function WSEEKPLUS, contenida en la function MySqlSeek(). Talvez el Sr. William puede compartir ...

... oBalanza: cSort: = "CODICONT" ) Indeed, the error occurs in the line you mention, whose value is always nil. ( cSort: = Upper (:: oBrw: oMysql: cSort) ) Thanks

Thank you, Mr. Rao,

Remove the maketotals(), now create xbrowse fast.

Add these lines:

oBrw: oMysql: lPagination = .T.
oBrw: oMysql: SetPages (100)

And to show totals ?

Hi, How can I improve the speed of creation of an xbrowse when loading data from a table with many records using tdolphin, Probe using oBrw :: oMysql: lPagination = .T. And does not improve the speed to create xbrowse. The code is as follows : REDEFINE XBROWSE oBrw OF oDlg ID 100;    DATASOURCE ...

... cUser :="root" local cPassword :=" " local cDbName := "Base" local cTabla := "Tabla" local lRet local oMySql, oDb, oDlg MsgInfo( "Empiezo..." ) SET DATE FORMAT TO "DD/MM/YYYY" DEFINE DIALOG oDlg FROM 2, 2 TO 14, 35; TITLE "Datos ...

... is possible to read a few records initially and readnext records later. Records read later are appended to the rowset and the rowset is enlarged. oMySql := mysql_Open( oAdoCnObject ) oRs := oMySql:RowSet( <ctable>, 1000 ) // read first 1000 records << browse code >> At an appropriate ...

... to open FWH Connection without providing user credentials again. oFWCon := mysql_Connect( oAdoConObject ) // from ADO or oFWCon := mysql_Connect( oMySql ) // from TMySql or use the standard method of providing host,database,username,password The backup/restore functions properly handle all types ...

Willi aunque ya lo tienes solucionado el problema está aquí: Function RelProductos(oMySQL, aDesPro, cCodi) aDesPro := {} Los arrays son tratados por referencia pero tu rompes la referencia tal como tratas aDesPro Si quieres más rapidez yo lo haría así:     ...

... estandarizar el envio de estos objetos a XBrowse u otros DATAAWARE. Asi xBrowse podria maner un solo objeto de acceso a los datos: cAlias, oRs, oMysql deberias ser un solo objeto ... Ese concepto, de separar los datos de la presentación/visualización es importantísimo, me alegra que lo hayas ...

... estandarizar el envio de estos objetos a XBrowse u otros DATAAWARE. Asi xBrowse podria maner un solo objeto de acceso a los datos: cAlias, oRs, oMysql deberias ser un solo objeto Mi humilde opinion, esperando no molestar a los GENIOS. Atentamente, Rolando Cochabamba, Bolivia http://www.sauro-sys.com

Hola Daniel, gracias por contestar.. creo que halle el error cQuery := "SELECT productos.* FROM productos ORDER BY producto " oDatos := oMySQL:Query(cQuery) oDatos:Refresh() <---- funciona correctamente cQuery := "SELECT productos.*, productos.precio_neto, IFNULL((SELECT imagenes.registro ...

Hola Daniel... En estas líneas hay un error en :Refresh() ... cQuery := "SELECT * FROM productos ORDER BY detalle" oDatos := oMySQL:Query(cQuery) // aquí se hacen alguna modificaciones a la tabla productos, también podrían modificar en otra estación .. .. oDatos:Refresh() // recargamos ...