ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

SELECT DBGRID

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
JonasB
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 15 de Abril de 2013
Mensagens: 175

MensagemEnviada: Dom Mai 26, 2013 10:54 pm    Assunto: SELECT DBGRID Responder com Citação

Galera, estou com uma dúvida..

Preciso fazer um select para exibir dados filtrados no DBGRID, porém estou confuso sobre como fazer isso.

Tenho uma tela de consulta de financeiro, que quando o usuário consulta o título, aparecem as parcelas no DBGRID de acordo com o cliente, numero do titulo e etc.

Tentei da seguinte forma, porém obtive erro..

Código:
dmDados.QryParcelas.Close;
    dmDados.QryParcelas.SQL.Clear;
    dmDados.QryParcelas.SQL.Add('SELECT * FROM tblParcelas WHERE idFinanceiro =:ParIDFinanceiro');
    dmDados.QryParcelas.Parameters.ParamByName('ParIDFinanceiro').Value := edtSeqFinanceiro.text;
    dmDados.QryParcelas.Open;

    dmDados.QryParcelas.Edit;
    dmDados.QryParcelas.FieldByName('codCliente').AsString := dmDados.tblParcelas.FieldByName('codCliente').value;
    dmDados.QryParcelas.FieldByName('nomeCliente').AsString := dmDados.tblParcelas.FieldByName('nomeCliente').value;
    dmDados.QryParcelas.FieldByName('seqParcela').AsString := dmDados.tblParcelas.FieldByName('seqParcela').value;
    //dmDados.QryParcelas.FieldByName('nomeJardim').AsString := dmDados.tblParcelas.FieldByName('nomeJardim').value;
    //dmDados.QryParcelas.FieldByName('codTerreno').AsString := dmDados.tblParcelas.FieldByName('codTerreno').value;
    //dmDados.QryParcelas.FieldByName('nomeTerreno').AsString := dmDados.tblParcelas.FieldByName('nomeTerreno').value;
    dmDados.QryParcelas.FieldByName('emissaoParcela').AsString := dmDados.tblParcelas.FieldByName('emissaoParcela').value;
    dmDados.QryParcelas.FieldByName('vencimentoParcela').AsString := dmDados.tblParcelas.FieldByName('vencimentoParcela').value;
    //dmDados.QryParcelas.FieldByName('valorTotal').AsString := dmDados.tblParcelas.FieldByName('valorTotal').value;
    //dmDados.QryParcelas.FieldByName('observacaoFinanceiro').AsString := dmDados.tblParcelas.FieldByName('observacaoFinanceiro').value;
    //dmDados.QryParcelas.FieldByName('qtdeParcelas').AsString := dmDados.tblParcelas.FieldByName('qtdeParcelas').value;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
coiotetg
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 29 de Novembro de 2010
Mensagens: 124

MensagemEnviada: Seg Mai 27, 2013 8:38 am    Assunto: Responder com Citação

Qual erro está dando e qual banco vc está usando?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
JonasB
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 15 de Abril de 2013
Mensagens: 175

MensagemEnviada: Seg Mai 27, 2013 11:38 am    Assunto: Responder com Citação

Diz que os fields não foram encontrados.. Access
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
coiotetg
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 29 de Novembro de 2010
Mensagens: 124

MensagemEnviada: Seg Mai 27, 2013 1:45 pm    Assunto: Responder com Citação

Na tabela Parcelas vc tem todos os campos que está setando em baixo(nomeCliente)?
E não entendi pq vc está atribuindo novamente os valores para a tabela.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB