?Browse com SqlLib

m.mac · October 6, 2006

OlÃ¡ Evandro,

Primeiro quero agradecer sua atenÃ§Ã£o e empenho.

Segundo gostaria de pedir para encaminhar novamente o e-mail com o arquivo zipado, pois meu provedor bloqueou o .prg.

Terceiro, acho que nÃ£o consegui me fazer entender. AtÃ© concordo contigo que as linhas do exemplo que te passei podem gerar erro devido ao nÃºmero de campos (2) da tabela da base do Vailton, o problema Ã© que, mesmo que eu tire esta linha e coloque um simples MsgInfo("teste") o programa aborta, e aborta na linha "do while !eof()", ou seja, nÃ£o chega a entrar no while.

Assim:

do while !eof() // <-- AQUI CAI FORA ..

msginfo("teste")

DBSKIP()

enddo

Se eu colocar um for/next funciona, eu jÃ¡ havia testado isso.

O mesmo acontece nas outras situaÃ§Ãµes citadas anteriormente (origem desse tÃ³pico), ou seja, quando vai instanciar o ListBox(1) ou o xBrowse(2).

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

(2) oxBrw:CreateFromCode()

Acredito que contigo este mesmo cÃ³digo funcione, por isso eu acho muito estranho, a nÃ£o ser que houvesse alguma configuraÃ§Ã£o de ambiente errada.

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Ã¡,

EntÃ£o nem adianta te enviar o prg. A Ãºnica alteraÃ§Ã£o foi esta, do field(). NÃ£o gera error.log (nÃ£o sqllog.txt, mas error.log)?

[]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

personal · October 6, 2006

Amiguinho.

To pegando o bonde andando.

Poste como esta abrindo os arquivos e a linha o ListBox.

Veja bem, copie e cole do seu programa.

Oliveira, SÃ©rgio A.

PERSONAL Comp. e Sitemas.id=green>

Lins - SP ** sergio@personal.com.br

FWH 2.5, xharbour 0.99.4, SqlLib, MySql, brMake.

TWBrowse(),C5Menu,vPrinter

m.mac · October 6, 2006

OlÃ¡,

Evandro, o SqlLib.LOG (SqlLib) estÃ¡ vazio e o Error.LOG (FWH) tem apenas registros de erros de sintaxes, mas nada a ver com o problema comentado.

SÃ©rgio, segue o programa de teste que eu e o Evandro estamos analisando.

Para mim, o programa se conecta Ã base remota do Vailton, abre a tabela clientes, tudo certo, mas na hora de exibir o ListBox a dialog apenas dÃ¡ uma "piscada" na tela e jÃ¡ some, ou seja, tudo indica que seja nesta linha o problema: @ 01, 01 LISTBOX oLbx ...

O mesmo ocorre quando tento exibir os dados no xBrowse, quando chega na linha oBrw:CreateFromCode() faz a mesma coisa.

Parece atÃ© problema de Canvas. Alguma sugestÃ£o ?

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

#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

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

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

AbraÃ§o,

Marcelo Alessandro

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

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

CIACPD · October 6, 2006

Amigo depois da linha RDDSetDefault('MySQL'), voce poderia colocar a linha abaixo:

sql_log()

depois de testar verifique se tem novidades em teu arquivo sqllog.txt.

neste servidor eu nunca consegui conectar mais no meu servidor particular foi de primeira.

a SqlLib Ã© d+ sÃ³ to esperando ganhar um dinheiro pra comprar a comercial pois ja trabalho com a free

Daniel Segura

ciacpd@terra.com.br

Geraldo (gbsilva) · October 7, 2006

SÃ³ para constar peguei o exemplo que o Evandro postou na pÃ¡gina 1 e compilei e da empresa nÃ£o consegui, sÃ³ que nÃ£o tive nem tempo de ver o erro, mas com certeza tem a ver com o bloqueio do servidor para acesso externo.

De casa compilei e acessei normalmente, pode ser o local de onde vocÃª esta tentando.

Um abraÃ§o,

Geraldo Barbosa da Silva

FWH 2.6 + xHarbour 0.99.50 (Simplex) + Bcc55 + Pelles + MyMake

Windows Xp SP2

lucgera@terra.com.br

SÃ£o Paulo - SP

m.mac · October 7, 2006

OlÃ¡ Geraldo,

Na verdade eu estou conseguindo acessar normalmente, tanto a minha base local quanto a remota.

Para mim, o programa se conecta Ã base remota do Vailton, abre a tabela clientes, tudo certo, mas na hora de exibir o ListBox a dialog apenas dÃ¡ uma "piscada" na tela e jÃ¡ some, ou seja, tudo indica que seja nesta linha o problema: @ 01, 01 LISTBOX oLbx ...

O mesmo ocorre quando tento exibir os dados no xBrowse, quando chega na linha oBrw:CreateFromCode() faz a mesma coisa.

Vou tentar desinstalar o MySql e instalar novamente... jÃ¡ estou apelando pra qualquer coisa, :-)

AbraÃ§o,

Marcelo Alessandro

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

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

Marca · October 7, 2006

OlÃ¡ Xara

p. acaso a Dll LibMysql.dll esta no diretorio onde vc esta tentando rodar este demo ?

Marcelo Ferro

Fwh25/xHarbour 99.3/SqlLib /xMate/WS

Kleyton · October 8, 2006

Este servidor permite incluir e alterar registro na tabela indicada.

Peguei este exemplo e compilei normalmente, e inclui um botÃ£o para incluir e alterar, mas estÃ¡ gerando erro no momento que mandar gravar. Tipo assim:

Begin Transaction

select CLI

append blank

replace cli->nome with clie_get

replace cli->cidade with cida_get

End Transaction

Vale lembrar que estou utilizando o demo da SQLLIB Comercial.

Kleyton

xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d

cleitonbala@bol.com.br

m.mac · October 9, 2006

OlÃ¡,

Kleyton ou outro amigo, alguÃ©m poderia compilar o exemplo postado anteriormente mas utilizando o xBrowse ao invÃ©s do Listbox e colar uma imagem da janela aqui ? Gostaria de ver como os dados sÃ£o dispostos na tela pois para mim continua dando um erro na apresentaÃ§Ã£o.

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

por:

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()

Obrigado,

Marcelo Alessandro

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

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

vailtom · October 10, 2006

Notei que algo importante nÃ£o foi mencionado.

Voc Ãª disse que estÃ¡ usando FW 2.7, xH 0.96 e a demo da SqlLib

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

laurenti · October 10, 2006

Verifique apÃ³s o USE como estÃ¡ a estrutura do dbf criado. se campos foram criados corretamente. !!!!!!!

FW26/XH9950/Pelles/ Mysql

laurentinocarlos@gmail.com

Rio de Janeiro/Montes Claros MG

m.mac · October 10, 2006

OlÃ¡,

Laurenti, conferi a estrutura dos dados e estÃ¡ correta.

Vailton, estou usando o xHarbour simplex 0.99.4 e nÃ£o o 0.96, pode ser a versÃ£o ?

E quanto ao FWH, funciona a SqlLib a partir de qual versÃ£o ?

AbraÃ§os,

Marcelo Alessandro

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

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

vailtom · October 11, 2006

Marcelo, vocÃª estÃ¡ usando o FWH 2.7 com o xHarbour 99.4 ???

Veja o mÃªs do teu FWH dentro do arquivo FIVEWIN.CH na pasta INCLUDE e me confirme isto, por favor.

E o seu problema, pode ser algo com a versÃ£o do xHB diferente sim...

Aguardo teu retorno.

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

?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

Join the conversation