Iniciando o MySql

[Luiz Arruda (ICO)]

Pronto.. agora o bixo vai pegá...

Todos os testes que fiz e tô fazendo é Local.. agora eu é que quero saber como hospedar o BD para trabalhar na NET , ainda não fiz isso.. até pq. eu ia terminar o programa em local e depois que tivesse 100% pronto procuraria usa-lo na NET.. mas me dá a dica de como hospedar que tento ajudar..

Agora é com os experts...

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmai.com

Editado por - ico on 31/08/2010 15:32:54

[Geo_sts]

é que eu tenho um site q tem a opção para mysql se quizer te passo e-mail, se quizer crio um banco pra vc.. trabalhar ai..

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Luiz Arruda (ICO)]

Certo.. vou precisar fazer testes mesmo..

Obrigado.

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmai.com

[Geo_sts]

Mandei pro seu email..

Eu não consegui instalar o MYSQL no meu pc. esta travando..

mesmo assim como seria localmente?

abrss

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Geo_sts]

Consegui... to me encaminhando.. rsrs

vlw

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Geo_sts]

Ico.. pelo host é a mesma coisa q local.... montei um programinha aqui de cadastro.. e entrei em 3 maquina simutaniamente.. rapido e show de bola..

vlw muito pela ajuda.."

abraço..

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Luiz Arruda (ICO)]

Certo... mas como faço pra hospedar o BD na net pra acessar aqui do escritorio e de lá de casa ???

Obrigado..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmai.com

[Luiz Fernando]

citação:

Ico.. pelo host é a mesma coisa q local.... montei um programinha aqui de cadastro.. e entrei em 3 maquina simutaniamente.. rapido e show de bola..

vlw muito pela ajuda.."

abraço..

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

---

id=quote>id=quote>

Ola Geovanni,somente uma curiosidade com qual versão do xharbour vc esta rodando a SQLLIB...

Obrigado

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0

[Geo_sts]

o Luiz.

é a xHarbour Compiler build 1.2.1

flw

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Luiz Fernando]

citação:

é a xHarbour Compiler build 1.2.1

---

id=quote>id=quote>

Achei que a SQLLIB só rodava até a versão 1.1, legal irei aproveitar este tópico mais adiante...

Abraços

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0

[Geo_sts]

opa que bom, eu to iniciando agora.. com a ajuda do ico,zeca, vailton consgui um bom progresso..

mas ainda falta muito..

flw

Abraço..

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Geo_sts]

Onde esta o Erro?

DEFINE DIALOG oDlg FROM 100, 100 TO 600, 800 PIXEL TITLE "Browse Mysql direto"

SQL EXECUTE "SELECT nome FROM produto ORDER BY nome"

dbselectarea("produtos")

SQL EXECUTE "SELECT nome FROM produto ORDER BY nome"

dbgotop()

oBrw := TXBrowse():New( oDlg )

oBrw:cAlias := "produtos"

FOR i := 1 to FCOUNT()

oCol := oBrw:AddCol()

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

oCol:cHeader := FIELDNAME(i)

NEXT i

oBrw:nTop := 10

oBrw:nLeft := 10

oBrw:nRight := 280

oBrw:nBottom := 200

oBrw:nMarqueeStyle := 15

oBrw:SetRDD()

oBrw:CreateFromCode()

ACTIVATE DIALOG oDlg center RESIZE16

A tabela fica como se tivesse algo mas as linhas não aparecen nada;..

=/

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Luisão]

O SQL EXECUTE você usa quando precisa alterar algum dado no banco (Insert, Update, Delete, Alter Table, etc)

Quando precisa que algo retorne do servidor (Select, Show, etc) deve usar o USE SQL ou SQLARRAY.

Dê uma olhada na documentação que encontra mais detalhado.

Mas se fizer

USE SQL "SELECT nome FROM produto ORDER BY nome" ALIAS "produtos" NEW VIA "MySQL"

dbgotop()

Vai ter o resultado que você quer (eu espero)

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY + [Ghost/Java]Script

E-Mail: juninho.luisao@gmail.com

MSN: juninho_luisao@hotmail.com

Skype: luis.fernando.jr

[Geo_sts]

se eu usar

USE SQL "SELECT nome FROM produto ORDER BY nome" ALIAS "produtos" NEW VIA "MySQL"

ta Estouro no Executavel. e pede pra fechar e enviar relatorio..

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Luisão]

Tente mudar o nome do Alias.

Aqui uso dessa forma e dá certo.

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY + [Ghost/Java]Script

E-Mail: juninho.luisao@gmail.com

MSN: juninho_luisao@hotmail.com

Skype: luis.fernando.jr

[Geo_sts]

Da mesmo erro""

=/

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Luiz Arruda (ICO)]

Assim Funfa.. carrego um browse cheinho com isso ;

USE "CADCLI" as "Select * from CADCLI ORDER BY NOME_CLI" Alias "CADCLI" New Via "MySQL"

id=code>id=code>

da uma "Testada" ai...

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmai.com

[Luiz Arruda (ICO)]

Outra Cossita...

Porque vc. não carrega os dados diretamente ao invés de chamar uma função.. cValTochar() é uma function não é ???

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

id=code>id=code>

Eu particularmente faria assim

oCol:bStrData := { || Arq->Nome }

id=code>id=code>

Onde

Arq = Nome da Tabela

Nome = o campo Nome

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmai.com

[Geo_sts]

Ico, deu certo...

mas Não consegui colocar mais q um campo e nem mudar os HEADERS ..

vlw

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Luiz Arruda (ICO)]

Repita o procedimento ADD para cada campo a ser apresentado no browse tipó assim óóóó ;

oCol := oBrw:AddCol()

oCol:bStrData := {|| NOME}

oCol:cHeader := "NOME"

oCol := oBrw:AddCol()

oCol:bStrData := {|| ENDERECO}

oCol:cHeader := "ENDERECO"

oCol := oBrw:AddCol()

oCol:bStrData := {|| NUMERO}

oCol:cHeader := "NUMERO"

oCol := oBrw:AddCol()

oCol:bStrData := {|| ETC}

oCol:cHeader := "ETICETERAS.."

id=code>id=code>

Veja se agora dá

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmai.com

[Geo_sts]

A tendeu""

é que sempre usei o Listbox. =)

mas belzavou testar..

vlw iICo.

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Geo_sts]

Show de Bola.. ta indo.. ta indooo..

a Gente apanha mais aprende..

kkk

Vlw

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Geo_sts]

Bom dia, a quem procurar por esse tópico, aqui vou deixar uma pequena função do mysql, estou disponibilizando um acesso ao mysql na web.

esse é um acesso direto ao mysql do meu web site, não mudar a estrutura principal..

pode criar bancos e exclui.

#include "FiveWin.ch"

#Include "SqlLib.ch"

Procedure Main()

REQUEST SQLLIB, MySQL

RDDSETDEFAULT("MySql")

DBSETDRIVER("MySql")

xresp:="Conectando ao MySql...Aguarde"

SQL CONNECT ON "dbmy0041.whservidor.com";

PORT 3306 ;

USER "drogaredeinf_3" ;

DATABASE "drogaredeinf_3" ;

PASSWORD '******'; // mando por email

LIB 'MySQL'

IF SQLErrorNO() > 0

xresp:="MySql Conectado com sucesso"

Else

xresp:="Erro ao conectar ao MySql..Verifique"

endif

xresp:="Abrindo o Banco Drogaredeinf"

BuscaSQL()

***********************************

function cada()

***********************************

xresp:="Conexão MysQL"

xProd:=space(30)

xcod:=0

xpre:=0

Define Font oFont Name "ARIAL" Size 15,15 Bold

Define Font oFont1 Name "ARIAL" Size 06,16 Bold

Define Font brFont Name "Ms Sans Serif" Size -10,-20 Bold

DEFINE DIALOG oDlg FROM 3,8 TO 40,100 TITLE "..::Conexão MySql Usando "+FWVERSION+" Com "+VERSION() color rgb(255,255,255),(255,255,255)

@2.5,1 say "Código:" font oFont

@03,10 Get xCod of oDlg pict "99999" font ofont size 50,20

@4.5,1 say "Produto:" font oFont

@05,10 Get xProd of oDlg pict "!@" font ofont size 200,20

@6.5,1 say "Preço:" font oFont

@07,10 Get xPre of oDlg pict "999.99" font ofont size 80,20

@02,20 SAY oSayTef PROMPT xResp SIZE 350,26 PIXEL OF oDlg Font brFont COLOR rgb(128,0,0)

@10,10 BUTTON "Cadastrar" OF oDlg ACTION ConectaSQL() SIZE 50,15

@10,30 BUTTON "Sair" OF oDlg ACTION oDlg:End()SIZE 50,15

ACTIVATE DIALOG oDlg center

oBrw:Refresh()

//DBCreate("cadastro1",{{"NOME","C",40,0}, "ANIV","D",10,0}},"MySQL") // cria o banco local ou Externo FW

//sqlexecute("Create Table cadastro2 (NOME VARCHAR (40), ANIV DATE)") //direto

***********************************

Function ConectaSQL() //appe blan

***********************************

SQL EXECUTE "INSERT INTO produtos(nome,cod,valor)"+; // 1/2 Insere campos

"VALUES('"+xprod+"',"+str(xcod,6)+","+str(xpre,7,2)+")" // 2/2 Insere os valores dos campos

Return .t.

***********************************

Function BuscaSQL(oLbx)

***********************************

xbusca:=space(30)

DEFINE DIALOG oDlg FROM 100, 100 TO 600, 800 PIXEL TITLE "Browse Mysql direto"

cQuery:= "select * from produtos Order By nome"

use sql cQuery alias produtos new via 'MYSQL'

oBrw := TXBrowse():New( oDlg )

oBrw:cAlias := "produtos"

oCol := oBrw:AddCol()

oCol:bStrData := { ||str(cod,6)}

oCol:cHeader := "Código"

oCol := oBrw:AddCol()

oCol:bStrData := { ||nome}

oCol:cHeader := "Nome"

oCol := oBrw:AddCol()

oCol:bStrData := { ||str(valor,7,2)}

oCol:cHeader := "Preço"

oBrw:nTop := 10

oBrw:nLeft := 10

oBrw:nRight := 265

oBrw:nBottom := 200

oBrw:nMarqueeStyle := 5

oBrw:SetRDD()

oBrw:CreateFromCode()

@16,05 get xbusca of odlg pict "!@" size 80,15 valid busca2(oBrw,xbusca)

@12,25 button "novo" of oDlg action cada(oBrw,xbusca)

@12,35 button "Alterar" of oDlg action Alter(oBrw,xbusca)

@12,45 button "Excluir" of oDlg action deleteP(oBrw,xbusca)

oBrw:bLDblClick = { | nRow, nCol | Alter( oBrw, nRow, nCol ) }

ACTIVATE DIALOG oDlg center RESIZE16

SQL DISCONNECT []

****************************

function alter(lSave)

****************************

xresp:="Conexão MysQL"

xProd:=nome

xcod:=cod

Xcood:=cod

xpre:=valor

lSave:=.f.

Define Font oFont Name "ARIAL" Size 15,15 Bold

Define Font oFont1 Name "ARIAL" Size 06,16 Bold

Define Font brFont Name "Ms Sans Serif" Size -10,-20 Bold

DEFINE DIALOG oDlg FROM 3,8 TO 40,100 TITLE "..::Conexão MySql Usando "+FWVERSION+" Com "+VERSION()

@2.5,1 say "Código:" font oFont

@03,10 Get xCod of oDlg pict "99999" font ofont size 50,20

@4.5,1 say "Produto:" font oFont

@05,10 Get xProd of oDlg pict "!@" font ofont size 200,20

@6.5,1 say "Preço:" font oFont

@07,10 Get xPre of oDlg pict "999.99" font ofont size 80,20

@02,20 SAY oSayTef PROMPT xResp SIZE 350,26 PIXEL OF oDlg Font brFont COLOR rgb(128,0,0)

@10,10 BUTTON "Salvar" OF oDlg ACTION (lSave:=.t.,oDlg:End()) SIZE 50,15

@10,30 BUTTON "Sair" OF oDlg ACTION oDlg:End()SIZE 50,15

ACTIVATE DIALOG oDlg center

oBrw:Refresh()

if lSave

IF SELECT( "produtos" ) <> 00

CLOSE produtos

ENDIF

cQuery:= "select * from produtos Order By nome"

use sql cQuery alias produtos new via 'MYSQL'

SQL EXECUTE "UPDATE `drogaredeinf`.`produtos` SET `cod` ='"+str(Xcod)+"',`nome` ='"+ALLTRIM(XPROD)+"',`valor` ='"+str(xpre,7,2)+"' WHERE `produtos`.`cod` ="+str(Xcood)+";"

commit

endif

IF SELECT( "produtos" ) <> 00

CLOSE produtos

ENDIF

cQuery:= "select * from produtos Order By nome"

use sql cQuery alias produtos new via 'MYSQL'

oBrw:Refresh()

return(.t.)

***********************************

Function deletep()

***********************************

xcod:=cod

xProd:=alltrim(nome)

if MsgYesNo("DELETAR "+xprod +"?","Atençaõ")

IF SELECT( "produtos" ) <> 00

CLOSE produtos

ENDIF

cQuery:= "select * from produtos Order By nome"

use sql cQuery alias produtos new via 'MYSQL'

SQL EXECUTE "DELETE FROM `drogaredeinf`.`produtos` WHERE `produtos`.`cod` ="+str(Xcod)+";"

commit

else

endif

IF SELECT( "produtos" ) <> 00

CLOSE produtos

ENDIF

cQuery:= "select * from produtos Order By nome"

use sql cQuery alias produtos new via 'MYSQL'

oBrw:Refresh()

return(.t.)

***********************************

Procedure Busca2(oBrw,xbusca)

***********************************

IF SELECT( "produtos" ) <> 00; CLOSE produtos; ENDIF

nForm:=subs(xbusca,1,1)

if nform='1' .or. nform='2' .or. nform='3' .or. nform='4' .or. nform='5' .or. nform='6' ;

.or. nform='7' .or. nform='8' .or. nform='9' .or. nform='0'

cQuery:= "select * from produtos Where cod LIKE '"+alltrim(xbusca)+"%' Order By cod"

else

cQuery:= "select * from produtos Where nome LIKE '"+alltrim(xbusca)+"%' Order By nome"

endif

use sql cQuery alias produtos new via 'MYSQL'

oBRW:GoTop()

oBrw:Refresh()

Return(.t.)

Abs..

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4 MySql

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Geo_sts]

Ico, Lembra do Exemplo que vc mandou pra mim..

Belelza tudo q eu faço naquele exemplo ele compila..

mas se eu mudo de projeto.. Ex. do meu caixa.xdev

coloquei as libs e comparei.. igualzinho.. mas da erro. como se não achasse a função...

Executando: ILINK32 @B32.BC

Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland

Error: Unresolved external '_HB_FUN_SL_CONN' referenced from C:\PLUS\SPLUS.OBJ

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4 MySql

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

Editado por - geo_sts on 16/09/2010 08:09:09

[Geo_sts]

projeto esta com

#include "sqllib.ch"

e libmysql.lib

Erro..

Executando: ILINK32 @B32.BC

Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland

Error: Unresolved external '_HB_FUN_SL_CONN' referenced from C:\PLUS\SPLUS.OBJ

Onde fica esta esse '_HB_FUN_SL_CONN'?

vlw

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4 MySql

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"