Milton Carlos

ola amigo Douglas, acho q me expressei errado, eu gostaria atraves do Delphi implementar uma rotina q faça a busca somente do(s) database(s) que fica no banco de dados e poder jogar num componente Treeview, não quero gerenciar o banco mas sim pegar os nomes q estão la, talves com o tempo possa querer implementar algo q genrencie atraves do delphi, mas pra imediato quero somente pegar os nomes e escolher depois qual database use ativo. obrigado +1max

Querido Jhonas Agradeço a vossa presteza e compreenção em ajudar-me, + 1max ok, solucionado deu certo, pode fechar o tópico e obrigado +1max sempre... não sei se é feitil o pessoal fazer isto mas gostaria q você envie para mim por e-mail o numero da conta e bando q você tem, pois vou lhe fazer 1ma gentil oferta não sera muito mas já pra começar pois você esta sendo de grande ajuda para mim, nesta parte de ZeosSql+mysql+delphi no qual ainda confeço-lhe não tenho toda experiencia necessaria para abordar os erros surgidos ok... e se possivel você enviar também como se usar com campos data, hora e valor dinheiro ok... obrigado e q você tenho sempre a luz q você esta recebendo e q você sempre passe adiante as grandes informações que lhe são emitidas e enviadas até você, e sei q você também passou por apuros e teve q ralar muito pra chegar onde chegou e parabens e muito obrigado por você existir sempreusouMilton Carlo$.

Experimente usar o between exemplo: zquery1.Close; zquery1.Open; ZQuery1.Active:=true; ZQuery1.SQL.Clear; ZQuery1.SQL.Append('select codigo, nome, endereco from cliente ' + 'where codigo between '+ '''' + edit1.Text + '''' + 'and '+ '''' + edit2.Text + ''''); ZQuery1.ExecSQL; abraço Ola querido Jhonas saudações +1max a ti o motivo de não estar saindo no dbgrid era a instrução ZQeury1.ExecSql fiz uma rotina para ir verificando passo a passo onde estava o problema e ai chegou nesta linha, retirei a instrução e funcionou mostrou os dados, só q o porem agora é q quando uso o intervalo ex: de 1 a 5 ele mostra tudo, ai coloco de 10 a 15 ele mostra todos corretos, ai coloco de 1 a 10 ele mostra somente o 1 e o 10, ai coloco do 8 a 12 ele trava o botão e não executa nada. outro fato q reparei também quando eu faço a pesquisa por nome na instrução ZQuery.first ele posiciona no registro q estou procurando, mas quando ele limpa a ZQuery.sql.clear e depois faz a instrução ZQuery2.SQL.Append('select codigo, nome, endereco from cliente ' + 'where nome='+ '''' + edit1.Text + ''''); ela não acha nada, já usei a função trim() para retirar os espaços em branco e nada também, outra coisa q percebi quando eu entro a primeira vez para pesquisar ele não mostra no ZQuery.First, mas ai se eu mandar pesquisar novamente pela segunda vez ele acha o registro mas ai depois a sql não acha e nem mostra... como não tenho muita experiencia com instruções sql e o Zeos posso estar esquecendo de algo q pode ser simples pra quem já tem o conhecimento mas para mim ainda não estou adaptando, mas tenho percistencia e perceverança e acima de tudo paciencia para aguardar o momento e o tempo certo para desbravar e obter os resultados desejados, e +1max eu lhe agradeço a sua presença e sua estimada ajuda ok. obrigado Milton Carlo$

Ola a todos, já procurei no forum e não consegui encontrar, preciso pegar os nomes dos databases do servidor + especifico o servidor que esta o phpmyadmin la tem varios databases e suas tabelas, quero q o programa vai no servidor e pega todas os database e adciona num treeview e depois quando eu clicar no treeview num determinado database ele abre em outro treeview as tabelas e quando eu clicar neste treeview em alguma tabela ela abre num listview ou outro para mostrar, ai se precisar alterar algum dado eu altero e ele grava no servidor atualizando o database e a tabela. Obrigado +1max pela 1majuda q você´s estão me dando.

Sim.. voce deve usar um visualizador de arquivos ... O Peeper consegue visualizar mais de 30 tipos diferentes de arquivos, e com ele voce pode suprimir parte do código com problema. http://www.softlookup.com/display.asp?id=25247 abraço Ola saudações Jhonas, obrigado por dar a dica correta para solucionar este caso. tudo ok, consegui abrir o .dfm e ver onde estava gravado o .avi, restaurei o diretorio em questão e abriu então tópico resolvido pode fechar +este ok... +1max obrigado a voce´s, digo no plural pois nós somos varios dentro de nós mesmos. abraçosempreusoumilton carlo$

Os dados serão mostrados no DBGrid se voce colocar o nome do seu DataSource na propriedade DataSource do DBGrid abraço Caro Jhonas, agradeço muito pela sua atenção depositada, mas as ligações já estão feitas e funcionando, tanto já funciona pois vinha lhe falando q com esta script select codigo, nome, endereco from cliente where codigo>= 1 and codigo <= 999999999 ela funciona e mostra todos os dados da tabela. o q ele não mostra é quando ele coloco o script dentro do botão e clicko em executar ai ele não mostra nada e esta assim nos edit1.text=1 and edit2.text=99999 a linha de comando do botão esta assim agora. zquery1.Close; zquery1.Open; ZQuery1.Active:=true; ZQuery1.SQL.Clear; ZQuery1.SQL.Append('select codigo, nome, endereco from cliente ' + 'where codigo>= '+ '''' + edit1.Text + '''' + 'and codigo <= '+ '''' + edit2.Text + ''''); ZQuery1.ExecSQL; pelo q eu percebi parace que a rotina não esta pegando nada na tabela e fiz uma outra parela com o codigo de 1 a 999999 e esta mostra tudo. obrigado +1max pela atenção

Tem que usar dessa maneira IBQuery1.SQL.Clear; IBQuery1.SQL.Append('select codigo, nome, endereco from cliente ' + 'where codigo>= '+ '''' + edit1.Text + '''' + 'and codigo <= '+ '''' + edit2.Text + ''''); IBQuery1.ExecSQL; abraço ola Jhonas saudaçõesempre... Acho q na dúvida acima me expressei mal... estes codigos estava colocando dentro do scripting list editor no delphi objeto inspector no componente zquery, ai coloquei o codigo q você me passou deu erro, então fui na tentativa e erro e este aceitou só q não mostra os dados no grid, as ligacoes zquery, datasouce, zconection esta ok uma vez q esta script da certo: select codigo, nome, endereco from cliente where codigo>= 1 and codigo <= 999999999 ai fui tentativa e erro e esta o true aceito: select codigo, nome, endereco from cliente where codigo>= ' + edit1.Text +' and codigo <= ' + edit2.Tex+' mas não mostra os dados no grid. a script q você me passou é para button.click, criei o botao e como se esperava deu certo, aceito o comando só q também não mostra os dados no grid e não mostra o campos do titulo. obrigado mais 1maVez pela atenção

Sempre que ocorre uma alteração ou erro em um formulario é criado automaticamente um backup do arquivo .pas e .dfm Esses arquivos estão com a extensão .~DFM e .~PAS .... delete os arquivos .DFM e .PAS com problemas e renomeie os .~DFM e .~PAS para .DFM e .PAS e voce conseguira abri-los novamente. abraço Ola Jhonas saudações a você´s, o caso em questão é que a maquina foi formatada e foi feita a limpesa dos arquivos *.tmp, ~dfm, ~pas, thumbus... tereia outra forma de abrir. obeigado e abraçosempre...

boa tarde a todos, alguém pode dar uma luz, não consigo trazer os dados, somente neste primeiro exemplo da certo, mas quero que seja pelos campos edit´s. assim aparece select codigo, nome, endereco from cliente where codigo>=1 and codigo <=999999 assim não quer aparece o q esta faltando select codigo, nome, endereco from cliente where codigo>="edit1.Text" and codigo <="edit2.Text" já coloquei assim e continua não aparecendo select codigo, nome, endereco from cliente where codigo>="strtoint(edit1.Text)" and codigo <="strtoint(edit2.Text)" select codigo, nome, endereco from cliente where codigo>="strtoint("'edit1.Text'")" and codigo <="strtoint("'edit2.Text'")" nenhum destes ultimos faz os dados aparecerem somente o primeiro, preciso que seja usado pelos edit.text... tem alguma outra forma e também não estou conseguido com datas tipo datainicial e data final compo date, e preciso q faça por horainicial e horafinal campo time nem com campo de valores moeda corrente tipo valorinicial e valorfinal neste caso o campo é de dinheiro. campo float Obrigado ai pessoal

Opa, você deve estar usando o componente TAnimate, e um arquivo .avi nele que não deve estar na pasta que você especificou, tente botar ele na pasta do seu programa e depois tente abrir esse form! Clique no botãozinho amarelo View Unit, e abra o arquivo com o nome do seu projeto... lá estará o que deseja! ok sobre este botãozionhooo amarelo eu vi, mas é justamente isto ele não abre o formulario em questão para retirar o AVI, sei q tem como pois já vi um desenvolvedor delphi retirar mas já faz tempo e não me lembro, sei q ele entrou no local onde tinha a referencia para o path do avi e ai tudo funcionou.

Opa, você deve estar usando o componente TAnimate, e um arquivo .avi nele que não deve estar na pasta que você especificou, tente botar ele na pasta do seu programa e depois tente abrir esse form! Clique no botãozinho amarelo View Unit, e abra o arquivo com o nome do seu projeto... lá estará o que deseja! sobre o avi é q a maquina foi formatada e o pessoal não fez os backup´s, tem como retirar a referencia a este componete... obrigado

Ola boa noite, se q o codigo ai não é dos melhores, mas é para ilustar para você´s o que eu quero implementar, tenho a tabela de clientes, estou usando o Zeos+mysql+delphi, no form tenho o dbgrid, dbnavegator e quando clico no posto do ndbnavigator quero implemnetar o codigo verificar primeiro se tem o codigo já cadastrado se não tiver grava e volta pro form, mas se tiver o codigo faz a checagem q fiz bem grotesca somente para ilustrar pois se q tem erros e você´s poderiam implementar da forma certa obrigado. { //nomex:string; nomex:=dbgrid1.Columns.Items.FieldName(); //como pegar o nome do campo q esta no barra do titulo e a posicao //codx:integer; codx:=dbgrid1.SelectedIndex; //como pegar o conteudo do grid e também o nome do campo QZexecta := ZQuery1.create(self); QZexecta.Connection := ZConnection1."102.198.278.10"+"root"+"123"+"mysql5"; //como conectar ao banco with QZexecta,SQL do begin Text := 'select * from cliente where (codigo = '+inttostr(codx)+'))'; //verificar se já tem o codigo cadastrado se tiver Open; if RecordCount > 0 then begin //verifica se achou alguma coisa if text=codx then begin Showmessage('o Cliente já existe...'); inc(codx); //soma o codigo e volta no with e pesquisa novamente, como fazer isto para fazer um loop end; else //recordcout=0 então não tem o codigo ai prossegue e grava o codigo exit; end; end; QZexecta.free; } outra coisa já vou apreveitar o post pra não ficar criando varios. Como fazer uma rotina q vai no servidor e pega todos os database que estão la e adciona em um treeview ai eu clico no item do treiveiew e abre as opcoes para eu efetuar a coneccao. obrigado

bom dia alguém ai sabe me informar como abrir o formulario e daar f12 e mostrar poiss este erro "Error creating form: cannot open AVI." não deixa abrir o formulario. e como faz para o delphi mostrar todas linhas do programa inclusive as que ficam ocultas as que fazem referencia ao objetos e arquivos, usei uma vez e já não lembro mais como faz... obrigado

Ola pessoal é a 1a vez q posto aqui, e somente na extrema urgencia e desta vez pecisarei de você´s, não se se é no post mas vou usar se não for por favor me instruam da maneira correta para postar um post, mas se alguém ai pode resolver por que não conecta ao servidor e da esta mensagem de erro.: "Can´t connect to MySQL server on 'localhost' (10061)". Estou usando o componente dbexpress e é o q esta dando erro somente nesta maquina nas outras funcionam normal, onde da o erro é um notebook com windows vista, delphi 2007 e o banco de dados mysql 5.x e nesta mesma maquina testei com o DBO e conecta certinho. já fiz tdo q pediram coloquei .dll na pasta do projeto, no system32, system, na pasta Bin do delphi, só falta colocar na...rz... alguém por ai já passou por isto e saberia me responder.... obrigado e abraços a todos e q a luz de um novo mundo se faça presente em cada um de vósssss.... bom como ainda não foi respondido Eu peguei os arquivos do outro notebook q também tem o windows vista, delphi 2007, mysql tudo igual somente o fato da pasta dbexpress ficar no arquivo de programa/arquivos comuns/borland shared/dbexpress tudo ok neste notebook, ma o problematico em questão a pasta fica em documentos setings/user/documento/rad studio/dbexpress... com peguei todos os arquivos que funcionam no note e windows vista ok e fui colocando pasta por pasta e nos locaais onde são mensionados e ai agora mudou o erro para "failure to connect: cannot load DBExpmysql.dll (127). it may be missing from the system path." já coloquei esta .dll na pasta, windows, windows\system, windows\system32, dentro do proprio projeto, no diretorio BIN do delphi tudo como mando o figurino ou esqueci de colocar mais em alguma pasta e a que seja a mais importante... alguém ai já passou por isto e tem alguma solução já pesquisei em tudo q h site e nada de dicas q resolva isto. todas as dicas q achei já executei e nada também... obrigado idem... milton7766@hotmail.com A geração do despertar... mentes expandindo sempre NovaEra fechar tópico acessar link com resposta para o problema http://scriptbrasil.com.br/forum/index.php...mp;#entry569024

Falhou para conectar: Não pode carregar DBExpmysql.dll. pode estar perdendo o caminho do sistema A DBExpmysql.dll é para trabalhar com o mysql 4.0.13 ou 4.0.14 OBS: Copiar pastas de um micro para outro não resolve o problema, o correto é reinstalar Não pode conectar o MySQL server no localhost (10061). Esse erro ocorre quando o HostName está com o nome de LocalHost e o banco de dados não é local ... bastaria colocar o IP do micro que tem o servidor MySQL. abraço ok Jhonas foi colocado o numero de ip e mesmo assim dava esta mensagem, e instalado foi umas 3x e por isto q cheguei a este ponto de copiar os arquivos por dicas emitidas por usuarios q tiveram problemas relacionados, mas mesmo assim nada funcionou, instalei o Zeos e conecta, por ADO, MYSql access pena q é trial, e somante no dbexpress não vai neste notebook. Vou seguir sua dica, vou fazer uma limpeza geral e desinstalar o mysql novamente e instalar-lo de novo eu só não tenho mais o dbexpress, nesta de apagar e copiar apaguei o arquivo e o arquivo texto aonde estava o link e agora procuro novamente em pesquisas mas os sites q tem estão com os link´s quebrados, se voce tiver um q funcione poderia postar, obrigado. ************************************************************************************************************************************** pode fechar o tópico já encontrei uma solução segue abaixo: ************************************************************************************************************************************** ola Jhonas pode fechar o tópico já ache a solução... vai ai a dica espero q credite e também como colocar em dicas uteis para outros usuarios q poderam passar por isto pois este negocio de mysql5+dbexpre+delphi esta muito cru ainda e nem os desenvolvedores adivinham as advercidade q pode surgir nos computadores afora ai no mundo... então vai la a dica de 1maJaka("tuwither): foram longos 10dias e uma dicajuda de Jhonas da script brasil, ele só me fez da uma luz a instalar o dbx4 mas ai ele é trial e fica pedindo pra registrar e não conecta... copia as .dll e ai depois remova ele do computador e escreva estes codigos a unha no dbxdrivers no diretorio ...delphi\dbexpress. para rodar no windows vista o dbexpress sob o mysql5 no delphi 2007. tem q baixar o dbx4 e ele não é free é trial e copiar os arquivos e deixar em outro diretorio depois remover o dbx4 pois ele não é free. dbx4mysql.dll modificar o arquivos: C:\Users\Public\Documents\RAD Studio\dbExpress\dbxdrivers colocar desta forma [MYSQL] GetDriverFunc=getSQLDriverDBX4Mysql mudar LibraryName=dbx4mysql.dll mudar VendorLib=libmysqld.dll mudar BlobSize=-1 Database=Integrado ou o seu nome do database ErrorResourceFile= HostName=200.178.9.917 ou o seu endreço de Ip o numero LocaleCode=0000 Password=123456 sua senha User_Name=root o seu usario cadastrado no servirdor ai é só copiar ele para a pasta do windows e junto com o http://www.dlldll.com/libmysqld.dll_download.html ai ele conecta true 1maJakaDica simples mas eficasempreusouMilton Carlo$ quem quiser melhorar esta aberto só envia depois uma copia obrigado, temos q usar a massa cinzenta pois somente asssim acordamosempreusou... espero q quem usar esta dica faça referencia sempre aos creditos e se der 1majudinha vai bem milton7766@hotmail.com

Falhou para conectar: Não pode carregar DBExpmysql.dll. pode estar perdendo o caminho do sistema A DBExpmysql.dll é para trabalhar com o mysql 4.0.13 ou 4.0.14 OBS: Copiar pastas de um micro para outro não resolve o problema, o correto é reinstalar Não pode conectar o MySQL server no localhost (10061). Esse erro ocorre quando o HostName está com o nome de LocalHost e o banco de dados não é local ... bastaria colocar o IP do micro que tem o servidor MySQL. abraço ok Jhonas foi colocado o numero de ip e mesmo assim dava esta mensagem, e instalado foi umas 3x e por isto q cheguei a este ponto de copiar os arquivos por dicas emitidas por usuarios q tiveram problemas relacionados, mas mesmo assim nada funcionou, instalei o Zeos e conecta, por ADO, MYSql access pena q é trial, e somante no dbexpress não vai neste notebook. Vou seguir sua dica, vou fazer uma limpeza geral e desinstalar o mysql novamente e instalar-lo de novo eu só não tenho mais o dbexpress, nesta de apagar e copiar apaguei o arquivo e o arquivo texto aonde estava o link e agora procuro novamente em pesquisas mas os sites q tem estão com os link´s quebrados, se voce tiver um q funcione poderia postar, obrigado.

Ola pessoal é a 1a vez q posto aqui, e somente na extrema urgencia e desta vez pecisarei de você´s, não se se é no post mas vou usar se não for por favor me instruam da maneira correta para postar um post, mas se alguém ai pode resolver por que não conecta ao servidor e da esta mensagem de erro.: "Can´t connect to MySQL server on 'localhost' (10061)". Estou usando o componente dbexpress e é o q esta dando erro somente nesta maquina nas outras funcionam normal, onde da o erro é um notebook com windows vista, delphi 2007 e o banco de dados mysql 5.x e nesta mesma maquina testei com o DBO e conecta certinho. já fiz tdo q pediram coloquei .dll na pasta do projeto, no system32, system, na pasta Bin do delphi, só falta colocar na...rz... alguém por ai já passou por isto e saberia me responder.... obrigado e abraços a todos e q a luz de um novo mundo se faça presente em cada um de vósssss.... bom como ainda não foi respondido Eu peguei os arquivos do outro notebook q também tem o windows vista, delphi 2007, mysql tudo igual somente o fato da pasta dbexpress ficar no arquivo de programa/arquivos comuns/borland shared/dbexpress tudo ok neste notebook, ma o problematico em questão a pasta fica em documentos setings/user/documento/rad studio/dbexpress... com peguei todos os arquivos que funcionam no note e windows vista ok e fui colocando pasta por pasta e nos locaais onde são mensionados e ai agora mudou o erro para "failure to connect: cannot load DBExpmysql.dll (127). it may be missing from the system path." já coloquei esta .dll na pasta, windows, windows\system, windows\system32, dentro do proprio projeto, no diretorio BIN do delphi tudo como mando o figurino ou esqueci de colocar mais em alguma pasta e a que seja a mais importante... alguém ai já passou por isto e tem alguma solução já pesquisei em tudo q h site e nada de dicas q resolva isto. todas as dicas q achei já executei e nada também... obrigado idem... milton7766@hotmail.com A geração do despertar... mentes expandindo sempre NovaEra

Ola pessoal é a 1a vez q posto aqui, e somente na extrema urgencia e desta vez pecisarei de você´s, não se se é no post mas vou usar se não for por favor me instruam da maneira correta para postar um post, mas se alguém ai pode resolver por que não conecta ao servidor e da esta mensagem de erro.: "Can´t connect to MySQL server on 'localhost' (10061)". Estou usando o componente dbexpress e é o q esta dando erro somente nesta maquina nas outras funcionam normal, onde da o erro é um notebook com windows vista, delphi 2007 e o banco de dados mysql 5.x e nesta mesma maquina testei com o DBO e conecta certinho. já fiz tdo q pediram coloquei .dll na pasta do projeto, no system32, system, na pasta Bin do delphi, só falta colocar na...rz... alguém por ai já passou por isto e saberia me responder.... obrigado e abraços a todos e q a luz de um novo mundo se faça presente em cada um de vósssss.... bom como ainda não foi respondido Eu peguei os arquivos do outro notebook q também tem o windows vista, delphi 2007, mysql tudo igual somente o fato da pasta dbexpress ficar no arquivo de programa/arquivos comuns/borland shared/dbexpress tudo ok neste notebook, ma o problematico em questão a pasta fica em documentos setings/user/documento/rad studio/dbexpress... com peguei todos os arquivos que funcionam no note e windows vista ok e fui colocando pasta por pasta e nos locaais onde são mensionados e ai agora mudou o erro para "failure to connect: cannot load DBExpmysql.dll (127). it may be missing from the system path." já coloquei esta .dll na pasta, windows, windows\system, windows\system32, dentro do proprio projeto, no diretorio BIN do delphi tudo como mando o figurino ou esqueci de colocar mais em alguma pasta e a que seja a mais importante... alguém ai já passou por isto e tem alguma solução já pesquisei em tudo q h site e nada de dicas q resolva isto. todas as dicas q achei já executei e nada também... obrigado idem... milton7766@hotmail.com A geração do despertar... mentes expandindo sempre NovaEra