Como fazer essa consulta 2
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;
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
Curtidas 0
Respostas
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´.
O comando ´ExecSQL´ é usado com sql ´UPDATE ... , DELETE ... , ou INSERT ...´
na sua instrução sql vc só precisa do comando ´Open´.
GOSTEI 0