ActiveDelphi

[repleis]

Olá galera resolvi mudar de banco de dados de Mdb para Firebird antigamente usava esse código e filtrava legal alguém pode me dizero que to fazendo de errado ou se há algo de errado na minha conexão ?

Código:

begin
DM.Q_CadAlunos.active := false;
DM.Q_CadAlunos.sql.clear;
DM.Q_CadAlunos.sql.add('select * from cadalunos where Transporte= "' + DBLookupComboBox1.Text+ '"'+'and tipoaluno= ''Ativo''');
DM.Q_CadAlunos.sql.add('ORDER BY nome ASC');
DM.Q_CadAlunos.active:= true;
if (DM.Q_CadAlunos.recordcount)= 0 then
begin
showmessage ( 'Nenhum Cadastro Encontrado!');
messageBox(handle,'Verifique o Motorista Selecionado!','ATENÇÃO!',MB_ICONERROR+mb_OK);
end
else
begin
if (DM.Q_CadAlunos.recordcount)>= 1 then
Frm_ResultadoTransporte.Showmodal;
Close;
end;
end;

[carbox]

Seu problema está na passagem de parametros...

[imex]

Experimente deixar o valor de DBLookupComboBox1.Text entre aspas simples e não aspas duplas, ou utilize uma query com parâmetros em vez de concatenar a instrução SQL.

Espero que ajude.

_________________
Assinatura: Imobiliarias em Guarulhos

[johnny-walker]

amigo já expeirmentou parametrizar isto:

QryTabela.SQL.Add(' select * from cadalunos where (Transporte = :combo) and (tipoaluno= :Ativo)' );
QryTabela.params[0].astring := combobox1.items[combobox1.ItemIndex];
QryTabela.params[1].astring := 'Ativo';
QryTabela.Open;

Desta maneira simplifica as coisas.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[repleis]

[repleis]

[imex]

[repleis]