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

Fabio.hc

Fabio.hc

09/10/2003

O comando ´Open´ é usado com sql ´SELECT ...´

O comando ´ExecSQL´ é usado com sql ´UPDATE ... , DELETE ... , ou INSERT ...´


na sua instrução sql vc só precisa do comando ´Open´.


GOSTEI 0
POSTAR