Consulta SQL no ComboBox

21/11/2005

0

salve galera... tenho uma consulta em dois eventos do ComboBox, porem ela nao está funcionando.

- No evento OnChange, ela teria que selecionar todos os registros da tabela baixa onde o campo ´pago´ fosse igual a ´Nao´.
- No evento OnEnter ele traria todos os códigos da consulta acima pro combobox

essa histórinha é muito bunitinha, porem nao esta funcionando, ele está trazendo para o ComboBox TODOS os Codigos da tabela ´Baixa´...

Segue o código atual a baixo:


procedure TBaixa_Multa.Combo_CodigoChange(Sender: TObject);
begin
    DM.Qry_Baixa.Close;
    DM.Qry_Baixa.SelectSQL.Clear;
    DM.Qry_Baixa.SelectSQL.Add(´SELECT * FROM BAIXA WHERE PAGO = ´+ QuotedSTR(´Nao¬´));
    DM.Qry_Baixa.Open;
end;

procedure TBaixa_Multa.Combo_CodigoEnter(Sender: TObject);
begin
    // Apaga as Strings dos Items do Combo_sERIE
    Combo_Codigo.Items.Clear;


    begin
      DM.Qry_Baixa.First;
      // update Combo_Serie
      repeat
          Combo_Codigo.Items.Add(DM.Qry_Baixa.FieldByName(´CODIGO´).AsString);
          DM.Qry_Baixa.Next;
          until
              DM.Qry_Baixa.EOF;
      
    end;
end;




Mahdak

Mahdak

Responder

Posts

22/11/2005

Mahdak

sobe


Responder

22/11/2005

Silviogs

Olá amigo

DM.Qry_Baixa.SelectSQL.Add(´SELECT * FROM BAIXA WHERE PAGO = ´+ QuotedSTR(´Nao¬´));

como está na sua tabela BAIXA a string:

- Nao
- Não
- nao
- não
- NAO
- NÃO

dependendo como esteja sua query pode não funcionar.

Atenciosamente

Silvio Guedes


Responder

23/11/2005

Mahdak

Olá amigo DM.Qry_Baixa.SelectSQL.Add(´SELECT * FROM BAIXA WHERE PAGO = ´+ QuotedSTR(´Nao¬´)); como está na sua tabela BAIXA a string: - Nao - Não - nao - não - NAO - NÃO dependendo como esteja sua query pode não funcionar. Atenciosamente Silvio Guedes


Silvio, a String na minha tabela é padrão tem dois tipos: ´Nao´ e ´Sim´, sem as aspas é claro, quanto a isso está tudo certo. creio que o problema seja outro.... :cry:


Responder

24/11/2005

Mahdak

sobe :cry:


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar