Res: [delphi-br] lista de compras ..
acho q vou fazer isso mesmo ... como eu ja usei o dbgrid outras vezes .. fica mais facil .. valeu galera .. vc's me deram um monte de opções bem melhores do que a original .. hehee valeu mesmo ... []s. . . Felipe Milagres - Espaço reservado para uma frase de efeito - De: Nazareno Neto nazareno.nobr...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 23 de Novembro de 2009 9:32:03 Assunto: Re: [delphi-br] lista de compras .. Voce tambem pode usar um dbgrid com memorytable (acho q escreve assim) da suite de componentes da JEDI. e depois sair somando os registros e gravando os mesmos se necessorio no banco de dados 2009/11/21 berdam berdamzinho@ yahoo.com. br pra que adicionar em memo, adicionado num stringgrid entao Felipe Milagres escreveu: bom dia ... estou com uma duvida .. estou pensando em fazer um prog. com sistema de compras (coisa pra escola) ... e tipo .. teria um formulario onde estaria listado todos os produtos cadastrados (talvez eu use um combobox para listá-los) quando o usuario seleciona o produto, os outros campos listao o preço e uma descrição .. tem um edit onde o usuario coloca a quantidade que deseja comprar .. até ai tudo beleza .. minha duvida é que : vai ter um botao 'add carrinho' onde ele vai pegar .. nome do produto (que está listado no combobox) + preço (que está listado em um edit) + quantidade comprada (que está listada em outro edit) .. e joga tudo isso em um Memo separado por espaço apos o usuario comprar tudo o que ele quer .. debaixo do memo tem um botao para calcular total da compra . que pega tudo o que está nele e faz o calculo .. resumindo .. como que eu faço para ele pegar cada item listado no memo para fazer o calculo ??? []s ... Felipe Milagres ... - - - - - - Espaço reservado para uma frase de efeito - - - - - - _ _ __ _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Nazareno Neto Programador Delphi e Firebird http://www.delphisi stemas.com. br nazarenoneto@ hotmail.com nazareno.nobrega@ gmail.com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] lista de compras ..
bom dia ... estou com uma duvida .. estou pensando em fazer um prog. com sistema de compras (coisa pra escola) ... e tipo .. teria um formulario onde estaria listado todos os produtos cadastrados (talvez eu use um combobox para listá-los) quando o usuario seleciona o produto, os outros campos listao o preço e uma descrição .. tem um edit onde o usuario coloca a quantidade que deseja comprar .. até ai tudo beleza .. minha duvida é que : vai ter um botao 'add carrinho' onde ele vai pegar .. nome do produto (que está listado no combobox) + preço (que está listado em um edit) + quantidade comprada (que está listada em outro edit) .. e joga tudo isso em um Memo separado por espaço apos o usuario comprar tudo o que ele quer .. debaixo do memo tem um botao para calcular total da compra . que pega tudo o que está nele e faz o calculo .. resumindo .. como que eu faço para ele pegar cada item listado no memo para fazer o calculo ??? []s ... Felipe Milagres ... - Espaço reservado para uma frase de efeito - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] erro ao restaurar backUp do interbase
bem q eu achei estranho quando hoje eu fui voltar a mexer nele o backup está funcionando agora .. tanto a criação quanto a restauração . . . - Espaço reservado para uma frase de efeito - De: Alisson Yahoo alss...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 19 de Novembro de 2009 13:52:28 Assunto: Re: [delphi-br] erro ao restaurar backUp do interbase Deu algum quando começou o backup e o arquivo ficou travado. Se reiniciar o computador deve resolver. _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] abrir pasta no local onde o arquivo foi salvo
boa noite .. dei uma olhada a net mas nun achei muita coisa sobre o que eu queria .. (Achei coisas até bem mais complicada .. hehhe) mas eu queria saber como que eu faço para que quando terminar de fazer la o backUp do banco .. abrir a pasta onde ele foi salvo .. tipo .. depois da mensagem ... backUp concluido .. abrisse a tela .. c:\banco_de_dados_\backUp []s .. Felipe Milagres - Espaço reservado para uma frase de efeito - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] nome do arquivo com data
boa noite (novamente), seguinte .. nisso eu sempre tive duvida .. como que eu gero um arquivo com o nome dele + a data atual tipo : LOG_18112009.TXT []s .. Felipe Milagres - Espaço reservado para uma frase de efeito - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] nome do arquivo com data
mas ai nesse caso .. ele vem junto com as barras / usando isso o arquivo seria criado assim : 'NomeArquivo/18/11/2009.txt' pelo menos eu acho q é esse o motivo do erro que deu aki.. informando que nao pode abrir arquivo LOG_18/11/2009.TXT - Espaço reservado para uma frase de efeito - De: Andre Yahoo gyncow...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 18 de Novembro de 2009 22:45:20 Assunto: Re: [delphi-br] nome do arquivo com data nomearquivo := 'NomeArquivo' +DatetoStr( Now)+'.txt' _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] nome do arquivo com data
André, Moacir
valeu ..
era isso tudo o que eu queria !!!
[]s
-
Espaço reservado para uma frase de efeito
-
De: Moacir - GMail prism...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 18 de Novembro de 2009 22:57:08
Assunto: Re: [delphi-br] nome do arquivo com data
Ou então,
nomearquivo := 'NomeArquivo_ '+formatDateTime ('mmdd' ,Now)+'.txt'
ou
nomearquivo := 'NomeArquivo_ '+formatDateTime ('mmdd_ hhnn',Now) +'.txt'
Andre Yahoo escreveu:
nomearquivo := 'NomeArquivo' +DatetoStr( Now)+'.txt'
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] erro ao restaurar backUp do interbase
boa noite (madrugada).. estou tentando restaurar um back up do banco interbase .. porem quando eu executo a ação, surge uma mensagem de erro 'lock time-out on wait transaction object C:\PROJET~1\DBINFO~1.GDB in use could not drop database C:\PROJETO INFOP\DB INFOP.GDB (database might in use)' alguem tem alguma luz ??? []s .. felipe milagres - Espaço reservado para uma frase de efeito - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] conteudo do banco em um comboBox
galera .. estou tendo dificuldade de colocar o conteudo de uma coluna de uma das minhas tabelas em um combobox ... no caso .. eu quero listar os nomes das pessoas que estao na minha tabela... table CAD_PESSOAS coluna NOME ai os nomes dessas pessoas ficariam listadas no Combobox ja deu uma olhada e cada codigo q eu vejo é diferente .. e nun fala muito bem o que a pessoa fez ... []s .. Felipe Milagres - Espaço reservado para uma frase de efeito - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] como usar o MonthCalendar
boa noite , [esse é um componente que eu nunca usei ... ] eu tenho um formulario com pedidos de produtos, e nesse formulario, é escolhido o dia de entrega do produto.. entao por isso que eu pensei em ter o MonthCalendar para ilustrar para o usuario , o dia que ele receberá o produto... ahh ...e obvio . o dia selecionado tem que ser gravado no banco pensei em algo assim: dbEditEntrega.text := MonthCalendar.[alguma_coisa_que_nao_sei] ; ou seja, o edit que vai ficar armazenado o dia, recebera o dia que for selecionado no calendario ... []s .. Felipe Milagres ... - Espaço reservado para uma frase de efeito - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] conectar banco interbase
boa tarde .. galera .. seguinte .. me passaram um programa para eu dar uma ajeitada nele .. porem estou com um problema ... eles me deram ele zipado .. e quando eu descompactei na minha maquina .. e abrir o projeto, deu a seguinte mensagem: unavailable database .. pelo que eu vi .. o banco de dados é interbase .. eu achei o arquivo .gdb .. e copiei para o mesmo diretorio do projeto , mas mesmo assim ele continua dando a mensagem de banco indisponivel. .. ps.: banco eu geralmente uso Access (embora ele dê muitos problemas.. eu acostumei a usar ele) ... e quando tem que ser um banco mais robusto é outra pessoa que faz .. complemento: fui la no DM (data module) ... fui na propriedades 'Params' do SQLConnections , e la estava mostrando o diretorio do banco da dados BlobSize=-1 CommitRetain=False Database=C:\INFOP\BD\banco.gdb DriverName=Interbase ErrorResourceFile= LocaleCode= Password=masterkey RoleName=RoleName ServerCharSet= SQLDialect=3 Interbase TransIsolation=ReadCommited User_Name=SYSDBA WaitOnLocks=True e mesmo eu criando esse diretorio e colocando o banco lá, continua a mensagen . . []s .. Felipe Milagres - Espaço reservado para uma frase de efeito - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] Criptografia de imagens
galera boa tarde,
nesses dias eu tive uma dúvida, eu ja vi que por metodos de força bruta (e
outros mais rapidos), vc descobre qual é a chava para descriptografar um texto.
mas e uma imagem? eu achei esse codigo aki (de para criptografar uma imagem):
##
procedure cripto(const BMP: TBitmap; Key: Integer);var BytesPorScan:
Integer; w, h: integer; p: pByteArray;begin try BytesPorScan :=
Abs(Integer(BMP.ScanLine[1]) - Integer(BMP.ScanLine[0])); except raise
Exception.Create('Erro !'); end; RandSeed := Key; for h := 0 to BMP.Height -
1 do begin P := BMP.ScanLine[h]; for w := 0 to BytesPorScan - 1 do
P^[w] := P^[w] xor Random(256); end;end; procedure TForm1.Button1Click(Sender:
TObject);begin cripto(Image1.Picture.Bitmap, 1); Image1.Refresh;end;
##
do site: http://www.devmedia.com.br/articles/viewcomp.asp?comp=812
e fiquei pensando , como que alguem conseguiria quebrá-lo.
ps.: nao estou querendo ser um hacker , só quero saber o quão seguro esse
método é ...
[]s ...
Dígrafo com quem andas que eu te direi quem és
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] contador de dias
galera .. eu to com uma duvida em com funcionaria um contador de dias .. tipo .. eu tenho que dar um alerta em 5 em 5 dias ... porem nao tenho uma ideia de como fazer .. alguem tem alguma sujestao ??? Dígrafo com quem andas que eu te direi quem és Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] contador de dias
vc foi o único quem raparou isso .. foi umas das melhores que achei ... ehheheh seguinte ... minha aplicação basicamente é de cadastro .. o cara (usuarios comuns) vai la e cadastra uma ocorrencia .. essa ocorrencia tem q ser aprovada .. entao ela fica pendente ate alguem (o administrador) ir la e abilitar a opção APROVADA .. o que acontece .. é que sao muitas ocorrencias .. entao .. teria que ter uma alerta .. de tando em tando tempo ...no caso de 5 em 5 dias .. informando para o Administrador quantas ocorrencias ainda faltam ser Aprovadas .. com sempre tem ao menos uma ocorrencia nova todo dia .. ficaria muito irritante para o administrador o aviso aparecer todos os dias .. por isso o motivo do alerta em 5 e dias ... mais alguma detalhe que eu esqueci ??? Dígrafo com quem andas que eu te direi quem és --- Em seg, 3/8/09, Rubem Rocha rubem.ro...@dtmanaus.com.br escreveu: De: Rubem Rocha rubem.ro...@dtmanaus.com.br Assunto: RES: [delphi-br] contador de dias Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 3 de Agosto de 2009, 15:13 Explique-se melhor, com riqueza de detalhes, sobre o que você fazer para podemos lhe dar SUGESTÕES! Sds. P.S.: Dígrafo com quem andas que eu te direi quem és – essa daí tu deves ter tirado bem de alguma prova do ENEM, não é? Sds. De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Felipe Milagres Enviada em: segunda-feira, 3 de agosto de 2009 13:55 Para: delphi-br Assunto: [delphi-br] contador de dias galera .. eu to com uma duvida em com funcionaria um contador de dias .. tipo .. eu tenho que dar um alerta em 5 em 5 dias ... porem nao tenho uma ideia de como fazer .. alguem tem alguma sujestao ??? - - - - - - Dígrafo com quem andas que eu te direi quem és - - - - - - [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] contador de dias
valeuz ... qualquer coisa eu posto aki ... ps.: sao dias corridos .. Dígrafo com quem andas que eu te direi quem és --- Em seg, 3/8/09, Rubem Rocha rubem.ro...@dtmanaus.com.br escreveu: De: Rubem Rocha rubem.ro...@dtmanaus.com.br Assunto: RES: [delphi-br] contador de dias Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 3 de Agosto de 2009, 15:57 Se a tua aplicação fica rodando o tempo todo pra verificar esse alerta, usa um TTimer configurado para, a cada virada de dia (vc ñ disse se eram dias úteis ou corridos), o sistema faça uma consulta no banco de dados as ocorrencias e, na tua aplicação, para cada registro, conte quantos dias foram decorridos. Sendo assim, eu faria uma consulta SQL que já me retornaria essa diferença em dias. Essa é a teoria. O resto, agora, é com vc. Boa sorte. Sds. De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Felipe Milagres Enviada em: segunda-feira, 3 de agosto de 2009 14:27 Para: delphi...@yahoogrup os.com.br Assunto: RES: [delphi-br] contador de dias vc foi o único quem raparou isso .. foi umas das melhores que achei ... ehheheh seguinte ... minha aplicação basicamente é de cadastro .. o cara (usuarios comuns) vai la e cadastra uma ocorrencia .. essa ocorrencia tem q ser aprovada .. entao ela fica pendente ate alguem (o administrador) ir la e abilitar a opção APROVADA .. o que acontece .. é que sao muitas ocorrencias .. entao .. teria que ter uma alerta .. de tando em tando tempo ...no caso de 5 em 5 dias .. informando para o Administrador quantas ocorrencias ainda faltam ser Aprovadas .. com sempre tem ao menos uma ocorrencia nova todo dia .. ficaria muito irritante para o administrador o aviso aparecer todos os dias .. por isso o motivo do alerta em 5 e dias ... mais alguma detalhe que eu esqueci ??? - - - - - - Dígrafo com quem andas que eu te direi quem és - - - - - - --- Em seg, 3/8/09, Rubem Rocha rubem.rocha@ dtmanaus. com.br mailto:rubem. rocha%40dtmanaus .com.br escreveu: De: Rubem Rocha rubem.rocha@ dtmanaus. com.br mailto:rubem. rocha%40dtmanaus .com.br Assunto: RES: [delphi-br] contador de dias Para: delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Data: Segunda-feira, 3 de Agosto de 2009, 15:13 Explique-se melhor, com riqueza de detalhes, sobre o que você fazer para podemos lhe dar SUGESTÕES! Sds. P.S.: Dígrafo com quem andas que eu te direi quem és – essa daí tu deves ter tirado bem de alguma prova do ENEM, não é? Sds. De: delphi...@yahoogrup os.com.br [mailto:delphi- b...@yahoogrup os.com.br] Em nome de Felipe Milagres Enviada em: segunda-feira, 3 de agosto de 2009 13:55 Para: delphi-br Assunto: [delphi-br] contador de dias galera .. eu to com uma duvida em com funcionaria um contador de dias .. tipo .. eu tenho que dar um alerta em 5 em 5 dias ... porem nao tenho uma ideia de como fazer .. alguem tem alguma sujestao ??? - - - - - - Dígrafo com quem andas que eu te direi quem és - - - - - - [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] problemas com imagen ...
galera seguinte .. tenho uma aplicação que dependendo da escolha do usuario a imagem que está no form muda.. por exemplo: quando executa o aplicativo, vc faz login .. se vc for administrador .. a imagem que fica no fundo do form é um 'circulo gigante azul' .. e se vc for usuario_normal, fundo é um 'X gigante verde' .. bom .. foi esse o codigo que eu usei para alternar entre as imagens: procedure TForm1.Button1Click(Sender: TObject);begin// administradorImage1.Picture.LoadFromFile(GetCurrentDir()+'\tela_adm_azul.bmp');end; procedure TForm1.Button2Click(Sender: TObject);begin// usuario normalImage1.Picture.LoadFromFile(GetCurrentDir()+'\tela_usuN_verde.bmp');end; porem .. se eu executar o executavel em outro lugar .. ele nao acha as imagens ... tem algum jeito de 'anexar' as imgens no executavel ..??? ps.: eu queria aproveitar o mesmo form para a aplicação ... pois quando entra como administrador ou usuario normal, ele faz uma verificação de quem é quem, e desbilita coisas para quem for usuario normal .. com isso, nao tenho que criar varios forms iguais. []s .. Dígrafo com quem andas que eu te direi quem és Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] audio no delphi ..
seguinte. .
estou agora incrementando mais coisas no sistema de alerta estilo MSN ..
achei esse codigo que executa o som de quando vc inicia o Windows:
PlaySound(PChar('SystemStart'), 0, SND_ASYNC);
queria saber 2 coisas:
1) o nome de um som de alerta do windows .. para eu substituirou2) como que eu
faço para executar qualquer som ..
[]s ..
Felipe Milagres ...
Dígrafo com quem andas que eu te direi quem és
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] fixar form
queria saber como que eu faço para criar um form em um lugar já determinado (canto inferior direito) .. e que ele fique fixo .. ou seja. . o usuário não consegue arrastar ele para outro lugar .. []s . . . ps.: uso delphi 4 Dígrafo com quem andas que eu te direi quem és Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] instalar aplicação no PC
seguinte .. hoje surgiu uma curiosidade .. supondo que eu tenha um programa que ultiliza tabelas Access .. (ou seja .. eu teria o executavel (.exe) e o arquivo access (.mdb) ) .. queria saber tipo .. como fazer para que esses arquivo fosse movidos para uma pasta pre-definida ... como se fosse uma instalação do programa ... (isso garantiria que o usuario nao deletasse o banco de dados sem querer ...) valeu a todos... []s ;; felipe milagres Dígrafo com quem andas que eu te direi quem és Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Alerta do MSN no Delphi
boa tarde, tenho uma aplicação que precisa alertar ao usuário quantos relatórios estão pendentes, entao eu pensei nos alertas do MSN , procurei na web e achei isso: http://www.codigofonte.net/dicas/delphi/197_simulando-os-alertas-do-msn-no-delphi rodou beleza .. porem quando eu aperto novamente o botao, surge esse erro: Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00411DA5 in module 'Project1.exe. Write of address 003B'. Process stopped como (o meu ingles é ruin e) essa mensagem nao deu para MIM nenhuma pista de qual é o erro .. alguem sabe o que poderia ser ??? ps.: usando Delphi 7 []s ___ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
Re: [delphi-br] Re: Alerta do MSN no Delphi
o codigo eu tirei dakele link, segue ele abaixo:
procedure TForm1.Button1Click(Sender: TObject);var I: Integer; fAlertaMsn:
TForm; BarraIniciar: HWND; {Barra Iniciar} tmAltura: Integer; tmRect:
TRect; xTop : Integer; xIniTop : Integer;begin //localiza o Handle da janela
iniciar BarraIniciar := FindWindow('Shell_TrayWnd', nil); //Pega o
retângulo que envolve a barra e sua altura GetWindowRect(BarraIniciar,
tmRect); tmAltura := tmRect.Bottom - tmRect.Top; fAlertaMsn :=
TfAlertaMsn.Create(Self); with fAlertaMsn do begin Left := Screen.Width -
ClientWidth; if tmRect.Top = -2 then tmAltura := 30; //Pega o top
final xTop := Screen.Height - ClientHeight - tmAltura; //Pega o top
inicial xIniTop := Screen.Height + ClientHeight + tmAltura; Top :=
xIniTop; for I := xIniTop downto xTop do begin Top := Top - 1;
Show; Update; Application.ProcessMessages;
Sleep(10); end; Sleep(3000); Close;
FreeAndNil(fAlertaMsn); end;end;
___
Att,
Felipe Milagres
--- Em sex, 3/7/09, embarcadelphi embarcadel...@yahoo.com.br escreveu:
De: embarcadelphi embarcadel...@yahoo.com.br
Assunto: [delphi-br] Re: Alerta do MSN no Delphi
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 3 de Julho de 2009, 15:08
--- Em delphi...@yahoogrup os.com.br, Felipe Milagres felipe_a_milagres@
... escreveu
Project Project1.exe raised exception class EAccessViolation with message
'Access violation at address 00411DA5 in module 'Project1.exe. Write of
address 003B'. Process stopped
como (o meu ingles é ruin e) essa mensagem nao deu para MIM nenhuma pista de
qual é o erro ..
Quem sabe inglês também não vai saber traduzir, este erro só traduz quem é
programador e está com o código fonte nas mãos, digo, aberto no Delphi.
Isso aí é endereçamento de memória. talvez algum objeto foi deletado da memória
(nomedoobjeto .free), depois você foi tentar refazer a mesma rotina que foi
feito antes (no primeiro click), só que agora este objeto não existe mais. Só
vendo o código para saber mais... Se puder colocar o código desse botão que
você clica e dá este erro, fica mais fácil para saber.
blz
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Alerta do MSN no Delphi
eu pesquisaria o q?? componente popup delphi pode ate ser que eu use esse componente.. acontece q como o codigo ja estava pronto .. achei q seria mais rapido ... ps.: no site q vc me passou, quando eu clico para fazer o download, ele redireciona para um nao confiavel (palavra do google chrome) ps2.: esse componente serve no delphi 4 ?? valeu a ajuda ... ___ Att, Felipe Milagres --- Em sex, 3/7/09, Paulo Coutinho pa...@prsolucoes.com escreveu: De: Paulo Coutinho pa...@prsolucoes.com Assunto: Re: [delphi-br] Re: Alerta do MSN no Delphi Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 3 de Julho de 2009, 15:20 Porque não usa o componente que te passei ao inves de reinventar a roda? Tem dezenas de componentes desses free, so tu dar uma googada, vai te poupar muito trabalho. 2009/7/3 embarcadelphi embarcadelphi@ yahoo.com. br: --- Em delphi...@yahoogrup os.com.br, Felipe Milagres felipe_a_milagres@ ... escreveu Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00411DA5 in module 'Project1.exe. Write of address 003B'. Process stopped como (o meu ingles é ruin e) essa mensagem nao deu para MIM nenhuma pista de qual é o erro .. Quem sabe inglês também não vai saber traduzir, este erro só traduz quem é programador e está com o código fonte nas mãos, digo, aberto no Delphi. Isso aí é endereçamento de memória. talvez algum objeto foi deletado da memória (nomedoobjeto .free), depois você foi tentar refazer a mesma rotina que foi feito antes (no primeiro click), só que agora este objeto não existe mais. Só vendo o código para saber mais... Se puder colocar o código desse botão que você clica e dá este erro, fica mais fácil para saber. blz -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes. com/blog Site: www.prsolucoes. com Msn: pa...@prsolucoes. com Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Alerta do MSN no Delphi [resolvido]
embarcadelphi ,
putz ...
valeu mesmo a ajuda ...
(valeu tb a todos que deram força)
ps.: pq com essa modificação , o trem funcionou ???, o FreeAndNil faz o q ???
[]s ..
___
Att,
Felipe Milagres
--- Em sex, 3/7/09, embarcadelphi embarcadel...@yahoo.com.br escreveu:
De: embarcadelphi embarcadel...@yahoo.com.br
Assunto: [delphi-br] Re: Alerta do MSN no Delphi
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 3 de Julho de 2009, 15:32
Olha aí o erro no finalzinho: FreeAndNil( fAlertaMsn) ;
Remova, coloque ele no OnClose da form
Agora vai funcionar. Não adianta baixar outros componentes, se não tentar
descobrir o porque está dando erro vai ser um programador de copiar e colar.
blz.
--- Em delphi...@yahoogrup os.com.br, Felipe Milagres felipe_a_milagres@ ...
escreveu
o codigo eu tirei dakele link, segue ele abaixo:
procedure TForm1.Button1Click (Sender: TObject);var I:
Integer; fAlertaMsn: TForm; BarraIniciar: HWND; {Barra Iniciar} tmAltura:
Integer; tmRect: TRect; xTop : Integer; xIniTop : Integer;begin
//localiza o Handle da janela iniciar BarraIniciar := FindWindow('
Shell_TrayWnd' , nil); //Pega o retângulo que envolve a barra e sua
altura GetWindowRect (BarraIniciar, tmRect); tmAltura := tmRect.Bottom -
tmRect.Top; fAlertaM sn := TfAlertaMsn. Create(Self) ; with fAlertaMsn
do begin Left := Screen.Width - ClientWidth; if tmRect.Top = -2 then
tmAltura := 30; //Pega o top final xTop := Screen.Height -
ClientHeight - tmAltura; //Pega o top inicial xIniTop := Screen.Height
+ ClientHeight + tmAltura; Top := xIniTop; for I := xIniTop downto xTop
do begin Top := Top - 1; Show; Update; Application.
ProcessMessages;
Sleep(10); end; Sleep(3000); Close; FreeAndNil(fAlertaM
sn); end;end;
_ _ _ _ _ _
Att,
Felipe Milagres
--- Em sex, 3/7/09, embarcadelphi embarcadelphi@ ... escreveu:
De: embarcadelphi embarcadelphi@ ...
Assunto: [delphi-br] Re: Alerta do MSN no Delphi
Para: delphi...@yahoogrup os.com.br
Data: Sexta-feira, 3 de Julho de 2009, 15:08
--- Em delphi...@yahoogrup os.com.br, Felipe Milagres
felipe_a_milagres@ ... escreveu
Project Project1.exe raised exception class EAccessViolation with message
'Access violation at address 00411DA5 in module 'Project1.exe. Write of
address 003B'. Process stopped
como (o meu ingles é ruin e) essa mensagem nao deu para MIM nenhuma pista
de qual é o erro ..
Quem sabe inglês também não vai saber traduzir, este erro só traduz quem é
programador e está com o código fonte nas mãos, digo, aberto no Delphi.
Isso aí é endereçamento de memória. talvez algum objeto foi deletado da
memória (nomedoobjeto .free), depois você foi tentar refazer a mesma rotina
que foi feito antes (no primeiro click), só que agora este objeto não existe
mais. Só vendo o código para saber mais... Se puder colocar o código desse
botão que você clica e dá este erro, fica mais fácil para saber.
blz
_ _ _ _ _ _
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Alerta do MSN no Delphi
bacana isso ai !!! hehe valeu a ajuda .. ___ Att, Felipe Milagres --- Em sex, 3/7/09, Paulo Coutinho pa...@prsolucoes.com escreveu: De: Paulo Coutinho pa...@prsolucoes.com Assunto: Re: [delphi-br] Re: Alerta do MSN no Delphi Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 3 de Julho de 2009, 15:59 Postei o fonte de um componente para fazer esses alertas, funciona no Delphi 4 também. Se ainda não foi aceito o arquivo, baixe aqui: http://www.prsoluco es.com/downloads /msn_popup. zip É free e com fontes. 2009/7/3 Thales (Shubacca) - Tebo Software tebosoftware@ gmail.com: Existe na biblioteca de componentes Jedi esse msn popup chamado TJvDesktopAlert http://www.delphi- jedi.org/ 2009/7/3 Felipe Milagres felipe_a_milagres@ yahoo.com. br eu pesquisaria o q?? componente popup delphi pode ate ser que eu use esse componente.. acontece q como o codigo ja estava pronto .. achei q seria mais rapido ... ps.: no site q vc me passou, quando eu clico para fazer o download, ele redireciona para um nao confiavel (palavra do google chrome) ps2.: esse componente serve no delphi 4 ?? valeu a ajuda ... _ _ _ _ _ _ Att, Felipe Milagres --- Em sex, 3/7/09, Paulo Coutinho pa...@prsolucoes. compaulo%40prsolucoes .com escreveu: De: Paulo Coutinho pa...@prsolucoes. com paulo%40prsolucoes .com Assunto: Re: [delphi-br] Re: Alerta do MSN no Delphi Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br Data: Sexta-feira, 3 de Julho de 2009, 15:20 Porque não usa o componente que te passei ao inves de reinventar a roda? Tem dezenas de componentes desses free, so tu dar uma googada, vai te poupar muito trabalho. 2009/7/3 embarcadelphi embarcadelphi@ yahoo.com. br: --- Em delphi...@yahoogrup os.com.br, Felipe Milagres felipe_a_milagres@ ... escreveu Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00411DA5 in module 'Project1.exe. Write of address 003B'. Process stopped como (o meu ingles é ruin e) essa mensagem nao deu para MIM nenhuma pista de qual é o erro .. Quem sabe inglês também não vai saber traduzir, este erro só traduz quem é programador e está com o código fonte nas mãos, digo, aberto no Delphi. Isso aí é endereçamento de memória. talvez algum objeto foi deletado da memória (nomedoobjeto .free), depois você foi tentar refazer a mesma rotina que foi feito antes (no primeiro click), só que agora este objeto não existe mais. Só vendo o código para saber mais... Se puder colocar o código desse botão que você clica e dá este erro, fica mais fácil para saber. blz -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes. com/blog Site: www.prsolucoes. com Msn: pa...@prsolucoes. com _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftware@ gmail.com (GoogleTalk) thales_...@hotmail. com (MSN) Blog: http://tebosoftware .blogspot. com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes. com/blog Site: www.prsolucoes. com Msn: pa...@prsolucoes. com Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] erro ao ler registros
boa tarde galera .. estou com o seguinte erro no meu programa .. quando eu vou ver os outros registros cadastrados .. dá a seguinte mensagem de erro : list index out of bounds (1) tentei voltar o que ele era antes .. mas nao lembro qual alteração que eu fiz para dar esse erro ... ___ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] erro ao ler registros
humberto .. tive q fazer isso mesmo , olhar trem por trem .. valeu ___ Att, Felipe Milagres --- Em qua, 27/5/09, Humberto Oliveira holiveira.wordpr...@gmail.com escreveu: De: Humberto Oliveira holiveira.wordpr...@gmail.com Assunto: Re: [delphi-br] erro ao ler registros Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 27 de Maio de 2009, 16:12 Só debugando para ver o objeto, parâmetro, variável que está utilizando e que não existe no seu projeto. 2009/5/27 Felipe Milagres felipe_a_milagres@ yahoo.com. br boa tarde galera .. estou com o seguinte erro no meu programa .. quando eu vou ver os outros registros cadastrados .. dá a seguinte mensagem de erro : list index out of bounds (1) tentei voltar o que ele era antes .. mas nao lembro qual alteração que eu fiz para dar esse erro ... _ _ _ _ _ _ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] problemas com serviço do windows
galera bom dia,
criei uma aplicação que deveria iniciar assim que o usuário logasse na maquina..
procurando na net achei o seguinte código:
procedure RunOnStartup(sProgTitle,sCmdLine: string; bRunOnce: boolean );
var
sKey : string;
reg : TRegIniFile;
begin
if( bRunOnce )then
begin
sKey := 'Once'
end
else
begin
sKey := '';
end;
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString('Software\Microsoft'+ '\Windows\CurrentVersion\Run'+
sKey + #0, sProgTitle, sCmdLine );
reg.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
CopyFile(PChar(Application.ExeName),'C:\Arquivos de
programas\LoginCRD\CRD.exe',True);
RunOnStartup('LoginCRD','C:\Arquivos de
programas\LoginCRD\CRD.exe',true);
end;
ps.: o site ensinava a criar um vírus, eu só aproveitei a parte do código que
me interessava ...
meu problema esta sendo o seguinte, eu consegui fazer com que a aplicação se
iniciasse assim que o usuário logasse, porem quando é feito o login, fica uma
tela azul só com o mouse aparecendo, ai eu tenho que finalizar minha aplicação
para que o windows se inicie normalmente.
___
Att,
Felipe Milagres
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[delphi-br] saber quando o PC entrou na tela de descanço
boa tarde, queria saber qual comando que eu uso para saber quando o Windows entra na tela de descanço ... []s .. Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] editar aplicações em delphi's diferentes
boa tarde, queria saber se tem jeito de abrir uma aplicação que foi feita em Delphi 7 no Delphi 4 ... eu tenho que adicionar algum componente no Delphi 4 para conseguir abrir sem problemas valeu a todos ... ___ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
Re: [delphi-br] editar aplicações em delphi's diferentes
nao existe um plugin pra isso nao ___ Att, Felipe Milagres --- Em sex, 20/3/09, Alisson alss...@yahoo.com.br escreveu: De: Alisson alss...@yahoo.com.br Assunto: Re: [delphi-br] editar aplicações em delphi's diferentes Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 20 de Março de 2009, 16:40 Provavelmente você não vai conseguir, pois deve ter utilizado algum recurso que existe na versão 7, mas não existe na versão 4. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] erro ao atualizar no DBNavigator
boa tarde .. estou com uma duvida. tenho uma aplicação de cadastro ... faço, por exemplo, 5 cadastros .. depois fecho e abro o programa de novo (pelo Delphi) ... e faço mais um cadastro. Quando vou ver o ultimo cadastro .. ele nao é mostrado , somente mostra o penultimo, mas se eu fechar e abrir o programa (pelo Delphi) .. e mando ir para o ultimo cadastro .. ai ele aparece ... ps.: nao estou usando o DBNavigator ... e sim botoes com a mesma função e algo a mais entao pensei em criar um botao para atualizar, porem nao entendo muito de o que preciso para isso ... entao pensei em usar o DBNavigator .. coloquei o DBNavigator .. conectei ele ao meu banco .. funcionou direito em (quase) todos os botoes ... fiz um novo cadastro .. salvei ... e quando apertei o botao de atualizar do DBNavigator deu essa mensagem: Table does not support this operation because it is not uniquely indexed traduzido pelo Google Tradutor: Tabela nao suporta essa operação porque ela não é exclusiva indexados pergunta: o que isso quer dizer? ela tem mais de uma chave primaria ?? (chutei essa hipótese) valeu a todos ... Felipe Milagres ___ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] Fazer o programa iniciar quando o Windows iniciar (curiosidade)
bom dia galera ... queria saber se tem jeito de fazer uma aplicação ser executada quando meu pc é ligado .. igual acontece com o MSN ... []s ___ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Fazer o programa iniciar quando o Windows iniciar (curiosidade)
Walter Chagas, o que seria uma aplicação que rode como serviço ?? ps.: falou grego para mim !! heheheh ___ Att, Felipe Milagres --- Em sex, 5/12/08, Walter Chagas (Bol) [EMAIL PROTECTED] escreveu: De: Walter Chagas (Bol) [EMAIL PROTECTED] Assunto: Re: [delphi-br] Fazer o programa iniciar quando o Windows iniciar (curiosidade) Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 5 de Dezembro de 2008, 11:26 Ces num acham melhor criar uma aplicação que rode como serviço não? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr - Original Message - From: Marcos Abreu Ferreira To: delphi-br@yahoogrupos.com.br Sent: Friday, December 05, 2008 9:56 AM Subject: RE: [delphi-br] Fazer o programa iniciar quando o Windows iniciar (curiosidade) Felipe, voce pode criar um link no menu INICIAR do seu Windows ou criar o link do registro do windows, numas das seguintes opcoes. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run Att,Marcos A. Ferreira São Paulo - BrasilMSN: [EMAIL PROTECTED] Talk: maf.decisiva Skype: m_abreuferreiraEsta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação baseada nestas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o email e em seguida, apague-o.Agradecemos sua cooperação.This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose or take any action based on this message or any information herein. If you have received this message in error, please, advise the sender immediately by reply e-mail and delete this message.Thank you for your cooperation. Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE. ENVIRONMENT commitment and responsibility, think about Before Printing. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Fri, 5 Dec 2008 03:44:27 -0800Subject: [delphi-br] Fazer o programa iniciar quando o Windows iniciar (curiosidade) bom dia galera ... queria saber se tem jeito de fazer uma aplicação ser executada quando meu pc é ligado .. igual acontece com o MSN ... []s __Att,Felipe MilagresVeja quais são os assuntos do momento no Yahoo! +Buscadoshttp://br.maisbuscados.yahoo.com[As partes desta mensagem que não continham texto foram removidas] __ Explore the seven wonders of the world http://search.msn.com/results.aspx?q=7+wonders+worldmkt=en-USform=QBRE [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] Mostrar conteudo da tabela em um ComboBox
bom dia ...
queria saber como que eu faço para mostrar o conteúdo de uma tabela em um
ComboBox ...
eu tenho a tabela Cidade .. da qual o usuário pode cadastrar qualquer cidade ..
ai queria que a lista de cidades cadastrada pelo usuario fosse mostrada em um
ComboBox ...
tentei usar LookUp .. mas por meu banco de dados ser em Access nao deu muito
certo ...
pensei em algo mais ou menos assim:
ComboBox3.text := frmTabelas.ADOQ_Cidade.SQL.Add ('select cidade from Cidade');
mas ai dá um erro em tempo de compilação .. Tipos incompatíveis: TString e
Interger ..
valeu a ajuda de todos ..
Felipe Milagres
___
Att,
Felipe Milagres
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
Re: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
Luciano,
fiz o que o Sr. sugeriu mas nao lista nenhum ..
(tá cadastrado 3 cidades)
no seu codigo o qry1 é uma Query ou uma ADOQuery ???
valeu pela ajuda ...
Felipe Milagres
___
Att,
Felipe Milagres
--- Em seg, 17/11/08, Luciano Calenzani Simões [EMAIL PROTECTED] escreveu:
De: Luciano Calenzani Simões [EMAIL PROTECTED]
Assunto: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 17 de Novembro de 2008, 8:17
faz mais ou menos assim, usando TComboBox:
qry1.sql.text := 'select nome from cidade order by
nome'
qry1.open;
cbxCidade.Clear;
while not qry1.eof do
begin
cbxCidade.Items.Add(qry1.fieldbyname('nome').AsString);
qry1.next;
end;
qry1.close;
Ainda dá para imcrementar mais, como por exemplo já para
a primeira cidade: cbxIdade.ItemIndex := 0;
Ou ainda incluir um pointero junto ao item, ficando mais
fácil recuperar o valor selecionado.
Ou ainda concatenando o código da cidade ao nome para
posteriormente fazer Copy do código.
Ou ainda usando um ClientDataSet, usar um DbComboBox..
Luciano Calenzani Simões
De: Felipe Milagres [EMAIL PROTECTED]
Para: delphi-br delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 17 de Novembro de 2008 7:01:21
Assunto: [delphi-br] Mostrar conteudo da tabela em um
ComboBox
bom dia ...
queria saber como que eu faço para mostrar o conteúdo de
uma tabela em um ComboBox ...
eu tenho a tabela Cidade .. da qual o usuário pode
cadastrar qualquer cidade .. ai queria que a lista de
cidades cadastrada pelo usuario fosse mostrada em um
ComboBox ...
tentei usar LookUp .. mas por meu banco de dados ser em
Access nao deu muito certo ...
pensei em algo mais ou menos assim:
ComboBox3.text := frmTabelas.ADOQ_ Cidade.SQL. Add
('select cidade from Cidade');
mas ai dá um erro em tempo de compilação .. Tipos
incompatíveis: TString e Interger ..
Veja quais são os assuntos do momento no Yahoo!
+Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram
removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
Re: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
ta igual a sua sujestão ... so mudei os nomes dos campos .. e da tabela ...
qry1.sql.text := 'select cidade from Cidades order by cidade';
qry1.open;
cbxCidade.Clear;
while not qry1.eof do
begin
cbxCidade.Items.Add(qry1.fieldbyname('cidade').AsString );
qry1.next;
end;
qry1.close;
so que primeiro eu usei uma Query ... mas ai na propriedade DataBase Name dá
erro quando eu coloco o endereço da minha tabela em Access (bd.mdb) ..
e quando eu uso o ADOQuery tb nao lista .. na propriedade Connection eu faço a
conexeção com o banco (bd.mdb): frmTabelas.ADOConnection1 ...
e em ambos os Query ... no SQL em coloquei 'select Cidade from Cidades'
___
Att,
Felipe Milagres
--- Em seg, 17/11/08, Luciano Calenzani Simões [EMAIL PROTECTED] escreveu:
De: Luciano Calenzani Simões [EMAIL PROTECTED]
Assunto: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 17 de Novembro de 2008, 9:01
Posta teu código.
Luciano Calenzani Simões
_ _ __
De: Felipe Milagres felipe_a_milagres@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Segunda-feira, 17 de Novembro de 2008 7:48:06
Assunto: Re: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
fiz o que o Sr. sugeriu mas nao lista nenhum ..
(tá cadastrado 3 cidades)
no seu codigo o qry1 é uma Query ou uma ADOQuery ???
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
Luciano .. coloquei o codigo ... conectei o ADOQuery com meu banco ... (Connection : frmTabelas.ADOConnection1) .. fui no SQL e coloquei o codigo 'select cidade from cidades' e ativei ela ... coloquei um DataSource ... na propriedade DataSet : ADOQuery1 e mandei compilar ... abriu a tela de login .. preencho com Usuario e senha (1 e 1 ) e quando eu clico em OK e dá esse erro ... Project CDI.exe raised exception class EDatabeseError with message 'Missing Connection or ConnectionString' . Process .. ___ Att, Felipe Milagres --- Em seg, 17/11/08, Luciano Calenzani Simões [EMAIL PROTECTED] escreveu: De: Luciano Calenzani Simões [EMAIL PROTECTED] Assunto: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 9:31 Acabei de testar com ADO e funcionou. Olha o código: ADOQuery1.SQL. Text := 'select cidade from cidades'; ADOQuery1.Open; ComboBox1.Clear; while not ADOQuery1.eof do begin ComboBox1.Items. Add(ADOQuery1. FieldByName( 'cidade') .AsString) ; ADOQuery1.Next; end; ADOQuery1.Close; Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
Luciano .. obrigado pela ajuda .. acho q o meu banco de dados deve ter alguma coisa errada nele ... pq eu criei um banco de teste e funcionou o que o SR. sugeriu . agradeço muito a sua ajuda ... att, Felipe Milagres ps.: vc tem alguma ideia do erro que esta dando ??? ___ Att, Felipe Milagres --- Em seg, 17/11/08, Felipe Milagres [EMAIL PROTECTED] escreveu: De: Felipe Milagres [EMAIL PROTECTED] Assunto: Re: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 9:53 Luciano .. coloquei o codigo ... conectei o ADOQuery com meu banco ... (Connection : frmTabelas.ADOConne ction1) .. fui no SQL e coloquei o codigo 'select cidade from cidades' e ativei ela ... coloquei um DataSource ... na propriedade DataSet : ADOQuery1 e mandei compilar ... abriu a tela de login .. preencho com Usuario e senha (1 e 1 ) e quando eu clico em OK e dá esse erro ... Project CDI.exe raised exception class EDatabeseError with message 'Missing Connection or ConnectionString' . Process .. _ _ _ _ _ _ Att, Felipe Milagres --- Em seg, 17/11/08, Luciano Calenzani Simões simoesluciano@ yahoo.com. br escreveu: De: Luciano Calenzani Simões simoesluciano@ yahoo.com. br Assunto: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox Para: [EMAIL PROTECTED] os.com.br Data: Segunda-feira, 17 de Novembro de 2008, 9:31 Acabei de testar com ADO e funcionou. Olha o código: ADOQuery1.SQL. Text := 'select cidade from cidades'; ADOQuery1.Open; ComboBox1.Clear; while not ADOQuery1.eof do begin ComboBox1.Items. Add(ADOQuery1. FieldByName( 'cidade') .AsString) ; ADOQuery1.Next; end; ADOQuery1.Close; Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
Luciano,
eu fiz o seguinte .. em vez de recriar eu criei um novo arquivo Access contendo
so a tabela Cidade (vou colocar mais tabelas q prescisam de fazer a mesma coisa
.. serem listadas em um ComboBox) ...
ai ta beleza .. usei o seu codigo
ADOQuery1.SQL.Text := 'select cidade from cidade';
ADOQuery1.Open;
ComboBox3.Clear;
while not ADOQuery1.eof do
begin
ComboBox3.Items.Add(ADOQuery1.FieldByName('cidade').AsString);
ADOQuery1.Next;
end;
ADOQuery1.Close;
ComboBox3.ItemIndex := 0;
mas surgiu um problema .. ele so seleciona a primeira opção ...
_
Att,
Felipe Milagres
--- Em seg, 17/11/08, Luciano Calenzani Simões [EMAIL PROTECTED] escreveu:
De: Luciano Calenzani Simões [EMAIL PROTECTED]
Assunto: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 17 de Novembro de 2008, 10:17
Tente recriar a conexão ODBC
Luciano Calenzani Simões
_ _ __
De: Felipe Milagres felipe_a_milagres@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Segunda-feira, 17 de Novembro de 2008 9:11:12
Assunto: Re: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
ps.: vc tem alguma ideia do erro que esta dando ???
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox
uma coisa q eu esqueci de falar eu tava colocando o codigo no ComboBox ... por isso tava dando esses erros .. quando fiz igual o seu exemplo com um Button .. ai deu tudo certo agora como q eu faço para q um BDEdit receba o que foi selecionado ps.: eu estou indo para a escola agora ... retorno mais a tarde agradeço (mais uma vez) a sua ajuda ... ___ Att, Felipe Milagres --- Em seg, 17/11/08, Luciano Calenzani Simões [EMAIL PROTECTED] escreveu: De: Luciano Calenzani Simões [EMAIL PROTECTED] Assunto: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 10:17 Tente recriar a conexão ODBC Luciano Calenzani Simões _ _ __ De: Felipe Milagres felipe_a_milagres@ yahoo.com. br Para: [EMAIL PROTECTED] os.com.br Enviadas: Segunda-feira, 17 de Novembro de 2008 9:11:12 Assunto: Re: Res: [delphi-br] Mostrar conteudo da tabela em um ComboBox ps.: vc tem alguma ideia do erro que esta dando ??? Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] quais são comandos do DBGrid
boa tarde galera ... queria saber quais são os comandos usados no DBGrid eu sei alguns .. Primeiro frmTabelas.ADOQ_Imoveis.First; Anterior frmTabelas.ADOQ_Imoveis.prior; Proximo frmTabelas.ADOQ_Imoveis.Next; Ultimo frmTabelas.ADOQ_Imoveis.Last; Adicionar frmTabelas.ADOQ_Imoveis.Insert; Excluir frmTabelas.ADOQ_Imoveis.Delete; Alterar frmTabelas.ADOQ_Imoveis.Edit; Aceitar/Salvar ??? Cancelar frmTabelas.ADOQ_Imoveis.Cancel; Atualizar ? agora o Aceitar/Salvar e Atualizar .. eu nao sei ... alguem sabe ?? ___ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] Enc: quais são comandos do DBGrid [DBGrid nao .. . falai errado .. é DBNavigator]
galera foi mau .. falei coisa errada .. nun é DBGrid nao .. é DBNavigator ... hehehehhe falha nossa !!! hehe ___ Att, Felipe Milagres --- Em seg, 17/11/08, Felipe Milagres [EMAIL PROTECTED] escreveu: De: Felipe Milagres [EMAIL PROTECTED] Assunto: quais são comandos do DBGrid Para: delphi-br delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 17:54 boa tarde galera ... queria saber quais são os comandos usados no DBGrid eu sei alguns .. Primeiro frmTabelas.ADOQ_Imoveis.First; Anterior frmTabelas.ADOQ_Imoveis.prior; Proximo frmTabelas.ADOQ_Imoveis.Next; Ultimo frmTabelas.ADOQ_Imoveis.Last; Adicionar frmTabelas.ADOQ_Imoveis.Insert; Excluir frmTabelas.ADOQ_Imoveis.Delete; Alterar frmTabelas.ADOQ_Imoveis.Edit; Aceitar/Salvar ??? Cancelar frmTabelas.ADOQ_Imoveis.Cancel; Atualizar ? agora o Aceitar/Salvar e Atualizar .. eu nao sei ... alguem sabe ?? ___ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
Re: [delphi-br] quais são comandos do DBGrid
éhh é sim ... hehehe valeu pela ajuda e explicação ... ___ Att, Felipe Milagres --- Em seg, 17/11/08, Daniel Bastos [EMAIL PROTECTED] escreveu: De: Daniel Bastos [EMAIL PROTECTED] Assunto: Re: [delphi-br] quais são comandos do DBGrid Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 18:52 Aceitar/Salvar frmTabelas.ADOQ_Imoveis.Post; Cancelar frmTabelas.ADOQ_Imoveis.Cancel; Atualizar frmTabelas.ADOQ_Imoveis.Refresh; Só completando. Estes métodos não são do dbgrid, mas de TDataSet. O TDBGrid reflete as ações feitas no TDataSet. O TDataSet é o objeto base onde são herdados os TQuery, TTable e outros objetos de acesso da vida :) No seu caso, supondo pelo nome do objeto, é um TADOQuery. 2008/11/17 Felipe Milagres [EMAIL PROTECTED]: boa tarde galera ... queria saber quais são os comandos usados no DBGrid eu sei alguns .. Primeiro frmTabelas.ADOQ_Imoveis.First; Anterior frmTabelas.ADOQ_Imoveis.prior; Proximo frmTabelas.ADOQ_Imoveis.Next; Ultimo frmTabelas.ADOQ_Imoveis.Last; Adicionar frmTabelas.ADOQ_Imoveis.Insert; Excluir frmTabelas.ADOQ_Imoveis.Delete; Alterar frmTabelas.ADOQ_Imoveis.Edit; Aceitar/Salvar ??? Cancelar frmTabelas.ADOQ_Imoveis.Cancel; Atualizar ? agora o Aceitar/Salvar e Atualizar .. eu nao sei ... alguem sabe ?? ___ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Abs Daniel A. Bastos Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] Pesquisa usando ADO
boa tarde ..
estou tendo dificuldades em fazer pesquisa usando ADO ...
esse é o codigo do meu button :
With frmTabelas.ADOQ_Bairro Do
Begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM Bairro WHERE Bairro LIKE ' + Edit1.Text + '%');
//SQL.Prepared;
//SQL.Open;
end;
quando eu tiro o comentário de SQL.Prepared e do SQL.Open o programa nao
compila , por isso deixei eles como comentario .
___
Att,
Felipe Milagres
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
Re: [delphi-br] Enc: quais são comandos do DBGri d [DBGrid nao ... falai errado .. é DBNaviga tor]
nao sei se tem jeito de usar eles para o que eu quero .. porque eu quero que quando clicar em Adicionar .. ele faça o papel do butao de adiconar do dbNavigator e tambem que ele liste em um comboBox o tudo o que tiver dentro de um campo de uma tabela .. eu sei q é uma gambiarrá .. mas devido a falta de tempo .. eu nao fico pensando em outros meios de fazer a mesma coisa ... obrigado pela ajuda (sujestão) .. Felipe milagres ___ Att, Felipe Milagres --- Em seg, 17/11/08, Coutinho - Yahoo [EMAIL PROTECTED] escreveu: De: Coutinho - Yahoo [EMAIL PROTECTED] Assunto: Re: [delphi-br] Enc: quais são comandos do DBGrid [DBGrid nao ... falai errado .. é DBNavigator] Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 20:02 Caro colega, Porque vc não usa um actionList, com standard actions de Dataset... Vai te Dar menos trabalho!!! Sds Emanuel Coutinho Felipe Milagres escreveu: galera foi mau .. falei coisa errada .. nun é DBGrid nao .. é DBNavigator ... hehehehhe falha nossa !!! hehe _ _ _ _ _ _ Att, Felipe Milagres --- Em seg, 17/11/08, Felipe Milagres felipe_a_milagres@ yahoo.com. br mailto:felipe_ a_milagres% 40yahoo.com. br escreveu: De: Felipe Milagres felipe_a_milagres@ yahoo.com. br mailto:felipe_ a_milagres% 40yahoo.com. br Assunto: quais são comandos do DBGrid Para: delphi-br [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br Data: Segunda-feira, 17 de Novembro de 2008, 17:54 boa tarde galera ... queria saber quais são os comandos usados no DBGrid eu sei alguns .. Primeiro frmTabelas.ADOQ_ Imoveis.First; Anterior frmTabelas.ADOQ_ Imoveis.prior; Proximo frmTabelas.ADOQ_ Imoveis.Next; Ultimo frmTabelas.ADOQ_ Imoveis.Last; Adicionar frmTabelas.ADOQ_ Imoveis.Insert; Excluir frmTabelas.ADOQ_ Imoveis.Delete; Alterar frmTabelas.ADOQ_ Imoveis.Edit; Aceitar/Salvar ? ?? Cancelar frmTabelas.ADOQ_ Imoveis.Cancel; Atualizar ? agora o Aceitar/Salvar e Atualizar .. eu nao sei ... alguem sabe ?? _ _ _ _ _ _ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisa usando ADO
eduardo ...
deu certo o que vc sugeriu ... agora compila ... mas quando mando buscar o
bairro Palmeiras por exemplo dá essa mensagem de erro:
Project CDI.exe raised exception class EOleException with message 'Erro de
sintaxe na expressão de consulta 'Bairro LIKE Palmeiras%'. Process ..'
--
aldinei
o codigo nao compilou ... a sujestao do eduardo funcionou
obrigado pela ajuda ..
felipe milagres
___
Att,
Felipe Milagres
--- Em seg, 17/11/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu:
De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Pesquisa usando ADO
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 17 de Novembro de 2008, 19:37
Tem um zilhão de anos que nao uso ADO, mas acho que é assim:
With frmTabelas.ADOQ_ Bairro Do
Begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM Bairro WHERE Bairro LIKE ' + Edit1.Text + '%');
* Prepared;* // ou Prepare;
* Open;*
end;
2008/11/17 Felipe Milagres felipe_a_milagres@ yahoo.com. br
boa tarde ..
estou tendo dificuldades em fazer pesquisa usando ADO ...
esse é o codigo do meu button :
With frmTabelas.ADOQ_ Bairro Do
Begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM Bairro WHERE Bairro LIKE ' + Edit1.Text + '%');
//SQL.Prepared;
//SQL.Open;
end;
quando eu tiro o comentário de SQL.Prepared e do SQL.Open o programa nao
compila , por isso deixei eles como comentario .
_ _ _ _ _ _
Att,
Felipe Milagres
--
. . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
. . . . ...
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Enc: quais são comandos do DBGri d [DBGrid nao ... falai errado .. é DBNaviga tor]
Luciano Angelini .. agora q apareceu a sua mensagem .. valeu pela ajuda ___ Att, Felipe Milagres --- Em seg, 17/11/08, Luciano Angelini [EMAIL PROTECTED] escreveu: De: Luciano Angelini [EMAIL PROTECTED] Assunto: RE: [delphi-br] Enc: quais são comandos do DBGrid [DBGrid nao ... falai errado .. é DBNavigator] Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 18:53 Felipe para salvar .. FrmTabelas.ADOQ_ imoveis.Post . To: [EMAIL PROTECTED] os.com.brFrom: felipe_a_milagres@ yahoo.com. brDate: Mon, 17 Nov 2008 12:21:49 -0800Subject: [delphi-br] Enc: quais são comandos do DBGrid [DBGrid nao ... falai errado .. é DBNavigator] galera foi mau ..falei coisa errada .. nun é DBGrid nao .. é DBNavigator ...hehehehhefalha nossa !!!hehe_ _ _ _ _ _ Att, Felipe Milagres--- Em seg, 17/11/08, Felipe Milagres felipe_a_milagres@ yahoo.com. br escreveu: De: Felipe Milagres felipe_a_milagres@ yahoo.com. br Assunto: quais são comandos do DBGrid Para: delphi-br [EMAIL PROTECTED] os.com.br Data: Segunda-feira, 17 de Novembro de 2008, 17:54 boa tarde galera ... queria saber quais são os comandos usados no DBGrid eu sei alguns .. Primeiro frmTabelas.ADOQ_ Imoveis.First; Anterior frmTabelas.ADOQ_ Imoveis.prior; Proximo frmTabelas.ADOQ_ Imoveis.Next; Ultimo frmTabelas.ADOQ_ Imoveis.Last; Adicionar frmTabelas.ADOQ_ Imoveis.Insert; Excluir frmTabelas.ADOQ_ Imoveis.Delete; Alterar frmTabelas.ADOQ_ Imoveis.Edit; Aceitar/Salvar ? ?? Cancelar frmTabelas.ADOQ_ Imoveis.Cancel; Atualizar ? agora o Aceitar/Salvar e Atualizar .. eu nao sei ... alguem sabe ?? _ _ _ _ _ _ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. comVeja quais são os assuntos do momento no Yahoo! +Buscadoshttp: //br.maisbuscado s.yahoo.com _ _ _ _ _ _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video. msn.com/? mkt=pt-br [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisa usando ADO
Eduardo Silva .. muito obrigado .. agora faz a pesquisa tudo beleza heheh sem nenhum erro ... eu vou dar uma olhada nesse componente q vc falou ... mas vai ser para outro projeto ... pq esse aki ... se eu for mudar agora nao compença outra coisa ... eu tava fazendo uma coisa errada .. tava mandando pesquisar na tabela Bairro .. mas na verdade era pra ser na tabela Imovel ... nela tem um campo Bairro ... q é preenchido com o conteudo q tiver no campo bairro da tabela bairro hheheh eu sei q é uma extrema gambiarrá mas se tivesse + tempo .. pensaria em coisa melhor.. hehehe mas enfim ... muito obrigado pela ajuda ... obrigado a todos []s, Felipe Milagres ___ Att, Felipe Milagres --- Em seg, 17/11/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: De: Eduardo Silva dos Santos [EMAIL PROTECTED] Assunto: Re: [delphi-br] Pesquisa usando ADO Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 20:31 Olá Felipe, tente usando parâmetros, é sempre melhor e o código fica mais limpo. With frmTabelas.ADOQ_ Bairro Do Begin Close; SQL.Clear; SQL.Add( 'SELECT * FROM Bairro WHERE Bairro LIKE :Find ' ); Parameters.ParamByN ame( 'Find' ).Value := Edit1.Text + '%'; Prepared := True; Open; end; e se tiver começando um projeto agora e puder investir em um componente de acesso melhor, pesquise sobre o SDAC da DevArt.. muito superior ao ADO. 2008/11/17 Felipe Milagres felipe_a_milagres@ yahoo.com. br eduardo ... deu certo o que vc sugeriu ... agora compila ... mas quando mando buscar o bairro Palmeiras por exemplo dá essa mensagem de erro: Project CDI.exe raised exception class EOleException with message 'Erro de sintaxe na expressão de consulta 'Bairro LIKE Palmeiras%'. Process ..' -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisa usando ADO
aki ... eu esqueci de perguntar ... e em uma pesquisa MISTA .. como q seria ?? att, Felipe ___ Att, Felipe Milagres --- Em seg, 17/11/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: De: Eduardo Silva dos Santos [EMAIL PROTECTED] Assunto: Re: [delphi-br] Pesquisa usando ADO Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 20:59 Blz Filipe.. bom que deu certo.. o link do componente é este: http://devart. com/sdac/ é pago, mais vale a pena; quanto a questão do campo, eu sinceramente nao acho tão gambiarra assim não, na teoria fica lindo.. fazer relacionamentos e tals.. mais quando sua tabela ta com 1.000.000 de registros um left join desse te mata... em fim.. o importante é funcionar. sucesso ae. 2008/11/17 Felipe Milagres felipe_a_milagres@ yahoo.com. br Eduardo Silva .. muito obrigado .. agora faz a pesquisa tudo beleza heheh sem nenhum erro ... eu vou dar uma olhada nesse componente q vc falou ... mas vai ser para outro projeto ... pq esse aki ... se eu for mudar agora nao compença outra coisa ... eu tava fazendo uma coisa errada .. tava mandando pesquisar na tabela Bairro .. mas na verdade era pra ser na tabela Imovel ... nela tem um campo Bairro ... q é preenchido com o conteudo q tiver no campo bairro da tabela bairro hheheh eu sei q é uma extrema gambiarrá mas se tivesse + tempo .. pensaria em coisa melhor.. hehehe mas enfim ... muito obrigado pela ajuda ... obrigado a todos []s, Felipe Milagres _ _ _ _ _ _ Att, Felipe Milagres --- Em seg, 17/11/08, Eduardo Silva dos Santos eduardo.drd@ gmail.comeduardo.drd% 40gmail.com escreveu: De: Eduardo Silva dos Santos eduardo.drd@ gmail.comeduardo.drd% 40gmail.com Assunto: Re: [delphi-br] Pesquisa usando ADO Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br Data: Segunda-feira, 17 de Novembro de 2008, 20:31 Olá Felipe, tente usando parâmetros, é sempre melhor e o código fica mais limpo. With frmTabelas.ADOQ_ Bairro Do Begin Close; SQL.Clear; SQL.Add( 'SELECT * FROM Bairro WHERE Bairro LIKE :Find ' ); Parameters.ParamByN ame( 'Find' ).Value := Edit1.Text + '%'; Prepared := True; Open; end; e se tiver começando um projeto agora e puder investir em um componente de acesso melhor, pesquise sobre o SDAC da DevArt.. muito superior ao ADO. 2008/11/17 Felipe Milagres felipe_a_milagres@ yahoo.com. br eduardo ... deu certo o que vc sugeriu ... agora compila ... mas quando mando buscar o bairro Palmeiras por exemplo dá essa mensagem de erro: Project CDI.exe raised exception class EOleException with message 'Erro de sintaxe na expressão de consulta 'Bairro LIKE Palmeiras%'. Process ..' -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisa usando ADO
isso mesmo .. tipo tem lá um EDIT ai a pessoa digita qualquer coisa ... pode ser o nº da casa .. pode ser condominio, pode ser o nome do bairro ai buscaria ... vo testar o codigo .. ainda nao testei .. to terminando de fazer as buscas (são 6 ) hhe mais uma vez ... obrigado ... ___ Att, Felipe Milagres --- Em seg, 17/11/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: De: Eduardo Silva dos Santos [EMAIL PROTECTED] Assunto: Re: [delphi-br] Pesquisa usando ADO Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 21:46 oque você entende por mista? seria buscar por qualquer parte do campo? se for isso seria assim: Parameters.ParamByN ame( 'Find' ).Value := '%' + Edit1.Text + '%'; 2008/11/17 Felipe Milagres felipe_a_milagres@ yahoo.com. br aki ... eu esqueci de perguntar ... e em uma pesquisa MISTA .. como q seria ?? att, Felipe -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisa usando ADO
mais uma coisa ... o codigo SQL é qual .. ?? pq antes eu tinha o campo exato para eu pesquisar exemplo: SQL.Add( 'SELECT * FROM Imoveis WHERE Classificacao LIKE :Find ' ); ele retornava o que foi pesquisado no campo Classificacao mas na mista nun tem um campo especifico, são todos ... ai eu tirei o WHERE .. SQL.Add( 'SELECT * FROM Imoveis LIKE :Find ' ); mas ai deu erro .. fala: erro de sintaxe na cláusula FROM alguma ideia ?? att, Felipe ___ Att, Felipe Milagres --- Em seg, 17/11/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: De: Eduardo Silva dos Santos [EMAIL PROTECTED] Assunto: Re: [delphi-br] Pesquisa usando ADO Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 22:04 Blz.. posta o resultado ae pra gente. 2008/11/17 Felipe Milagres felipe_a_milagres@ yahoo.com. br isso mesmo .. tipo tem lá um EDIT ai a pessoa digita qualquer coisa ... pode ser o nº da casa .. pode ser condominio, pode ser o nome do bairro ai buscaria ... vo testar o codigo .. ainda nao testei .. to terminando de fazer as buscas (são 6 ) hhe mais uma vez ... obrigado ... __ . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisa usando ADO
bom ... se é para mim escolher um campo ... eu te pergunto uma coisa ... essa é a minha tabela .. IMOVEIS quais desses campos entao eu escolho: Código Descricao Metragem Pavimentos Numero_de_quarto Rua_Av Numero Complemento Bairro Cidade Regiao Classificacao Tipo_imovel Operacao_comercial Valor IPTU Condominio pensei em descrição ... acho q seria o melhor []s, ___ Att, Felipe Milagres --- Em seg, 17/11/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: De: Eduardo Silva dos Santos [EMAIL PROTECTED] Assunto: Re: [delphi-br] Pesquisa usando ADO Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 22:18 como diz o padre kevedo... isso nom essiste Você deve especificar um campo.. Pode consultar por parte dos valores que estão no campo.. agora pesquisar por todos os campos não da.. vc terá que criar opções e mudar seu SQL dinamicamente. . senão vira bagunça;; hehe 2008/11/17 Felipe Milagres felipe_a_milagres@ yahoo.com. br mais uma coisa ... o codigo SQL é qual .. ?? pq antes eu tinha o campo exato para eu pesquisar exemplo: SQL.Add( 'SELECT * FROM Imoveis WHERE Classificacao LIKE :Find ' ); ele retornava o que foi pesquisado no campo Classificacao mas na mista nun tem um campo especifico, são todos ... ai eu tirei o WHERE .. SQL.Add( 'SELECT * FROM Imoveis LIKE :Find ' ); mas ai deu erro .. fala: erro de sintaxe na cláusula FROM alguma ideia ?? att, Felipe _ _ _ _ _ _ Att, Felipe Milagres --- Em seg, 17/11/08, Eduardo Silva dos Santos eduardo.drd@ gmail.comeduardo.drd% 40gmail.com escreveu: De: Eduardo Silva dos Santos eduardo.drd@ gmail.comeduardo.drd% 40gmail.com Assunto: Re: [delphi-br] Pesquisa usando ADO Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br Data: Segunda-feira, 17 de Novembro de 2008, 22:04 Blz.. posta o resultado ae pra gente. 2008/11/17 Felipe Milagres felipe_a_milagres@ yahoo.com. br isso mesmo .. tipo tem lá um EDIT ai a pessoa digita qualquer coisa ... pode ser o nº da casa .. pode ser condominio, pode ser o nome do bairro ai buscaria ... vo testar o codigo .. ainda nao testei .. to terminando de fazer as buscas (são 6 ) hhe mais uma vez ... obrigado ... __ . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisa usando ADO
ashuashuashuash ..
bom eduardo ...
acho q vou fazer o combox ... pq assim nao tem como falar mau
eheheh
muito obrigado pela ajuda ...
aki ... o codigo seria mais ou menos isso:
var
cNm_Campo:String;
begin
case CmbTipo_Pesquisa.ItemIndex of //CmbTipo_Pesquisa é o nome do ComboBox com
as opções de Busca
0:cNm_Campo := 'Descricao';
1:cNm_Campo := 'Metragem';
2:cNm_Campo := 'Pavimentos' ;
end;
With frmTabelas.ADOQ_Imoveis Do
Begin
Close;
SQL.Clear;
SQL.Add('Select campo1, campo2 from Tabela Where ' + cNm_Campo + 'LIKE :Find');
Parameters.ParamByName('Find').Value := Edit1.Text + '%';
Prepared := True;
Open;
obs.: eu testei ai falou erro sobre o LIKE (Erro de sintaxe (operador
faltando) na expressao de consulta 'DescricaoLIKE?' ...
eu selecionei no combox a opção Descricao
___
Att,
Felipe Milagres
--- Em seg, 17/11/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu:
De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Pesquisa usando ADO
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 17 de Novembro de 2008, 22:36
Felipe.. isso ai só vc e seu cliente vai decidir.. você pode ser um cara
bom pro seu cliente.. e na tela de busca colocar
um combobox pro cliente escolher por qual tipo de campo.. é claro que não
precisa ser por todos os campos.. coloca só os principais..
e na sua rotina vc verifica qual opção do combo foi selecionada e monta o
SQL com base nisso..
vamos ao exemplo:
* *
var
cNm_Campo:String;
begin
case CmbTipo_Pesquisa. ItemIndex of //CmbTipo_Pesquisa é o nome do
ComboBox com as opções de Busca
0:cNm_Campo := 'Descricao';
1:cNm_Campo := 'Metragem';
2:cNm_Campo := 'Pavimentos' ;
end;
. ...
SQL.Text := 'Select campo1, campo2 from Tabela Where ' + cNm_Campo + '
LIKE :Find';
. .
end;
* * * **
Pronto.. mais que isso me passa seu CPF e endereço pra eu te enviar um
boleto,, heheheh
sucesso ae..
2008/11/17 Felipe Milagres felipe_a_milagres@ yahoo.com. br
bom ...
se é para mim escolher um campo ...
eu te pergunto uma coisa ... essa é a minha tabela .. IMOVEIS
quais desses campos entao eu escolho:
Código
Descricao
Metragem
Pavimentos
Numero_de_quarto
Rua_Av
Numero
Complemento
Bairro
Cidade
Regiao
Classificacao
Tipo_imovel
Operacao_comercial
Valor
IPTU
Condominio
pensei em descrição ... acho q seria o melhor
[]s,
--
. . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
. . . . ...
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] fechar todas as telas
eu usei o código sugerido Application.Terminate ... ai agora ele sai tudo beleza ... mas queria saber , qual a importancia de saber se o form de Login está sendo apontado como Main Frame . . . . att, Felipe Milagres .. --- Em ter, 4/11/08, Silvio Clécio [EMAIL PROTECTED] escreveu: De: Silvio Clécio [EMAIL PROTECTED] Assunto: Res: [delphi-br] fechar todas as telas Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 4 de Novembro de 2008, 12:46 Olá pessoal, Felipe, posta uma parte do código pra gente ver. Com Application. Terminate você encerra toda a aplicação, mas veja se o seu Form de LogOn não está apontado como Main Form. _ _ __ Um abraço! Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] com.br Gmail, Google Talk: [EMAIL PROTECTED] com Hotmail, MSN: silvio_prog@ hotmail.com BlogSpot: http://silvioclecio .blogspot. com/ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! _ _ __ De: Felipe Milagres felipe_a_milagres@ yahoo.com. br Para: delphi-br [EMAIL PROTECTED] os.com.br Enviadas: Terça-feira, 4 de Novembro de 2008 9:40:24 Assunto: [delphi-br] fechar todas as telas Galera .. to com o seguinte problema ... eu executo a minha aplicação .. e apareça a tela de login (FrmLogin) quando eu faço o login .. . aparece outra tela (FrmPrincipal) ai quando eu clico no botao de fechar (btnFechar) .. ele fecha essa tela FrmPrincipal e fica aberta a tela de login (FrmLogin) ... ai eu tenho q fechar a de login .. eu queria saber um meio de quando fechar a tela FrmPrincipal .. fechar todas as outras ... att, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] fechar todas as telas
Galera .. to com o seguinte problema ... eu executo a minha aplicação .. e apareça a tela de login (FrmLogin) quando eu faço o login .. . aparece outra tela (FrmPrincipal) ai quando eu clico no botao de fechar (btnFechar) .. ele fecha essa tela FrmPrincipal e fica aberta a tela de login (FrmLogin) ... ai eu tenho q fechar a de login .. eu queria saber um meio de quando fechar a tela FrmPrincipal .. fechar todas as outras ... att, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] nao consigo alterar o conteudo do DBEdit
ai galera.. demorei a responder pq to um pouco sem tempo .. mas seguinte ... a respeito de escrever no DBEdit, eu tava olhando a Query (Qvoto) q eu consigo mecher com a Query (Qarmazem2) que nao consigo mecher , e reparei que as propriedades estavam diferentes . Na Qvoto, as propriedades RequestLive e UniDirectional estavam TRUE, entao eu fui e coloquei a mesma coisa na Qarmazem2 ... e deu certo , nun deu mais aquele erro ... eu consigo numa boa escrever nos DBEdit's ... mas como felicidade de pobre dura pouco ... quando eu mando salvar o conteudo dos DBEdit's , dá o seguinte erro: Project SISRET.exe raised exception class EDBEngineError with message 'General SQL error. [Microsoft][ODBC SQL Server Driver][SQL Server] The view or function 'dbo.VIEW18' is not updatable because the definition contains the TOP clause.'. Process stopped. Use Step ou Run to continue. so pra completar .. o comando que eu usei para salvar é esse : // esse aki ja existia DMSISRET.Qvoto.edit; DMSISRET.Qvoto.Post; DMSISRET.Qvoto.Close; DMSISRET.Qvoto.Open; Pagecontrol1.Enabled := false; Panel1.Enabled := false; Edit1.Text := ''; // seguindo o mesmo exemplo do código que ja existia, eu fiz esse: DMSISRET.Qarmazem2.edit; DMSISRET.Qarmazem2.Post; DMSISRET.Qarmazem2.Close; DMSISRET.Qarmazem2.Open; Panel3.Enabled := false; Edit1.Text := ''; alguem sabe agora o que está errado ??? valeu a ajuda de todos ... Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] nao consigo alterar o conteudo do DBEdit
seguinte galera .. eu tenho que uma aplicação que possui DBEdit's, consigo fazer todas as opções do DBNavigator (mas nao usa o DBNavigator , são varios botoes) (Primeiro | , Anterior , Proximo , Ultimo | , Ecluir - , Alterar /\ , Salvar , Cancelar X) entao .. essa aplicação nao fui eu quem fiz ... agora .. eu tenho que fazer a mesma coisa só que com outros campos (de uma outra tabela) .. ai que ta o problema ... meu problema maior ta sendo no Alterar , ja que nos DBEdit's novos eu nao estou conseguindo altera-los procurei o comando do botao Alterar , e achei esse codigo: DMSISRET.Qvoto.Edit; Pagecontrol1.Enabled := True; Panel1.Enabled := True; Edit1.Text := 'A'; entao eu fui e acrescentei esse codigo DMSISRET.Qarmazem2.Edit; \\ aki é a minha tabela Panel3.Enabled := True; \\ e aki é onde os campos está ai quando compilei , e apertei o botao Alterar , deu esse erro Project SISRET.exe raised exception class EDatabaseError with message 'Qarmazem2: Cannot modify a read-only dataset'. Process stopped. Use Step ou Run to continue. o que estou fazendo de errado ? valeu a todos, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] nao consigo alterar o conteudo do DBEdit
Você está recebendo uma mensagem de erro de tabela que é read-only, ou seja, bloqueada para edições... como que eu faço para tirar esse bloqueio? Não entendi bem o que vc está fazendo com painéis. Você apresenta os painéis como paginação dos campos que deseja editar? isso, os campos da tabela Qvoto ficam em um painel e os campos da tabela Qarmazem2 em outro painel seu dataset é um Table, ou uma Query? uma Query O Componente que vc esta usando para realizar as alterações deve estar somente leitura Se o componente for uma query... creio que não seja possivel alterar desta maneira usando o query.edit ... mas os componentes da tabela Qvoto eu consigo editar usando o mesmo comando --- Em qui, 25/9/08, Coutinho - Yahoo [EMAIL PROTECTED] escreveu: De: Coutinho - Yahoo [EMAIL PROTECTED] Assunto: Re: [delphi-br] nao consigo alterar o conteudo do DBEdit Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 25 de Setembro de 2008, 9:52 Amigo Você está recebendo uma mensagem de erro de tabela que é read-only, ou seja, bloqueada para edições... Não entendi bem o que vc está fazendo com painéis. Você apresenta os painéis como paginação dos campos que deseja editar? seu dataset é um Table, ou uma Query? Tudo isso é importante saberr!!! Sds Emanuel Felipe Milagres escreveu: seguinte galera .. eu tenho que uma aplicação que possui DBEdit's, consigo fazer todas as opções do DBNavigator (mas nao usa o DBNavigator , são varios botoes) (Primeiro | , Anterior , Proximo , Ultimo | , Ecluir - , Alterar /\ , Salvar , Cancelar X) entao .. essa aplicação nao fui eu quem fiz ... agora .. eu tenho que fazer a mesma coisa só que com outros campos (de uma outra tabela) .. ai que ta o problema ... meu problema maior ta sendo no Alterar , ja que nos DBEdit's novos eu nao estou conseguindo altera-los procurei o comando do botao Alterar , e achei esse codigo: DMSISRET.Qvoto. Edit; Pagecontrol1. Enabled := True; Panel1.Enabled := True; Edit1.Text := 'A'; entao eu fui e acrescentei esse codigo DMSISRET.Qarmazem2. Edit; \\ aki é a minha tabela Panel3.Enabled := True; \\ e aki é onde os campos está ai quando compilei , e apertei o botao Alterar , deu esse erro Project SISRET.exe raised exception class EDatabaseError with message 'Qarmazem2: Cannot modify a read-only dataset'. Process stopped. Use Step ou Run to continue. o que estou fazendo de errado ? valeu a todos, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] problemas com o Report Builder e Impressão
bom dia ... estou com o seguintes problemas: 1) estou usando o Report Builder para fazer os relatórios... quando imprimo eles em uma impressora a laser sai tudo certo .. porem , quando eu imprimo usando uma matricial, as escritas ficam fora do lugar determinado onde ficaria elas.. explicando melhor: assim é a impressao feita por impressoras a laser e jato de tinta .. -- | textotextotextotextotextotexto | | textotextotextotextotextotexto | -- assim é a impressao feita por impressoras matriciais .. | textotextotextotextotextotext|textotextotextotextotexto | textotextotextotextotextotext|textotextotextotextotexto 2) queria que o relatório tivesse o conteúdo justificado, não achei essa opção no Report Builder... Att .. Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses
[delphi-br] mascara
bom dia .. eu esqueci como se coloca mascara em um campo (Edit) ... tipo .. esse campo é de Data . ou seja .. a mascara seria mais ou menos assim: dd/mm/ obs.: estou usando o Delphi 4 att, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] mascara
valeu a ajuda gente ... hheheh... eu tava usando o Edit, por isso nao achei a propriedade de colocar mascara ... nun lembrava do TMaskEdit .. valeu a todos .. att, Felipe Milagres ... --- Em ter, 26/8/08, Walter Chagas Jr (BOL) [EMAIL PROTECTED] escreveu: De: Walter Chagas Jr (BOL) [EMAIL PROTECTED] Assunto: Re: [delphi-br] mascara Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 26 de Agosto de 2008, 13:50 É facil trocar, abre o form em formato texto e edita por lá. Faz um Search/Replace e pronto. Tá morta a galinha hehehehe []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] com.br http://www.geocitie s.com/SiliconVal ley/Bay/1058 http://delphitocorp orerm.blogspot. com/ MSN: whitesockets@ hotmail.com SKYPE: WalterChagasJr - Original Message - From: Luciano Calenzani Simões simoesluciano@ yahoo.com. br To: [EMAIL PROTECTED] os.com.br Sent: Tuesday, August 26, 2008 1:02 PM Subject: Res: [delphi-br] mascara Sei disso, mas mão me pareceu que ele esteja utilizando compnentes data-aware, ele citou Edit. Luciano Calenzani Simões - Mensagem original De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com Para: [EMAIL PROTECTED] os.com.br Enviadas: Terça-feira, 26 de Agosto de 2008 12:18:37 Assunto: RE: Res: [delphi-br] mascara Que nada! Basta configurar na propriedade EditMask do objeto TField associado ao campo a máscara desejada. Simples assim! Pra quê reinventar com TMaskEdit? Data-aware rocks! Sds. _ _ __ To: [EMAIL PROTECTED] os.com.br From: simoesluciano@ yahoo.com. br Date: Tue, 26 Aug 2008 07:42:23 -0700 Subject: Res: [delphi-br] mascara Use o TMaskEdit. Luciano Calenzani Simões - Mensagem original De: Felipe Milagres felipe_a_milagres@ yahoo.com. br Para: delphi-br [EMAIL PROTECTED] p os.com.br Enviadas: Terça-feira, 26 de Agosto de 2008 9:34:38 Assunto: [delphi-br] mascara bom dia .. eu esqueci como se coloca mascara em um campo (Edit) ... tipo .. esse campo é de Data . ou seja .. a mascara seria mais ou menos assim: dd/mm/ obs.: estou usando o Delphi 4 att, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Informação do ESET NOD32 Antivirus, versão da vacina 3389 (20080826) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset. com Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Nao coloca o zero
André Yahoo,
valeu mesmo ...
deu certo o que vc falou ...
valei mesmo ...
[]s
Felipe Milagres
--- Em sex, 8/8/08, André Yahoo [EMAIL PROTECTED] escreveu:
De: André Yahoo [EMAIL PROTECTED]
Assunto: Re: Res: [delphi-br] Nao coloca o zero
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 8 de Agosto de 2008, 9:08
o seu problema está aqui:
comando := 'INSERT INTO ARQUIVO(ARQ_ NOME) VALUES(' + bloco1 + ')';
tente
comando := 'INSERT INTO ARQUIVO(ARQ_ NOME) VALUES(' + quotedStr(bloco1) + ')';
vc está passando ele como se fosse uma string sem aspas, logo ele pode estar
tratando como se fosse um número, tento colocar o texto entre aspas que deve
funcionar
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Nao coloca o zero
isso eu ja tententei .. tipo, eu tb mando mostrar com ShowMessage o conteudo da variavel (bloco1) que tem o nome escrito .. e quando mostra, lá ta com o Zero ... --- Em qui, 7/8/08, adilson martins [EMAIL PROTECTED] escreveu: De: adilson martins [EMAIL PROTECTED] Assunto: Res: [delphi-br] Nao coloca o zero Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 7 de Agosto de 2008, 8:56 Meu amigo na hora da leitura crie uma funcao q teste todos inicio de arquivo... se for zero na hora da imporçao atribua zero antes de gravar o nome... nini = numero inicio if nini = 0 then begin nini:= '0'+nini end else proximo Att. Adilson /(44)99265497 - Mensagem original De: Felipe Milagres felipe_a_milagres@ yahoo.com. br Para: [EMAIL PROTECTED] os.com.br Enviadas: Quarta-feira, 6 de Agosto de 2008 10:06:08 Assunto: [delphi-br] Nao coloca o zero bom dia a todos .. to com o seguinte problema .. eu tenho nome de arquivos em um TXT (os nomes são 8 numeros - Ex.:12345678) , acontece que tem nomes que começão com 0 (zero), e quando ele é importado para o banco de dados Access, o zero não é importado .. eu sei que Zero a direita não tem valor ... porem por ser nomes de arquivos, esse zero tem valor tipo, o nº 05 é igual á 5, mas o nome 05 é diferente de 5 .. qual comando eu faço para fazer o 0(zero) ser importado ??? []s Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Nao coloca o zero
bom dia a todos .. to com o seguinte problema .. eu tenho nome de arquivos em um TXT (os nomes são 8 numeros - Ex.:12345678), acontece que tem nomes que começão com 0 (zero), e quando ele é importado para o banco de dados Access, o zero não é importado .. eu sei que Zero a direita não tem valor ... porem por ser nomes de arquivos, esse zero tem valor tipo, o nº 05 é igual á 5, mas o nome 05 é diferente de 5 .. qual comando eu faço para fazer o 0(zero) ser importado ??? []s Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Nao coloca o zero
ai galera, to respondendo agora pq tava na aula ..
abaixo o meu codigo ..
procedure TFrmCriarBase.btnBaseClick(Sender: TObject);
var
x: integer;
bloco1, caminho, base, comando: string;
begin
// no codigo eu defino meu banco de dados, que no caso é em Access
// defino o diretório onde ele ficará
caminho := 'K:\Dm\TXT2MDB\MDB\tabela.mdb';
// crio a tabela de nome arquivo contendo nomes de ate 8 caracteres
if FrmCriarTabelas.CloseQuery then
begin
// nao sei se essa parte ajudaria, mas quando eu tiro ela, da erro, falando que
ele ja existe, (pq no meu outro codigo (que nao tem problema nenhum) eu tb crio
o arquivo MDB, para que este codigo possa compilar)
if FileExists('K:\Dm\TXT2MDB\MDB\tabela.mdb') then
DeleteFile('K:\Dm\TXT2MDB\MDB\tabela.mdb');
if FileExists('K:\Dm\TXT2MDB\MDB\tabela.mdb')
then
if comando = 'CREATE TABLE ARQUIVO (ARQ_NOME TEXT(8))'
then
ShowMessage('Tabela já existe')
else
begin
// aki é no caso de ela nao existir, eu crio o arquivo Access e a tabela ARQUIVO
{ definindo a base de dados }
base := 'Provider=Microsoft.Jet.OLEDB.4.0' + ';Data Source=' +
caminho + ';Persist Security Info=False';
ADOConnection1.ConnectionString := base;
{ Criando a tabela }
{ Arquivos }
comando := 'CREATE TABLE ARQUIVO (ARQ_NOME TEXT(8))';
ADOCommand1.CommandText := comando;
ADOCommand1.Execute;
ADOCommand1.Cancel;
// aki é onde importa do TXT que está os nomes para o Memo1
Memo1.Lines.LoadFromFile('K:\Dm\TXT2MDB\Lista\lista.txt');
// aki, ele conta la as linha e fica repetindo até nao existir mais coisas
escrita (esse codigo peguei da net)
for x:=0 to Memo1.Lines.Count - 1 do
begin
// a variavel bloco1 recebe os primeiros 8 caracteres de cada linha
bloco1:=copy(Memo1.Lines.Strings[x],1,8);
// nesse ShowMessage ele mostra na tela o nome e nele tem o Zero na frente
ShowMessage(bloco1);
// aki é que é feita o INSERT do conteudo que está dentro da variavel bloco1
para a tabela ARQUIVO
comando := 'INSERT INTO ARQUIVO(ARQ_NOME) VALUES(' + bloco1 + ')';
ADOCommand2.CommandText := comando;
ADOCommand2.Execute;
close;
end;
end;
end;
end;
end.
[]'s a todos,
Felipe Milagres
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] nao quer sair da aplicação
acontece o seguinte, esse formulario serve para importa o conteudo de um TXT para uma tabela em Access ... ai isso é automático .. é isso q meu formulário faz .. e quando terminar, ele precisa ser fechado .., mas nao pelo usuario, e sim pelo proprio formulario --- Em ter, 22/7/08, Alexandre Rodrigues [EMAIL PROTECTED] escreveu: De: Alexandre Rodrigues [EMAIL PROTECTED] Assunto: Re: [delphi-br] nao quer sair da aplicação Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 22 de Julho de 2008, 21:12 Só uma coisa que não entendi é para que serve o formulário então? Se vc cria um aplicativo que no inicializar é encerrada a meu ver não precisa de formulário. Felipe Milagres escreveu: oi, eu fiz uma aplicação onde tinha um botao que ao ser clicado, fazia tudo o que tinha q fazer, e no final, fazia sair da aplicação ... porem , nao podia ter botao nessa aplicação, e entao eu usei a propriedade onActivate do form, e coloquei todo o codigo que estava no botao na nova procedure criada... porem agora, quando ele faz tudo o que tem que fazer, ele nao sai do form ... coloquei em tudo quanté possição o comando Form1.close; , mas nao faz efeito nenhum ... o estranho é que quando eu fui testar (usando um ShowMessage) se quando compilava, o delphi pulava essa parte, ele lia a parte perfeitamente .. []s, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. com/mailbeta/ tudonovo/ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar um botao auto executavel
oi, estou precisando de fazer um botao que se auto execute ... porem nao sei como fazer isso att, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar um botao auto executavel
tipo, é o seguinte eu fiz uma aplicação usando um botao en um form que quando apertado vai para outro form (Form2.ShowModal;) porem esse aplicativo que estou fazendo, o usuario nem saberá que ele existe, so sabe o que ele faz ... ou seja, ja que eu tenho um botao, eu precisaria que ele fosse ativado quando o aplicativo fosse axecutado . entendeu ??? []s, Felipe Milagres --- Em ter, 22/7/08, Alessandro DUARTE de Moraes [EMAIL PROTECTED] escreveu: De: Alessandro DUARTE de Moraes [EMAIL PROTECTED] Assunto: Re: [delphi-br] Criar um botao auto executavel Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 22 de Julho de 2008, 8:05 O que queres dizer com um botão auto executável? Explique bem detalhadamente sua necessidade. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacas arg.com.br (53) 3233-7118 - Original Message - From: Felipe Milagres To: [EMAIL PROTECTED] os.com.br Sent: Monday, July 21, 2008 8:41 PM Subject: [delphi-br] Criar um botao auto executavel oi, estou precisando de fazer um botao que se auto execute ... porem nao sei como fazer isso att, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] - - E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] net Chave de Identifica��o: 54568,4885be2423982 5399315076 [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Simular um clique numa tabSheet
oi, estou precisando saber como que eu simulo um clique em uma tabSheet, pq assim ele acionara um outro evento []s Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar um botao auto executavel
Bem, como os outros já comentaram, creio ser sem sentido ter um botão, já que o usuário nem sabe que ele existe, quanto mais clicar nele ... concordo , porem quando eu fiz o aplicativo , nao sabia que o usuario não saberia de sua existencia, por isso usei botoes, porem agora que fui informado desse fato , nao quero fazer toda a aplicação de novo ... valeu pela ajuda de todos Felipe Milagres --- Em ter, 22/7/08, Alessandro DUARTE de Moraes [EMAIL PROTECTED] escreveu: De: Alessandro DUARTE de Moraes [EMAIL PROTECTED] Assunto: Re: [delphi-br] Criar um botao auto executavel Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 22 de Julho de 2008, 10:16 Bem, como os outros já comentaram, creio ser sem sentido ter um botão, já que o usuário nem sabe que ele existe, quanto mais clicar nele ... Mas, não vou entrar no mérito da questão ... no OnCreate do Form invoque o método Click do botão, assim: NomeDoBotao. Click; Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacas arg.com.br (53) 3233-7118 - Original Message - From: Felipe Milagres To: [EMAIL PROTECTED] os.com.br Sent: Tuesday, July 22, 2008 8:40 AM Subject: Re: [delphi-br] Criar um botao auto executavel tipo, é o seguinte eu fiz uma aplicação usando um botao en um form que quando apertado vai para outro form (Form2.ShowModal; ) porem esse aplicativo que estou fazendo, o usuario nem saberá que ele existe, so sabe o que ele faz ... ou seja, ja que eu tenho um botao, eu precisaria que ele fosse ativado quando o aplicativo fosse axecutado . entendeu ??? []s, Felipe Milagres --- Em ter, 22/7/08, Alessandro DUARTE de Moraes [EMAIL PROTECTED] com.br escreveu: De: Alessandro DUARTE de Moraes [EMAIL PROTECTED] com.br Assunto: Re: [delphi-br] Criar um botao auto executavel Para: [EMAIL PROTECTED] os.com.br Data: Terça-feira, 22 de Julho de 2008, 8:05 O que queres dizer com um botão auto executável? Explique bem detalhadamente sua necessidade. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacas arg.com.br (53) 3233-7118 - Original Message - From: Felipe Milagres To: [EMAIL PROTECTED] os.com.br Sent: Monday, July 21, 2008 8:41 PM Subject: [delphi-br] Criar um botao auto executavel oi, estou precisando de fazer um botao que se auto execute ... porem nao sei como fazer isso att, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] - - E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] net Chave de Identifica��o: 54568,4885be2423982 5399315076 [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] - - E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] net Chave de Identifica��o: 54568,4885d9cf23982 2275112643 [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] nao quer sair da aplicação
oi, eu fiz uma aplicação onde tinha um botao que ao ser clicado, fazia tudo o que tinha q fazer, e no final, fazia sair da aplicação ... porem , nao podia ter botao nessa aplicação, e entao eu usei a propriedade onActivate do form, e coloquei todo o codigo que estava no botao na nova procedure criada... porem agora, quando ele faz tudo o que tem que fazer, ele nao sai do form ... coloquei em tudo quanté possição o comando Form1.close; , mas nao faz efeito nenhum ... o estranho é que quando eu fui testar (usando um ShowMessage) se quando compilava, o delphi pulava essa parte, ele lia a parte perfeitamente .. []s, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Importar de um txt
aki,
eu usei o BULK , mas esta dando um erro
Project GerandoTabelas.exe raised exception class EOleException with message
'Objeto Parameter definido incorretamente. As infromações são inconsistentes ou
incompletas'.
eu nao sei qual o problema.
Abaixo segue o codigo que eu fiz:
procedure TFrmCriarTabelas.btnNavegarClick(Sender: TObject);
var
caminho, Base: String;
begin
// estipulo o caminho q o arquivo será criado
caminho := 'E:\Dm\Programa\MDB\tabela.mdb';
// se o arquivo existir eu o deleto (se nao deletar fica dando erro)
if FileExists('E:\Dm\Programa\MDB\tabela.mdb') then
DeleteFile('E:\Dm\Programa\MDB\tabela.mdb');
// se o arquivo existir avise O arquivo existe, se nao, crie ele
if FileExists('E:\Dm\Programa\MDB\tabela.mdb')
then
begin
ShowMessage('O arquivo existe');
FrmCriarBase.showModal;
end
else
begin
Base := 'Provider=Microsoft.Jet.OLEDB.4.0'+
';Data Source=' + caminho +
';Jet OLEDB:Engine Type=4';
Catalog1.Create1(Base);
// ele manda para o proximo form
FrmCriarBase.showModal;
end;
close;
end;
{ ate aki tudo bem , o erro esta sendo no proximo}
--
procedure TFrmCriarBase.btnBaseClick(Sender: TObject);
var
caminho, base, comando: string;
i: integer;
Result: array of string;
begin
// estipulo o caminho
caminho := 'E:\Dm\Programa\MDB\tabela.mdb';
if FrmCriarTabelas.CloseQuery then
begin
// se ele existir delete
if FileExists('E:\Dm\Programa\MDB\tabela.mdb') then
DeleteFile('E:\Dm\Programa\MDB\tabela.mdb');
// se ele existir so crie a tabela ARQUIVO, se nao, crie de novo e a tabela
ARQUIVO tambem
if FileExists('E:\Dm\Programa\MDB\tabela.mdb')
then
if comando = 'CREATE TABLE ARQUIVO (ARQ_NOME TEXT(8))'
then
ShowMessage('Tabela já existe')
else
begin
{ definindo a base de dados }
base := 'Provider=Microsoft.Jet.OLEDB.4.0' + ';Data Source=' +
caminho + ';Persist Security Info=False';
ADOConnection1.ConnectionString := base;
{ Criando a tabela... }
{ Arquivos }
// aki eu crio a tabela ARQUIVO
comando := 'CREATE TABLE ARQUIVO (ARQ_NOME TEXT(8))';
ADOCommand1.CommandText := comando;
ADOCommand1.Execute;
ADOCommand1.Cancel;
// é aki que tem o comando BULK, que eu nao sei como usa-lo corretamente, nao
sei se esqueci de alguma coisa. (**)
comando := 'BULK INSERT ARQUIVO FROM
E:\Dm\Programa\Lista\lista.txt WITH (FORMATFILE=E:\Dm\Programa\MDB\tabela.mdb,
CODEPAGE=ACP, MAXERRORS = 0, FIRSTROW = 1, LASTROW = 10 )';
ADOCommand2.CommandText := comando;
ADOCommand2.Execute;
close;
end;
end;
end;
(**) O que esta errado ??
att,
Felipe Milagres
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Importar de um txt
oi gente, estou precisando saber que comando em SQL importa o conteudo de um arquivo texto para o dbgrid. achei um tal de 'BULK, porem nao sei como usá-lo ... Att, Felipe Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
