dan_visualdm

poxa amigo... está estranho isso aqui, o bd ficou louco... a imagem que esta configurado pra o 2 quando muda pro 3 continua, e só muda se eu clicar dinovo em proximo... não estou entendendo... bom, o exemplo que estou montando pra tentar entender esta aqui: http://www.visualdm.net/dan/teste.rar obrigado pelas ajudas!! abraçoss

olá... bom, ainda não consegui rsolver esse problema... tentei da seguinte forma: begin dm.q_clientes.Close; dm.q_clientes.Sql.Clear; dm.q_clientes.Sql.Add('Select * from tbl_clientes where fim_contrato Beetwen :dataini and :datafim'); dm.q_clientes.Parameters.ParamByName('dataini').Value := MaskEdit1.text; dm.q_clientes.Parameters.ParamByName('datafim').Value := MaskEdit2.text; dm.q_clientes.Open; end; mas é apresentado o seguinte erro: erro de sintaxe (operador faltando) na expressão de consulta 'fim_contrato Beetwen ? and ?' como resolver? BD - access ADOQuery

ixi amigo... não tah facil aqui... o que tem de errado? tem 3 problemas: - quando eu insiro a imagem o atualizar num funciona (estou testando com o DB Navigator), é como se nada tivesse sido inserido no BD. - fiz um botao voltar e um avançar. a ideia é quando eu colocar a foto do cliente 1 ficar pra ele a foto, eu quando eu for pro cliente 2 a foto mudar pra do cliente 2... mas não acontece isso... - eu insiro a imagem para o cliente 1... só que se eu fechar o sistema e abrir dinovo, a foto não está mais lá: como estao meus codigos: no botao inserir foto: begin if OpenPictureDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename); ADOQuery1.Edit; ADOQuery1.Fields.FieldByName('Imagem').AsString := 'C:\teste\imagens\'+ ExtractFileName(OpenPictureDialog1.FileName); ADOQuery1.Post; end; end; nos botoes: anterior e proximo: begin if ADOQuery1.Fields.FieldByName('Imagem').AsString <> '' then begin if FileExists(ADOQuery1.fields.fieldbyname('imagem').AsString) then Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename) end; begin ADOQuery1.next; end; end; obrigado!

olá amigo... bom, qual é seu BD? pra que no outro form o codigo seja exibido, voce precisa acha-lo no bd, então pode usar o seguinte: no campo que vai digitar o codigo (vamos supor que seja num edit) begin with dm.q_clientes do / dm é o nome do meu DataModule e q_clientes é o nome do meu ADOQuery begin Close; SQL.Clear; SQL.Add('select * from tbl_clientes where codigo like '''+'%' + Edit1.Text + '%'''); // tbl_clientes é o nome da minha tabela do BD e codigo é o nom do campo Open; f_clientes.show; // aqui, depois do filtro, abre o form end; end; e no form que vai abrir, os DBs deverao estar ligados com seu bd. espero que ajude! abraços!

olá amigo, acho que não soube me expressar direito... desculpe! na verdade é o seguinte... em meu BD eu quero que fique gravado apenas o caminho da imagem e não aimagem... porém cada cadastro terá a sua imagem... por exemlo a imagem01.jpg tera que estar relacionado com o cliente A a imagem02.jpg com o cliente B... assim por diante... na programação acima a imagem fica aparecendo mas se eu mudar pro cliente 2 não muda a imagem... não sei se consegui me explicar... obrigado!

olá amigo!! agora entendi, usei a primeira opção que você me falou e deu certinho... so que usanto o Timagem, como eu vou relacionar isso com o BD (access)..? porque eu preciso que cada cadastro tenha a sua imagem, isso pra começar... porque na verdade depois eu vou precisar, pra um mesmo cadatro ter várias imagens.... então quando eu mudar o cadastro a imagem tem q mudar junto e nesse caso ele não muda... obrigado!!! e um otimo domingo!! abraços

olá amigo... fiaz as alterações que voce me passou e mudei umas coisas aqui e ficou assim: var Diretorio : String; {caminho aonde vai ficar salvo as imagens} begin if OpenPictureDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename); ADOQuery1.Edit; ADOQuery1.imagem.AsString := 'C:\teste\imagens\'+ ExtractFileName(OpenPictureDialog1.FileName); ADOQuery1.Post; end; end;[code] mas na hora de rodar da erro nessa linhas: [code]ADOQuery1.imagem.AsString := 'C:\teste\imagens\'+ ExtractFileName(OpenPictureDialog1.FileName); da aquele erro anterior, falando que "imagem" não foi definido... mas dentro da minha tablea, tem o campo imagem, e é nele que o caminho da imagem vai ficar... porque desse erro?

olá pessoall!! em meu projeto estou precisando inserir imagens no cadastro, porém pro BD não ficar pesado pensei em colocar somente o caminho da imagem no BD... então fiz o seguinte: 1. Coloquei os seguintes componentes: popmenu1, OpenPictureDialog1, DBImage1; 2. Fiz as conexões do DBImage com o Banco de Dados; 3. No popmenu coloquei a opçao Procurar imagem..., dei um duplo clique, e coloquei o seguinte: var Diretorio : String; {caminho aonde vai ficar salvo as imagens} begin if OpenPictureDialog1.Execute then begin self.tbl_imagem.Edit; DbImage1.Picture.LoadFromFile(OpenPictureDialog1.Filename); Diretorio := 'C:\teste\imagens\'+ ExtractFileName(OpenPictureDialog1.FileName); dbimage1.Picture.SaveToFile(diretorio); tbl_imagem.AsString := diretorio; self.tbl_imagem.Post; DbImage1.Picture.LoadFromFile( tbl_imagem.imagem.AsString ); end; end; mas a hora que vou rodar o sistema da erro... o seguinte: na linha: self.tbl_imagem.Edit; e aparece a seguinte mensagem: undeclared identifier: 'tbl_imagem' o que estou fazendo de errado?? obrigado!

Pessoa, boa tarde! Poxa, estou com um problema aqui com relação a datas... Em meu cadastro de clientes tem uma opção que chama Vencimento do Contrato: onde é cadastrado a data que o contrato desse cliente irá vencer: ex. 01/02/2009 Porém aqui temos vários clientes e várias datas de vencimento diferente. Eu precisava que em um form aparecesse a relação dos nome dos clientes e as datas que o contrato vai vencer. Mas aparecer só os clientes que estão com contrato pra vencer de 30 dias ou menos. Como fazer isso? meu BD é access. Obrigado. Feliz 2009 a todos!!!! MTA PAZ, SUCESSO, SAÚDE!!!

- Extensões do Delphi (Delphi 7 e anteriores. As versões posteriores tem mais outras extensões)- Filename Extensions in Delphi - Delphi File Extensions dan_visualdm, a princípio, apenas o .exe que você não citou aí - é o executável ;)Em alguns casos, você pode precisar levar também alguma DLL (que você tenha criado ou que já exista e que seja utilizada pelo seu programa), bem como pode ser necessário a instalação de dos drivers BDE, ODBC, .... (vai depender do que você vai usar). Sugiro que você procure por apostilas para iniciantes ou livros que possam lhe dar estas noções básicas. Não é uma boa idéia você querer programar em uma determinada linguagem, sem conhecer o básico sobre ela e a ferramenta de desenvolvimento escolhida. Abraços Certo... entendi!! tipow... teria alguma apostila ou algum livro que você conheça e pode me recomendar? obrigado.

pessoal, estou com uma dúvida quanto as extensões dos arquivos que o Delphi cria... pra que serve cada um deles? quando eu for compilar meu sistema, quais desses precisa ir junto? quais não pode ir de jeito nenhum (pra que ninguém tenha acesso ao código fonte?) .~ddp .~dfm .~pas .dcu .cfg .ddp .dof .dfm .dpr .pas mais uma vez... obrigado!

poxa amigos... muito obrigado pelas explicações! o legal é que só não funcionou, como também entendi o porque de tudo!! segui o conselho de vocês, dei uma pesquisada aqui no forum e agora organizei meu codigo... realmente fica bem melhor e mais fácil de trabalha!! e agora o problema meu, em fim foi resolvido!! estava precisando muito disso!! mais uma vez obrigado!!! abraços a todos e um ótimo 2009!!!!

lá amigos... tentei formatar a data na hora de gravar, dessa forma: '''+FormatDateTime('dd/mm/yyyy',StrToDateTime(f_ordem_de_servico.DBEdit2.Text))+''' mas da o seguinte erro: ' /7///208' is not a valid date and time o que está errado?

olá amigo... poxa, desculpe-me... mas de verdade, não entedi! como assim na unit do meu projeto?? e depois que eu colocar isso, eu posso deixar a formatação dentro do ADOQuery não é?? poxa, preciso tanto disso funcionando e não consigo de jeito nenhum... obrigado! e um ótimo 2009!

pessoal, boa tarde! estou com um probleminha aqui com a data ao executar um SQL. MEU BD é Access. Primeiro: Eu precisava que meu DBEdit ficasse formatado pra receber a data, assim: / / (00/00/0000) então eu fui no DataModule, ADOQuery, dei 2 clique, apertei CTRL+F (para aparecer td campos) ai selecionei o campo data, fui no EditMask e formatei da seguinte forma: !99/99/9999;1;_ bom até ai tudo bem, o DBdit ficou formatado da forma que eu precisava. Problema: se eu coloca uma data 12/12/2008 por exemplo esse erro não acontece, MAS se eu colocar 01/02/2009 quando gravo no banco ele salva assim 1/2/2009 e se eu entro pra editar o DBEdit fica assim: _1/_2/2009. E é ai então que acontece o problema, quando uso o SQL pra transferir esses dados de uma tabela pra outra. porque como o campo está determinado como DATA ele num aceita esse _ e o meu campo não pode ser texto porque senao não consigo organizar em ordem crescente (asc). como faço pra resolver isso? o SQL que estou usando pra transferir begin dm.q_servicos_fim.Close; dm.q_servicos_fim.SQL.Clear; dm.q_servicos_fim.SQL.Add('Insert into tbl_servicos_fim(cod_servico,data_entrada,data_entrega,servico,valor,desc_servico,empresa,responsavel,telefone,celular,email,info_adcionais,data_fim,usuario) values ('''+f_ordem_de_servico.DBEdit1.Text+''','''+f_ordem_de_servico.DBEdit2.Text+''','''+f_ordem_de_servico.DBEdit3.Text+''','''+f_ordem_de_servico.DBLookupComboBox1.Text+''','''+f_ordem_de_servico.DBEdit4.Text+''','''+f_ordem_de_servico.DBMemo1.text+''','''+f_ordem_de_servico.DBEdit11.Text+''','''+f_ordem_de_servico.DBEdit7.Text+''','''+f_ordem_de_servico.DBEdit8.Text+''','''+f_ordem_de_servico.DBEdit9.Text+''','''+f_ordem_de_servico.DBEdit10.Text+''','''+f_ordem_de_servico.DBMemo2.text+''','''+DB_fim.text+''','''+f_carrega.label1.caption+''')'); dm.q_servicos_fim.ExecSQL; f_finalizar_servico.showmodal; close; end; talves a solução seria se ele não tirasse o 0 e gravasse assim 01/02/2009 qual solução? obrigado pessoal....

olá amigo... entendi... hoje anoite vou testar e amanha posto o resultado... obrigado....

olá pessoal, bom dia! estou precisando fazer o seguinte. vamos supor que na minha tabela tbl_hospedados eu tenha um campo que pode receber somentes os valores A, B , C, D tudo bem, está gravando e funcionando tudo certinho... o Problema é: vamos supor que eu tenha 30 cadastros para D e quero apagar todos eles do banco... ao invés de ficar deletando um por um, gostaria de fazer um delete coletivo (hehehe!)... como fazer isso? outro problema também com isso de deletar, quando trabalho com Mestre / Detalhes... Vamos supor que eu delete um cadastro da mestre.. e dai os cadastros do Detalhs.. vai ficar perdido?? (pois não vao estar mais ligado com nignuem).. como resolver isso? como deletar esses dados do detalhes tb? Meu BD é ACCESS e uso ADO pra conectar.... abraços... obrigado

Entendi, vou pesquisar então por esse evento... qualquer coisa abro um tópico especifico.. obrigado pela força!

olá amigo, segui seus conselhos e deu certo aqui... desculpa essas pergunta basicas aqui.. hehe.. é que estou começando agora em Delhpi e não tenho esperiencia... aproveitando, eu gostaria de saber se tem como fazer assim: quando a data de entrega for = a data atual a linha do DBGrid ficar de cor vermelha mais um vez, obrigado! abraços...

olá amigo... meu campo é varchar mesmo... se eu colocar DATE ai ele organiza certinho? preciso muito que isso fique organizado! ah... meu BD é ACCESS... abraçoss

Olá pessoal... eu aqui dinovo com duvidas... hehehe gostaria de saber como ordernar datas... por exemplo, na minha tela de ordem de serviço gostaria que ficassem ordenados por ordem de entregua (quando vai ser entregue). Tentei usar select * from tbl_ordem_servico order by data_entrega asc mas dai organiza só os dias... preciso que organiza tudo... (DD/MM/AAAA) - senão acaba ficando assim: 15/12/2008 15/01/2009 17/12/2008 19/02/2009 20/01/2008 então ele precisagira organizar os dias mes e ano certinho... porque quando tem muito serviço pra entregar acaba ficando confuso de achar qual tem q entregar primeiro... a tela minha só pra vocês verem: - aqui ainda não tinha colocado o order by... alguém pode me dar uma focinha?? valews!!!

oláa!! poxa amigo, show de bola sua explicação!!! ajudou pra valer aqui viw... fiz igualzinho o que você ensinou e deu super certo!!! era isso ai mesmo!!! obrigadão por essa explicação super detalhadaaa!! valeu mesmo!!! é legal encontrar pessoas que nos ajudam. Pra falar a verdade eu trabalho com criação há mais de 5 anos e há muito tempo atrás cheguei a fazer um cursinho básico de Delphi, mas nem liguei muito... Agora que estou estudando, estou desenvolvendo um sistema aqui pra minha agencia... Está ficando bem legal, apesar de eu estar tendo algumas dificuldades... Mas com o forum aqui e com uns livros que comprei está indo legalzinho e estou aprendendo bastante!! valeu!! abraçosss!!!

olá amigo... deu erro nessa linha: ParamByName('param').asstring := DBEdit1.Text + '%'; e tb eu não entendi o que ela faz... o erro que aapreceu é o segunte: undeclared identifier

olá amigo, amanha anoite vou testar... ai posto o resultado... obrigado pela ajuda! abraçoss

poxa... legal isso ai amigo.. tem como você por um passo a passo ai de como fazer essa tabela com todas os forms do sistema? e como faz essa verificação pra true e false? obrigado...