In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

BUG de Xailer para conectarse MySQL nativo servidor LINUX

Foro público de Xailer en español
Responder
Andres Hocevar
Mensajes: 141
Registrado: Mar Sep 18, 2007 3:30 pm

BUG de Xailer para conectarse MySQL nativo servidor LINUX

Mensaje por Andres Hocevar »

Tengo
Xailer Enterprise
version 1.65 (September 2007)
serial XENT-0027A172-01
que adquiri la semana pasada
El problema es que al mandar la consulta al servidor el nombre de la
tabla lo pone en mayusculas, en servidores windows no hay problema pero
en linux si.
Aqui mando un ejemplo para su analisis y correccion.
PROYECTO (prueba.prg)
//----------------------------------------------------
/*
* Project: prueba
* File: prueba.prg
* Description: Application start module
* Author:
* Date: 09-17-2007
*/
#include "Xailer.ch"
Procedure Main()
Application:cTitle := "prueba"
TForm1():New( Application ):Show()
Application:Run()
Return
//-----------------------------------------------------
FORMA UNICA (Form1.prg)
//-----------------------------------------------------
/*
* Project: prueba
* File: Form1.prg
* Description:
* Author:
* Date: 09-17-2007
*/
#include "Xailer.ch"
CLASS TForm1 FROM TForm
COMPONENT oMySQLDataSource1
COMPONENT oSQLTable1
COMPONENT oDBBrowse1
METHOD CreateForm()
ENDCLASS
#include "Form1.xfm"
//---------------------------------------------------------- --------------------
FORMA (Form1.xfm)
//---------------------------------------------------------- --------------------
METHOD CreateForm() CLASS TForm1
Super:CreateForm()
::SetBounds( 297, 230, 846, 588 )
::SetClientSize( 838, 554 )
::cText := "Form1"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::Create()
WITH OBJECT ::oMySQLDataSource1 := TMySQLDataSource():New( Self )
:cHost := "192.168.0.100"
:cUser := "datasis"
:cDatabase := "matloca"
:lConnected := .T.
:Create()
END
WITH OBJECT ::oSQLTable1 := TSQLTable():New( Self )
:oDataSource := ::oMySQLDataSource1
:cProcess := "GENERAL"
:nLockType := adLockOptimistic
:cTableName := "grup"
:lOpen := .T.
:Create()
END
WITH OBJECT ::oDBBrowse1 := TDBBrowse():New( Self )
:SetBounds( 156, 8, 674, 514 )
TBrwRecSel():Create( ::oDBBrowse1 )
:oDataSet := ::oSQLTable1
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "grupo"
:nWidth := 43
:oDataField := "grupo"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "nom_grup"
:nWidth := 147
:oDataField := "nom_grup"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "tipo"
:nWidth := 33
:oDataField := "tipo"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "comision"
:nAlignment := taRIGHT
:nWidth := 64
:oDataField := "comision"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "linea"
:nWidth := 38
:oDataField := "linea"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "depto"
:nWidth := 43
:oDataField := "depto"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "cu_inve"
:nWidth := 70
:oDataField := "cu_inve"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "cu_cost"
:nWidth := 54
:oDataField := "cu_cost"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "cu_venta"
:nWidth := 70
:oDataField := "cu_venta"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "cu_devo"
:nWidth := 70
:oDataField := "cu_devo"
:Create()
END
:Create()
END
RETURN Self
//---------------------------------------------------------- ----------------
En el IDE funciona bien tiempo de diseño pero al compilar y correr bota
el siguiente error:
TMYSQLRECORDS:QUERYALL(185)
Error MySQL/-1 Table 'matloca.GRUP' doesn't exist: TMYSQLRECORDS:QUERYALL
Arguments: ( [ 1] = Type: C Val: SHOW INDEX FROM GRUP)
Si creo otra tabla en el servidor, en este ejemplo, con el nombre "GRUP"
la prueba funciona bien, pero si elimino la tabla en minusculas "grup" y
dejo solo la que esta en mayusculas me da el mismo error pero en tiempo
de diseño.
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

BUG de Xailer para conectarse MySQL nativo servidor LINUX

Mensaje por jfgimenez »

Andrés,
> El problema es que al mandar la consulta al servidor el nombre de la tabla
> lo pone en mayusculas, en servidores windows no hay problema pero en linux
> si.
>
> Aqui mando un ejemplo para su analisis y correccion.
Gracias, pero en vez de enviarlo así, debes usar la opción del IDE
'Proyecto', 'Publicar proyecto...'. Esta opción te genera un fichero .zip
con todos los ficheros necesarios para poder compilar el proyecto.
> En el IDE funciona bien tiempo de diseño pero al compilar y correr bota el
> siguiente error:
>
> TMYSQLRECORDS:QUERYALL(185)
> Error MySQL/-1 Table 'matloca.GRUP' doesn't exist: TMYSQLRECORDS:QUERYALL
> Arguments: ( [ 1] = Type: C Val: SHOW INDEX FROM GRUP)
Por favor, añade el fichero error.log al fichero .zip del proyecto y
envianoslo para analizarlo.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
Andres Hocevar
Mensajes: 141
Registrado: Mar Sep 18, 2007 3:30 pm

BUG de Xailer para conectarse MySQL nativo servidor LINUX

Mensaje por Andres Hocevar »

Jose F. Gimenez escribió:
Si disculpa, soy todavia muy nuevo con XAILER pero mirando el log la
version no coincide?
Xailer Version: Xailer 1.5.5 Version 1.5
Compiler: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
C/C++ Compiler: Borland C++ 5.5.1
Windows Platform: Windows XP Professional 5.01.2600 Service Pack 2
Pero el IDE dice 1.65?????
> Andrés,
>
>> El problema es que al mandar la consulta al servidor el nombre de la tabla
>> lo pone en mayusculas, en servidores windows no hay problema pero en linux
>> si.
>>
>> Aqui mando un ejemplo para su analisis y correccion.
>
> Gracias, pero en vez de enviarlo así­, debes usar la opción del IDE
> 'Proyecto', 'Publicar proyecto...'. Esta opción te genera un fichero .zip
> con todos los ficheros necesarios para poder compilar el proyecto.
>
>
>> En el IDE funciona bien tiempo de diseño pero al compilar y correr bota el
>> siguiente error:
>>
>> TMYSQLRECORDS:QUERYALL(185)
>> Error MySQL/-1 Table 'matloca.GRUP' doesn't exist: TMYSQLRECORDS:QUERYALL
>> Arguments: ( [ 1] = Type: C Val: SHOW INDEX FROM GRUP)
>
> Por favor, añade el fichero error.log al fichero .zip del proyecto y
> envianoslo para analizarlo.
>
Arriba
Andres Hocevar
Mensajes: 141
Registrado: Mar Sep 18, 2007 3:30 pm

BUG de Xailer para conectarse MySQL nativo servidor LINUX

Mensaje por Andres Hocevar »

Hola Jose, Ignacio
No entiendo porque compila la version 1.5.5 y en el IDE dice que es la
version 1.6.5 pero ya funciona, borre la version instalada y baje de
nuevo xailer y lo instale.
Gracias poe su ayuda y disculpen.
Andres Hocevar
Andres Hocevar escribió:
> Tengo
> Xailer Enterprise
> version 1.65 (September 2007)
> serial XENT-0027A172-01
> que adquiri la semana pasada
>
> El problema es que al mandar la consulta al servidor el nombre de la
> tabla lo pone en mayusculas, en servidores windows no hay problema pero
> en linux si.
>
> Aqui mando un ejemplo para su analisis y correccion.
>
> PROYECTO (prueba.prg)
> //----------------------------------------------------
> /*
> * Project: prueba
> * File: prueba.prg
> * Description: Application start module
> * Author:
> * Date: 09-17-2007
> */
>
> #include "Xailer.ch"
>
> Procedure Main()
>
> Application:cTitle := "prueba"
> TForm1():New( Application ):Show()
> Application:Run()
>
> Return
> //-----------------------------------------------------
>
> FORMA UNICA (Form1.prg)
> //-----------------------------------------------------
> /*
> * Project: prueba
> * File: Form1.prg
> * Description:
> * Author:
> * Date: 09-17-2007
> */
>
> #include "Xailer.ch"
>
> CLASS TForm1 FROM TForm
>
> COMPONENT oMySQLDataSource1
> COMPONENT oSQLTable1
> COMPONENT oDBBrowse1
>
> METHOD CreateForm()
>
> ENDCLASS
>
> #include "Form1.xfm"
>
> //---------------------------------------------------------- --------------------
>
>
> FORMA (Form1.xfm)
> //---------------------------------------------------------- --------------------
>
> METHOD CreateForm() CLASS TForm1
>
> Super:CreateForm()
> ::SetBounds( 297, 230, 846, 588 )
> ::SetClientSize( 838, 554 )
> ::cText := "Form1"
> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
> ::Create()
>
> WITH OBJECT ::oMySQLDataSource1 := TMySQLDataSource():New( Self )
> :cHost := "192.168.0.100"
> :cUser := "datasis"
> :cDatabase := "matloca"
> :lConnected := .T.
> :Create()
> END
>
> WITH OBJECT ::oSQLTable1 := TSQLTable():New( Self )
> :oDataSource := ::oMySQLDataSource1
> :cProcess := "GENERAL"
> :nLockType := adLockOptimistic
> :cTableName := "grup"
> :lOpen := .T.
> :Create()
> END
>
> WITH OBJECT ::oDBBrowse1 := TDBBrowse():New( Self )
> :SetBounds( 156, 8, 674, 514 )
> TBrwRecSel():Create( ::oDBBrowse1 )
>
> :oDataSet := ::oSQLTable1
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "grupo"
> :nWidth := 43
> :oDataField := "grupo"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "nom_grup"
> :nWidth := 147
> :oDataField := "nom_grup"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "tipo"
> :nWidth := 33
> :oDataField := "tipo"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "comision"
> :nAlignment := taRIGHT
> :nWidth := 64
> :oDataField := "comision"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "linea"
> :nWidth := 38
> :oDataField := "linea"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "depto"
> :nWidth := 43
> :oDataField := "depto"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "cu_inve"
> :nWidth := 70
> :oDataField := "cu_inve"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "cu_cost"
> :nWidth := 54
> :oDataField := "cu_cost"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "cu_venta"
> :nWidth := 70
> :oDataField := "cu_venta"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "cu_devo"
> :nWidth := 70
> :oDataField := "cu_devo"
> :Create()
> END
>
> :Create()
> END
>
> RETURN Self
> //---------------------------------------------------------- ----------------
>
>
> En el IDE funciona bien tiempo de diseño pero al compilar y correr bota
> el siguiente error:
>
> TMYSQLRECORDS:QUERYALL(185)
> Error MySQL/-1 Table 'matloca.GRUP' doesn't exist: TMYSQLRECORDS:QUERYALL
> Arguments: ( [ 1] = Type: C Val: SHOW INDEX FROM GRUP)
>
> Si creo otra tabla en el servidor, en este ejemplo, con el nombre "GRUP"
> la prueba funciona bien, pero si elimino la tabla en minusculas "grup" y
> dejo solo la que esta en mayusculas me da el mismo error pero en tiempo
> de diseño.
>
Arriba
Responder

Volver a “Xailer Spanish”