Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
galera esta dando um erro quando vou executar uma consulta usando instruções sql:
Código abaixo:
procedure TForm1.Button1Click(Sender: TObject);
begin
qry_consulta.Active:=false;
qry_consulta.SQL.Clear;
qry_consulta.SQL.Add('select * from Clientes where '+combobox1.Text);
if(combobox1.Text='Nome')then
begin
if(radiogroup1.ItemIndex=0)then[color="#FF0000"]
qry_consulta.SQL.Add('select * from Clientes where Nome like' +quotedStr('%'+edit1.Text+'%'));[/color]
end;
qry_consulta.Active:=true;
end;
o erro esta na linha vermelha..
grato desde ja
Carregando comentários...