?Browse com SqlLib

m.mac · October 2, 2006

OlÃ¡, sei que vÃ¡rias pessoas aqui utilizam SqlLib e MySQL bem como Browse's para exibir dados.

Pergunto: AlguÃ©m utiliza os recursos mencionados com xBrowse ? Pode postar um exemplo, pois estou conectando e abrindo o banco sem problemas, mas na hora de exibir no xBrowse o sistema simplesmente cai fora...

Qual a melhor alternativa ao xBrowse para exibir dados MySQL/SqlLib ?

m.mac · October 2, 2006

OlÃ¡, sei que vÃ¡rias pessoas aqui utilizam SqlLib e MySQL bem como Browse's para exibir dados.

Pergunto: AlguÃ©m utiliza os recursos mencionados com xBrowse ? Pode postar um exemplo, pois estou conectando e abrindo o banco sem problemas, mas na hora de exibir no xBrowse o sistema simplesmente cai fora...

Qual a melhor alternativa ao xBrowse para exibir dados MySQL/SqlLib ?

vailtom · October 2, 2006

No arquivo SQLLOG.TXT hÃ¡ alguma informaÃ§ao adicional sobre o erro?

Vailton Renato

***

#include "4evento_fw.ch"

lAnsioso := Date() <= CTOD( '25/11/2006' )

if lAnsioso

Alert( "Eu Apoio e vou ao :;" +;

"IV ENCONTRO DE PROG. FW ;" +;

"Dia : 25/11/2006 e vc?",{'Eu tb!','Claro!','Com cerveja!'})

end

m.mac · October 2, 2006

NÃ£o Vailtom, aliÃ¡s o arquivo SQLLOG.TXT estÃ¡ vazio.

Como disse, estou conseguindo abrir o banco normalmente, o problema estÃ¡ na hora de "conectÃ¡-lo" ao xBrowse.

Ã‰ Vailtom (nome de membro) ou Vailton (da assinatura) ?

vailtom · October 3, 2006

Vailton Renato ...

Vou tentar reproduzir isto q me falaste. Qual tua versÃ£o da SQL LIB e qual tua versÃ£o do xHB por favor ?

Vailton Renato

***

#include "4evento_fw.ch"

lAnsioso := Date() <= CTOD( '25/11/2006' )

if lAnsioso

Alert( "Eu Apoio e vou ao :;" +;

"IV ENCONTRO DE PROG. FW ;" +;

"Dia : 25/11/2006 e vc?",{'Eu tb!','Claro!','Com cerveja!'})

end

kleyber · October 3, 2006

OlÃ¡ m.mac (ainda nÃ£o sabemos o seu nome),

Poderias postar o cÃ³digo do xbrowse pra vermos como vc estÃ¡ fazendo?

AbraÃ§o,

Kleyber Derick

xHarbour 0.99.4 + FWH 2.5

Visite SÃ£o LuÃs - MA A Ilha dos Amores

Burai · October 3, 2006

OlÃ¡!

Embora eu nÃ£o use a SQLLIB especificamente, mas o SQLRDD do xHarbout Builder, eu carrego todos os browses/listboxes com arrays. Executo minha query SQL e carrego os dados em array e monto o browse a partir do array. Eu prefiro, pois sÃ³ carrego as colunas que me interessam...

Bom, nÃ£o conheÃ§o a SQL LIB, mas certamente deve ter esse recurso de carregar dados pra um array :-)

[ ]'s

Maurilio

FWH 2.7 | xHarbour.com | SQLRDD | Workshop 4.5

GarÃ§a - SP

vailtom · October 3, 2006

No manual consulte: SQLArray(), USE SQL.

Um grande abraÃ§o Ã todos!

Vailton Renato

***

#include "4evento_fw.ch"

lAnsioso := Date() <= CTOD( '25/11/2006' )

if lAnsioso

Alert( "Eu Apoio e vou ao :;" +;

"IV ENCONTRO DE PROG. FW ;" +;

"Dia : 25/11/2006 e vc?",{'Eu tb!','Claro!','Com cerveja!'})

end

m.mac · October 4, 2006

OlÃ¡ Kleyber e Vailton, me desculpem a distraÃ§Ã£o..

Estou usando FW 2.7, xH 0.96 e a demo da SqlLib.

Segue um teste simples que estou fazendo com MySQL/SqlLib/xBrowse:

//======================================================

#include "FiveWin.ch"

#include "sqllib.ch"

#translate TRUE => .T.

#translate FALSE => .F.

REQUEST SQLLIB

REQUEST MySQL

Function Main()

public oDlg

public connect := true

RDDSetDefault('MySQL')

DEFINE DIALOG oDlg FROM 100, 100 TO 450, 600 PIXEL TITLE "SQL Lib"

CLOSE ALL

CheckConn()

USE CLIENTES AS "SELECT CodiClie, NomeClie FROM Clientes ORDER BY CodiClie" VIA 'mysql'

dbselectarea("CLIENTES")

dbgotop()

oBrw := TXBrowse():New( oDlg )

oBrw:cAlias := "Clientes"

FOR i := 1 to FCOUNT()

oCol := oBrw:AddCol()

oCol:bStrData := {|| cValToChar( FIELDGET(i))}

oCol:cHeader := FIELDNAME(i)

NEXT i

oBrw:nTop := 170

oBrw:nLeft := 2

oBrw:nRight := 450

oBrw:nBottom := 300

oBrw:nMarqueeStyle := 4

oBrw:SetRDD()

oBrw:CreateFromCode() // *** AQUI CAI FORA ***

ACTIVATE DIALOG oDlg CENTERED

return nil

//=======================================================================

function CheckConn()

static hasconnected := false

local host, db, user, pwd

/* Ã‰ para se conectar novamente, mas jÃ¡ existe conexÃ£o aberta?*/

if connect .and. hasconnected

hasconnected := false

SQL DISCONNECT

end if

/* JÃ¡ se conectou e nÃ£o precisa se conectar novamente...*/

if hasconnected .and. !connect

return nil

end if

if bRemote

host := 'kssoftware.com.br'

db := 'kssoftwa_sqllib'

user := 'kssoftwa_sqllib'

pwd := 'sqllib'

else

host := 'localhost'

db := 'test'

user := 'root'

pwd := ''

end if

SQL CONNECT ON host;

PORT 3306 ;

DATABASE db ;

USER user ;

PASSWORD pwd ;

LIB "MySQL"

hasconnected := true

return

//========================================================================

AbraÃ§o,

Marcelo Alessandro

kleyber · October 4, 2006

Marcelo,

Experimente trocar esta linha:

citaÃ§Ã£o:USE CLIENTES AS "SELECT CodiClie, NomeClie FROM Clientes ORDER BY CodiClie" VIA 'mysql'

id=quote>id=quote>

por:

citaÃ§Ã£o:USE CLIENTES

id=quote>id=quote>

E me diga o que acontece

AbraÃ§o,

Kleyber Derick

xHarbour 0.99.4 + FWH 2.5

Visite SÃ£o LuÃs - MA A Ilha dos Amores

m.mac · October 4, 2006

Kleyber,

Colocando simplesmente "USE CLIENTES" o programa aborta nesta linha mesmo.

AbraÃ§o,

Marcelo Alessandro

-------------------

Fwh 2.7/xH 0.99.4 (simplex)/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Marca · October 4, 2006

Ola Xara

Vc jÃ¡ instalou o servidor mysql ou esta tentando usar a base do Renato

Marcelo Ferro

Fwh25/xHarbour 99.3/SqlLib /xMate/WS

laurenti · October 4, 2006

Eu uso de duas formas, com o array ou tipo dbf .

veja ai se te ajuda !!!

//usando o browse com arquivo tipo dbf

cCmdsql := 'select codigo, titulo from fpcodrec order by titulo'

use sql cCmdSql alias consulta new via 'MYSQL'

aCab :={'Codigo','Descricao da receita'}

oLbxcons:= TWBrowse():ReDefine( 600,, oDlgcons,aCab,,,,,,,,,,,,, .F.,,,,, )

oLbxcons:nLineStyle := 2

oLbxcons:nHeaderStyle:= 2

oLbxcons:bBkColor:= {|nRow,nCol,nStyle| if( nStyle==1,CLR_RED, ) }

oLbxcons:bTextColor:= {|nRow,nCol,nStyle| if( nStyle==1,CLR_YELLOW, ) }

oLbxcons:bKeyDown:={|nKey| iif(nKey=VK_RETURN,troca(@lAlt,oDlgcons),busca(nKey,oDlgcons,cAlias,aoGetp,aGetp,@cPesq,cBusca,oLbxcons))}

//USANDO O BROWSE COM O ARRAY DIRETO DO SELECT

cCmdSql :='SELECT " " AS marca , "Adt.Dep" AS TIPO, DATA AS DATA, " " AS VENC, " " AS DOC, vlr_adiant AS VALOR, sql_rowid as reg, juros, conta FROM adtmes '

cCmdSql +='WHERE adt_creli IS NULL '

cCmdSql +='AND adt_retor IS NULL '

cCmdSql +='AND vlr_adiant <> 0 '

cCmdSql +='UNION ALL '

cCmdSql +='SELECT " " AS marca , "Titulos" AS TIPO, tit_emis AS DATA, tit_vcto AS VENC,tit_ndoc AS DOC,tit_valor AS VALOR, sql_rowid as reg, tit_tparc, clf_conta as conta FROM ep_tits AS tit '

cCmdSql +='WHERE tit.tit_vcto < curdate() AND tit.tit_pgto IS NULL '

cCmdSql +='AND tit.tit_creli IS NULL '

cCmdSql +='UNION ALL '

cCmdSql +='SELECT " " AS marca , "Desconto" AS TIPO, cdd_emis AS DATA, cdd_vcto AS VENC, cdd_ndoc AS DOC,cdd_valor AS VALOR, sql_rowid as reg, cdd_numero, clf_conta as conta FROM ep_desc AS cdd '

cCmdSql +='WHERE cdd_vcto < curdate() AND cdd_baixa IS NULL '

cCmdSql +='AND cdd_creli IS NULL '

cCmdSql +='ORDER BY (concat(conta,tipo)) '

aDocs:=SQLArray( cCmdSql, SqlGetConn() )

if !empty(aDocs)

DEFINE DIALOG oDlg RESOURCE 'EXEMPLO' ICON oVS:vpoIco

REDEFINE LISTBOX oLbx FIELDS iif(aDocs[olbx]=' ',aHBitMaps[1],aHBitMaps[2] ) ,;

aDocs[olbx],aDocs[olbx], dtoc( FazData( aDocs[olbx],'AAAA-MM-DD' ) ),dtoc( FazData( aDocs[olbx],'AAAA-MM-DD' ) ),;

aDocs[olbx],transform( val(aDocs[olbx]), oVS:nove ) ;

HEADERS aHBitMaps[1],'Conta','Tipo','Emissao','Venc.','Doc','Valor' ;

FIELDSIZES 20, 80, 80, 80, 80, 100, 100 ;

COLORS CLR_BLUE,CLR_WHITE;

ID 103 OF oDlg ;

ON DBLCLICK MarcaDesVet(aDocs, oLbx)

oLbx:aJustify:= { 2, 2, 2, 2, 2, 2, 3 }

olbx:SetArray(aDocs)

olbx:refresh()

endif

FW26/XH9950/Pelles/ Mysql

laurentinocarlos@gmail.com

Rio de Janeiro/Montes Claros MG

m.mac · October 5, 2006

Laurenti, obrigado pelas dicas. PorÃ©m acho que trabalhamos de formas diferentes, por exemplo, nÃ£o uso recursos, nÃ£o uso (por enquanto) browse com array e sÃ³ uso xBrowse... :-)

Estou relutando em trocar de classe browse pois jÃ¡ fiz vÃ¡rios ajustes no xBrowse e que pra mim ficaram bons.

Meu problema estÃ¡ na hora de exibir o xBrowse. Carrego o servidor do MySQL, abro tabelas, exibo dados em outros objetos como o Combo por exemplo, mas quando chamo o mÃ©todo :CreateFromCode() do xBrowse o programa cai.

VocÃª tem algum exemplo de uso de xBrowse com RDD MySQL ??

AbraÃ§o

Marcelo Alessandro

------------------

Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

evandro · October 5, 2006

OlÃ¡,

Fiz pequenas alteraÃ§Ãµes no seu exemplo, e coloquei para acessar a base remota (kssoftware.com.br) que o VaÃlton liberou para testes. Funciona normalmente. Veja abaixo:

//======================================================

#include "FiveWin.ch"

#include "sqllib.ch"

#translate TRUE => .T.

#translate FALSE => .F.

REQUEST SQLLIB

REQUEST MySQL

Function Main()

public oDlg

public connect := true

RDDSetDefault('MySQL')

DEFINE DIALOG oDlg FROM 100, 100 TO 450, 600 PIXEL TITLE "SQL Lib"

CLOSE ALL

CheckConn()

cCmdSql:='SELECT nome, cidade FROM cadacli ORDER BY nome'

use sql cCmdSql alias cli new via 'MYSQL'

dbselectarea("cli")

dbgotop()

@ 01, 01 LISTBOX oLbx FIELDS cli->nome, cli->cidade HEADERS 'Nome', 'Cidade' OF oDlg PIXEL SIZES 220, 720

//oBrw:CreateFromCode() // *** AQUI CAI FORA *** ///// deve ser algum problema com a tabela que estavas acessando

ACTIVATE DIALOG oDlg CENTERED

return nil

//=======================================================================

function CheckConn()

static hasconnected := false

local host, db, user, pwd

/* Ã‰ para se conectar novamente, mas jÃ¡ existe conexÃ£o aberta?*/

if connect .and. hasconnected

hasconnected := false

SQL DISCONNECT

end if

/* JÃ¡ se conectou e nÃ£o precisa se conectar novamente...*/

if hasconnected .and. !connect

return nil

end if

host := 'kssoftware.com.br'

db := 'kssoftwa_sqllib'

user := 'kssoftwa_sqllib'

pwd := 'sqllib'

SQL CONNECT ON host;

PORT 3306 ;

DATABASE db ;

USER user ;

PASSWORD pwd ;

LIB "MySQL"

hasconnected := true

return

//========================================================================

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

jcleoner · October 5, 2006

Marcelo

Antes de voce quebrar a cabeÃ§a, verifique se o xBrowse Ã© compatÃvel com a SqlLib, pois o xBrowse nÃ£o Ã© o browse padrÃ£o do fivewin. Consulte o Vailton.

Uso o twbrose e funciona perfeitamente, tanto para as tabelas como para arrays.

JosÃ© Carlos

Guarulhos-SP

FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql)

evandro · October 5, 2006

OlÃ¡,

citaÃ§Ã£o:Antes de voce quebrar a cabeÃ§a, verifique se o xBrowse Ã© compatÃvel com a SqlLib, pois o xBrowse nÃ£o Ã© o browse padrÃ£o do fivewin.

id=quote>id=quote>

NÃ£o hÃ¡ diferenÃ§a entre um arquivo dbf e uma tabela SQL depois de abertos. Ã‰ tudo a mesma coisa. Portanto nÃ£o hÃ¡ incompatibilidade com qualquer browse (xBrowse, TWBrowuse, TSBrowse, etc.). Funciona com DBF, funciona com SQLLIB.

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

m.mac · October 5, 2006

Evandro, peguei o cÃ³digo que vocÃª postou e criei um novo .prg.

Resultado: Conectou ao banco remoto normalmente, abriu a tabela sem problemas, mas... quando chegou na linha de montar o listbox (@ 01, 01 LISTBOX oLbx FIELDS ...) deu crepe !!

EstÃ¡ muito estranho, observei agora que quando coloco um

Poderia ser a configuraÃ§Ã£o do meu servidor MySql ou do ambiente FWH ?

-------------

AbraÃ§os,

Marcelo Alessandro

------------------

Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

evandro · October 5, 2006

OlÃ¡,

citaÃ§Ã£o:Resultado: Conectou ao banco remoto normalmente, abriu a tabela sem problemas, mas... quando chegou na linha de montar o listbox (@ 01, 01 LISTBOX oLbx FIELDS ...) deu crepe !!

id=quote>id=quote>

NÃ£o Ã© que deu crepe. Ã‰ que com @SAY eu nÃ£o vou ficar perdendo tempo de achar as coordenada para uma boa apresentaÃ§Ã£o.

citaÃ§Ã£o:EstÃ¡ muito estranho, observei agora que quando coloco um
do while !eof() pra exibir os dados o programa aborta tambÃ©m...

Poderia ser a configuraÃ§Ã£o do meu servidor MySql ou do ambiente FWH ?

id=quote>id=quote>

NÃ£o deve ser. Poste a parte com o do while para vermos o que pode estar acontecendo.

citaÃ§Ã£o:E aÃ Vailton, o xBrowse Ã© compatÃvel com a SqlLib ?

id=quote>id=quote>

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

m.mac · October 5, 2006

OlÃ¡ Evandro,

Quando digo que "deu crepe" nÃ£o estou me referindo Ã apresentaÃ§Ã£o mas sim que o programa aborta (encerra) nesta linha e volta o controle ao S.O.

Quanto ao xBrowse ser compatÃvel com FW confesso que fiquei preocupado quando o JosÃ© Carlos questinou e nÃ£o tinha observado que vocÃª jÃ¡ havia respondido quando perguntei ao Vailton, de qualquer forma obrigado !

Segue apenas o trecho alterado que fiz pra testes:

...

dbselectarea("cli")

dbgotop()

do while !eof() //APENAS PARA EXIBIR OS DADOS

msginfo(FIELDNAME(recno()) + " - " + cValToChar(FIELDGET(recno())))

DBSKIP()

enddo

@ 01, 01 LISTBOX oLbx FIELDS cli->nome, cli->cidade HEADERS 'Nome', 'Cidade' OF oDlg PIXEL SIZES 220, 720

...

Obs: Se coloco simplesmente "MsgInfo(cValToChar(FIELDGET(recno())))" exibe normal a informaÃ§Ã£o ("AAAAAAAAAABBBBBBE") da base do Vaiton.

AbraÃ§o,

Marcelo Alessandro

------------------

Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

evandro · October 5, 2006

OlÃ¡,

Veja o erro que dÃ¡, pois se vocÃª nÃ£o alterou nada no exemplo, roda legal. Mesmo as linha que vocÃª passou, que tem erro. O arquivo sÃ³ tem dois campos( selecionamos nome e cidade apenas). VocÃª pede para listar um campo maior que isto (fieldname( recno()) -> recno() =3, 4 ou mais )

do while !eof() //APENAS PARA EXIBIR OS DADOS

msginfo(FIELDNAME(recno()) + " - " + cValToChar(FIELDGET(recno())))

DBSKIP()

enddo

Colei aqui no exemplo e rodou legal.

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

Editado por - evandro on 05/10/2006 19:40:40

m.mac · October 6, 2006

Evandro,

Continua o problema e nÃ£o sei mais o que pensar.. Se o servidor MySQL estÃ¡ instalado e rodando, abro as tabelas tanto local quanto remota sem problemas, se o ambiente xH/FW estÃ¡ certo (pois rodo meus projetos normalmente) nÃ£o entendo por que numa linha simples como um "do while !eof()" ou quando mando desenhar um ListBox ou um Browse com os dados o programa aborta...

JÃ¡ verifiquei e o MySQL nÃ£o estÃ¡ gerando nada no arquivo de Log.

Estou pensando na configuraÃ§Ã£o do Servidor MySQL instalado na minha mÃ¡quina. Como fiz a primeira instalaÃ§Ã£o agora imagino que tenha algo que nÃ£o esteja corretamente configurado.

VocÃª (ou o Vailton) saberiam me passar a configuraÃ§Ã£o bÃ¡sica e correta pro servidor MySQL apenas pra verificar ?

AbraÃ§o,

Marcelo Alessandro

------------------

Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

evandro · October 6, 2006

OlÃ¡,

A configuraÃ§Ã£o do servidor deve estar certa pois se vocÃª seguiu o default, vai funcionar. Mande novamente o prg (mas com o acesso Ã base remota, senÃ£o nÃ£o tem jeito de testar) veja se gerou o errorlog e mande tambÃ©m.

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

Editado por - evandro on 06/10/2006 13:37:28

m.mac · October 6, 2006

Evandro, enviei o .PRG.

O SQLLOG.TXT estÃ¡ vazio.

AbraÃ§o,

Marcelo Alessandro

------------------

Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

evandro · October 6, 2006

OlÃ¡,

Te respondi o emeio. O erro estÃ¡ aqui:

msginfo(FIELDNAME(recno()) + " - " + cValToChar(FIELDGET(recno())))

NÃ£o pode ser fildname( recno() ) pois sÃ³ temos dois campos.

Troque por:

for x=1 to 2 // aqui teria de colocar a qtde de campos. como eu sei que sÃ£o dois....

msginfo( FIELDNAME(x) + " - " + cValToChar( FIELDGET(x)) )

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

?Browse com SqlLib

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation