Array
(
)

Consulta SQL no ComboBox

Mahdak
   - 21 nov 2005

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:


#Código


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
   - 22 nov 2005

sobe


Silviogs
   - 22 nov 2005

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


Mahdak
   - 23 nov 2005


Citação:
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....


Mahdak
   - 24 nov 2005

sobe