(Resolvido) CONSULTA BANCO DE DADOS

[Guest FABIO VIEIRA]

Galera, estou precisando fazer a consulta abaixo:

query1.close;

query1.sql.clear;

query1.sql.add('select * from alunos');

query1.sql.add('where nome = '+chr(39)+edpesquisa.text+chr(39));

query1..open;

só que pelo fato do nome da pessoa ser : JOANA D'ARC , ele tá dando erro, já que o nome dela ou de qualquer outra pessoa com a ASPA SIMPLES dar conflito com a sintaxe do SQL. Tem como resolver isso?

Se alguém puder me ajudar, agradeceria:

E-mail: vieirasistemas@oi.com.br

vieirasistemas@gmail.com

[Vivendo&Aprendendo]

Olá faz a consulta da seguinte forma:

query1.close;
query1.sql.clear;
query1.sql.add('select * from alunos');
query1.sql.add('Where Nome Like :pNome ');
query1.Parameters[0].Value := EdtBusca.Text;
query1..open;

Espero ter ajudado

Abraços

Editado Junho 5, 2008 por Vivendo&Aprendendo

[Recife]

oi vivendo e aprendendo,

ao invés de você passar o valor do campo edit, porcure criar um parâmetro na setença SQL e depois passe o valor através de parambyname.

procedure TForm1.BitBtn1Click(Sender: TObject);
VAR
  NOME : STRING;
begin
  NOME := Edit1.Text;
  with IBQuery1 do
  begin
    Close;
    sql.Clear;
    SQL.Add('SELECT * FROM TBCLIENTE');
    SQL.Add('WHERE NOMECLI =:NOME');
    ParamByName('NOME').AsString := NOME;
    Open;
  end;
end;

[Guest FABIO VIEIRA]

Cara, deu certo. Muito Obrigado, mesmo!

oi vivendo e aprendendo,

ao invés de você passar o valor do campo edit, porcure criar um parâmetro na setença SQL e depois passe o valor através de parambyname.

procedure TForm1.BitBtn1Click(Sender: TObject);
VAR
  NOME : STRING;
begin
  NOME := Edit1.Text;
  with IBQuery1 do
  begin
    Close;
    sql.Clear;
    SQL.Add('SELECT * FROM TBCLIENTE');
    SQL.Add('WHERE NOMECLI =:NOME');
    ParamByName('NOME').AsString := NOME;
    Open;
  end;
end;