Xailer com MySql - Iniciante

[joelmva]

Bom dia a todos,

Estou iniciando nos estudos da ferramenta e peguei um vídeo que ensina a fazer conexões com o MySql. Ao executar, o seguinte O erro é retornado:

******************************* Error log file ********************************

Exe: D:\Projetos_Harbour_Clipper\Projetos\sistema\sistema.exe
Version: 1.0.0.0
User name: Joel
Computer name: PC
Data: 12/08/2013
Hora: 11:18:52
Memória Disponível: 1685420
Área Atual: 1

-------------------------- Informação do Compilador ---------------------------

Versão do Xailer: Xailer 3.0.2
Compilador: Harbour 3.2.0dev (Rev. 18854)
Compilador C/C++ : MinGW GNU C 4.7.1 (32-bit)
Plataforma Windows: Windows 8 6.2.9200

-------------------- Informação de manejo de erro interno ---------------------

Chamada Subsistema: BASE
Código Sistema: 1005
Status por Defeito: .F.
Descrição: Message not found
Operação: TMySQLDataSource:_LDISPLAYERROS
Argumentos: [ 1] = Tipo: O Val:
Ficheiros envolvidos:
Dos Error Code: 0

Trace Through:
__ERRRT_SBASE (0)
TMYSQLDATASOURCE:ERROR (0)
(b)HBOBJECT (0)
TMYSQLDATASOURCE:MSGNOTFOUND (0)
TMYSQLDATASOURCE:_LDISPLAYERROS (0)
F_INISYSTEM (30)
MAIN (17)




O Programa tem o seguinte código

/*
* Projeto: sistema
* Arquivo: sistema.prg
* Descrição: Módulo inicial da aplicação
* Autor:
* Data: 08-08-2013
*/

#include "Xailer.ch"

Procedure Main()
set century on
set date british
set decimals to 2
Application:lUseReturn := .T.
Application:cTitle := "sistema"
F_IniSystem()
Application:Run()
Return

STATIC FUNCTION F_IniSystem()
LOCAL consulta

AppData:AddData("base",TMySQLDataSource():Create())
With Object AppData:base
:cDatabase := 'base_dados'
:cHost := 'localhost'
:cUser := 'root'
:cPassword := 'root'
:lDisplayErros := .F.
:nTimeOut := 1000
//:nPort := 3306

If !:Connect()
MsgStop('Erro ao tentar conectar com a base de Dados', 'ERRO')
Quit
Else
MsgInfo('Conexão Estabelecida')
EndIf
End With

RETURN NIL

[MARINI]

Bom dia:

Está errado:

:lDisplayErros := .F.

O correto é

lDisplayErrors := .F.


DICA: para copiar uma Propriedade do Inspetor de objetos:
.clique no editor no local que você quer adicionar a linha;
.clique na propriedade em Propriedades do Inspetor de objetos;
.tecle CTRL+* e a propriedade aparece no editor.
Abraços.

[fladimir]

Legal, estou usando o Xailer a alguns meses e não conhecia essa dica... aonde aprendo mais coisas do tipo...??

[]´s

[joelmva]

Olá Pessoal,

É isso mesmo.
Não tinha prestado a correta atenção.

Aproveitando...
Vocês podem indicar algum sistema exemplo com as principais funções como incluir, alterar, deletar, consultar, imprimir, utilizando MySql?
Vi alguns exemplos mas se limitam a componentes no form. Um que tenha essas características encontrei em DBF.

Valeu pessoal.

[MARINI]

Legal, estou usando o Xailer a alguns meses e não conhecia essa dica... aonde aprendo mais coisas do tipo...??

Então, o editor é cheio de recursos que somente descobrimos com o uso.
Não tem um manual somente dele.

Por exemplo:
1)
digite

tr

e CTRL+SPACE
e depois continua digitando:

transf , por exemplo.

2) coloque o mouse sobre uma função e clique nela e aguarde um pouco que ativa o tooltip da função, ou tecle CTRL+SPACE
para ver todas as funções semelhantes;


3) todavia existe no Xailer Help, em Appendix, Keyboard Shortcuts um resumo dos atalhos.

etc...

[fladimir]

MARINI - Ok grato

Joelmva - Nesse link tem vários downloads tem 1 deles q é 1 fonte completo com banco em MySQL.

[]´s

[joelmva]

Olá,

Eu peguei justamente esse exemplo (Xailer-Con-MySQL-1-0-0-0.zip) para começar a entender.
Mas ele não compila na minha versão do Xailer.
Dá centenas de erros. Para quem está começando fica difícil tentar concertar as coisas.

Por exemplo, ele tem uma linha
GLOBAL oMySqlDSMain no programa Xailer-Con-MySQL.prg
GLOBAL EXTERNAL oMySqlDSMain no programa Splash.prg

Quando compila dá esses erros e eu não sei como corrigir:

A compilar: Xailer-Con-MySQL.prg...
Xailer-Con-MySQL.prg(11) Error E0030 Syntax error "syntax error at 'OMYSQLDSMAIN'"
A compilar: Splash.prg...
Splash.prg(11) Error E0030 Syntax error "syntax error at 'EXTERNAL'"
A compilar: Xailer-Con-MySQL.rc...
C:\xailer3\hb32\comp\mingw\Bin\windres: can't open file `..\Bitmaps\Splash-0.jpg': No such file or directory
A compilar: DefTallas.prg...
DefTallas.prg(78) Error E0030 Syntax error "syntax error at '´'"
A compilar: Messages.prg...
Messages.prg3: error: unknown type name 'FLASHWINFO'
Messages.prg5: error: request for member 'cbSize' in something not a structure or union
Messages.prg23: error: 'FLASHWINFO' undeclared (first use in this function)
Messages.prg23: note: each undeclared identifier is reported only once for each function it appears in
Messages.prg5: error: request for member 'hwnd' in something not a structure or union
Messages.prg5: error: request for member 'uCount' in something not a structure or union
Messages.prg5: error: request for member 'dwFlags' in something not a structure or union
Messages.prg16: error: 'FLASHW_ALL' undeclared (first use in this function)
Messages.prg5: error: request for member 'dwTimeout' in something not a structure or union
Messages.prg3: warning: implicit declaration of function 'FlashWindowEx' [-Wimplicit-function-declaration]
Messages.prg10: error: too many arguments to function 'hb_storc'
from Messages.prg
C:\xailer3\hb32\Include/hbapi.h:754:25: note: declared here
Messages.prg20: warning: initialization discards 'const' qualifier from pointer target type [enabled by default]
Messages.prg20: warning: initialization discards 'const' qualifier from pointer target type [enabled by default]
5 Files, 5 Warnings, 14 Errors
Compilar tempo: 7.28s Linkar tempo: 0s Tempo total: 7.43

[MARINI]

OBS: MySql, SQLite e MariaDB somente é possível compilar na versão: Xailer Edición Enterprise.

http://www.xailer.com/?productos

[fladimir]

Entendi... vc quer um exemplo pequeno já funcional pra analisar...

Bom eu não tive nada disto e tb tive as mesmas dificuldades q vc teve, mas esses exemplos q te passei mais estudando a pasta samples e logicamente tendo conhecimento de MySQL ou outro SGBD vc consegue, é difícil mas dá...

Mas eu vou te ajudar... vamos fazer o seguinte vou montar um pequeno exemplo de uma agenda com banco em MySQL e ai disponibilizo pra todos e vc já aproveita e vê como funciona...

Me dá um tempinho de uns dias q disponibilizo e aviso por aki.

[]´s

[joelmva]

Olá Fladimir,

É isso mesmo.
Para nós que trabalhamos o dia todo e ainda temos que estudar a noite, fica difícil encontrar muito tempo para fuçar.
O que eu acho que falta na maioria das ferramentas é justamente um sistema básico onde quem está começando possa entender como as peças se encaixam.
Um sistema exemplo que tenha início, meio e fim.
A realidade hoje é que você pega dezenas de exemplos de forms com botãos e outras funcionalidades. Mas parece um quebra-cabeças onde você tem que adivinhar (erro e acerto) como as coisas funcionam na prática.
Se você puder fazer isso, eu lhe agradeço.

Abraços.

[fladimir]

Pronto... espero que ajude vc e outros colegas...

Disponível na Seção de Downloads

[]´s

[joelmva]

Fladimir,

Muito obrigado.
Agradeço em meu nome e em nome de todos que tomam contato pela primeira vez com a ferramenta e se deparam com a falta de de um bê-a-bá que permita um aprendizado mais rápido.

Um grande abraço e mais uma vez: OBRIGADO.

[NiltonGM]

Fladimir ou pessoal aí do grupo, por favor, entrei no site da Xailer, mas o danado é pago, 545 € meu! Esse é o preço da versão Enterprise, é a que eu teria que usar com MySQL. Como vocês estão se virando? Tem essa versão Enterprise para baixar sem esse custo?

[fladimir]

Q eu saiba não tem sem custo. A minha comprei em 2012.

Vc pode baixar a versao demo q é completa e fazer seu projeto teste ver se gosta e ver como funciona, ai se decidir faz o investimento

Tb pode mandar um email pra eles perguntando se no valor da versao mais barata disponibilizam o MySQL pra vc, quem sabe, vai q cola.

[NiltonGM]

Legal Fladimir, assim que der vou baixar para testar, vai que vale a pena o investimento! rs