Ir ao conteúdo
  • Cadastre-se

informais

Membros Juniores
  • Total de itens

    2
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Boa Noite, sou iniciante em Delphi, estou com dificuldade com uma consulta, utilizo banco de dados em Access, um AdoQuery, Data Source, DbConection. Tenho uma DbGrid onde utilizo uma consulta com vários campos e duas datas, consegui com o código abaixo filtrar por vários campos, porém quando eu insiro um novo registro ele não aparece na consulta, somente os registros que ja existiam no banco. O que esta de errado com meu código? Como faço pra aparecer na consulta os novos registros? <> procedure TFrm_Cadastro.SpeedButton2Click(Sender: TObject); Begin; Frm_Cadastro.Tbl_Clientes.Close; Frm_Cadastro.Tbl_Clientes.SQL.Clear; Frm_Cadastro.Tbl_Clientes.SQL.Add('Select * from Tbl_Cad_Clientes where Cli_Nome like' + QuotedStr(txt_buscar_nome.text+'%')); Frm_Cadastro.Tbl_Clientes.SQL.Add('and Cli_Duplicata like ' + QuotedStr(txt_buscar_duplicata.text+'%')); Frm_Cadastro.Tbl_Clientes.SQL.Add('and Cli_Rota like'+ QuotedStr(txt_buscar_rota.text+'%')); Frm_Cadastro.Tbl_Clientes.SQL.Add('and Cli_Situacao like'+QuotedStr(txt_buscar_situacao.text+'%')); Frm_Cadastro.Tbl_Clientes.SQL.Add('and Cli_Cidade like'+QuotedStr(txt_buscar_cid.text+'%')); Frm_Cadastro.Tbl_Clientes.SQL.Add('and Cli_Vendedor like'+QuotedStr(txt_buscar_vend.text+'%')); Frm_Cadastro.Tbl_Clientes.Sql.Add('and Cli_DataVenda Between :dataini and :datafim'); Frm_Cadastro.Tbl_Clientes.Params.ParamByName('dataini').Value :=StrToDate(MaskEdit1.text); Frm_Cadastro.Tbl_Clientes.Params.ParamByName('datafim').Value :=StrToDate(MaskEdit2.text); Frm_Cadastro.Tbl_Clientes.Open; Rel_Clientes.ShowReport(); end; <> Na primeira imagem mostra que o novo registro existe dentro do DbGrid. na segunda imagem ao aplicar o filtro mostra apenas os registros antigos
  2. Ola sou iniciante em Delphi estou criando um sistema de cadastro usando um Data Module com AdoConection + Adoquery + Data Source, consegui fazer o relatório e filtrar com o campo que desejo digitar. Porém, gostaria de criar dois campos para filtrar entre as datas digitadas neles. Como posso fazer usando o código abaixo. procedure TFrmClientes.Button4Click(Sender: TObject); begin Dm.Tab_Clientes .Filtered := false; Dm.Tab_Clientes .Filter := 'Vendedor = ' + QuotedStr(RelVendedor.Text); Dm.Tab_Clientes .Filtered := true; FrmClientes := TFrmClientes.Create(Application); FrmRel.QuickRep1.Preview; Dm.Tab_Clientes .Filtered := false; end; Lembrando que o código filtra o campo 'Vendedor' digitando no campo RelVendedor, quero apensas implementar os campos pra digitar as datas. Alguém pode me ajudar?

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!