Como fazer essa consulta 2

Delphi

09/10/2003

Olá Colegas

Estou precisando da ajuda de vocês. Estou usando o interbase 6 e preciso fazer uma consulta para entrar com um nome em uma caixa de texto e ele pesquisar este nome.

Ex:

TEnho o nome Carlos chagas Pereira. Eu digito na caixa Chagas e ele consulta todos os nomes que tenha como sobrenome chagas. Digito Pereira e consulta também.

No interbase a seguinte instrução funciona:

Select * from funcionarios where nome like ´¬SILVESTRE¬´

Mais não sei como colocar isto em um formulário será que alguém pode ajudar?

Teste o código abaixo dado por um colega daqui do clube. Funcionou mas deu um erro:

IBQUERY1.CANNOT PERFORM THIS OPERATION ON NA OPEN DATASET.

Assim que aparece esse erro é só clicar em ok. Que passa. Eu gostaria de tirar esse erro
Alguém pode me ajudar?

procedure TForm4.Button1Click(Sender: TObject);
var sNome: String;
begin
sNome := InputBox(´Pesquisa´,´Entre com o nome do Cidadão ´, ´´ );
if sNome = ´´ then Exit;
with IBQuery1 do begin
SQL.Clear;
Close;
SQL.Add(´Select * from funcionarios where nome like :Nome´);
Params.ParamByName(´Nome´).Value := ´¬´+sNome+´¬´;
Open;
ExecSQL;
end;
end;


Francisco.gorgulho

Francisco.gorgulho

Curtidas 0

Respostas

Imoreira

Imoreira

09/10/2003

Código Revisado:

procedure TForm4.Button1Click(Sender: TObject);
var sNome: String;
begin
sNome := InputBox(´Pesquisa´,´Entre com o nome do Cidadão ´, ´´ );
if sNome = ´´ then Exit;
with IBQuery1 do begin
close;
with ibQuery1.sql do begin
Clear;
Add(´Select * from funcionarios where nome like :Nome´);
end;
Params.ParamByName(´Nome´).Value := ´¬´+ansiuppercase(sNome)+´¬´;

Open;
end;
end;


GOSTEI 0
POSTAR