Fórum Consulta SQL no ComboBox #302773
21/11/2005
0
- 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
Curtir tópico
+ 0Posts
22/11/2005
Mahdak
Gostei + 0
22/11/2005
Silviogs
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
Gostei + 0
23/11/2005
Mahdak
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:
Gostei + 0
24/11/2005
Mahdak
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)