Parâmetros na ADOQuery
oLA GALERA, GOSTARIA DE ALGUEM QUE POSSA ME AJUDAR.
BOM SOU NOVATO EM DELHPI, E ESTOU DESENVOLVENDO UM APLICATIVO ONDE USO UMA TABELA NO ACCESS CHAMADA DE SISGAR_CLIENTE, E QUERO DIGITAR UM NOME DE ALGUM CLIENTE EM EDIT PARA QUE SEJA REALIAZADA UMA PESQUISA NA TABELA EM BUSCA DO VALOR DIGITADO
O CODIGO QUE ESTOU USANDO É O SEGUINTE
dm_sisgar.ADOQuery1.close;
dm_sisgar.ADOQuery1.SQL.clear;
dm_sisgar.ADOQuery1.SQL.Add(´SELECT * FROM SisGar_Cliente´);
dm_sisgar.ADOQuery1.Parameters.ParamByName(´P1´).Value := Edit1.text;
dm_sisgar.ADOQuery1.Open;
ONDE DM_SISGAR É UM DATAMODULE.
O ERRO QUE ESTA DANDO É QUE O PARAMETRO NÃO FOI ENCONTRADO.
OBS: DEFINE UM CRIEI UM PARAMETRO NA ADOQYERY, POREM NÃO SEI SE CRIEI CERTO..
VALEU
[b:afa101eced]Lamento, título em desacordo com as regras do fórum [Uso indevido de maiúsculas] - (AZ)[/b:afa101eced]
BOM SOU NOVATO EM DELHPI, E ESTOU DESENVOLVENDO UM APLICATIVO ONDE USO UMA TABELA NO ACCESS CHAMADA DE SISGAR_CLIENTE, E QUERO DIGITAR UM NOME DE ALGUM CLIENTE EM EDIT PARA QUE SEJA REALIAZADA UMA PESQUISA NA TABELA EM BUSCA DO VALOR DIGITADO
O CODIGO QUE ESTOU USANDO É O SEGUINTE
dm_sisgar.ADOQuery1.close;
dm_sisgar.ADOQuery1.SQL.clear;
dm_sisgar.ADOQuery1.SQL.Add(´SELECT * FROM SisGar_Cliente´);
dm_sisgar.ADOQuery1.Parameters.ParamByName(´P1´).Value := Edit1.text;
dm_sisgar.ADOQuery1.Open;
ONDE DM_SISGAR É UM DATAMODULE.
O ERRO QUE ESTA DANDO É QUE O PARAMETRO NÃO FOI ENCONTRADO.
OBS: DEFINE UM CRIEI UM PARAMETRO NA ADOQYERY, POREM NÃO SEI SE CRIEI CERTO..
VALEU
[b:afa101eced]Lamento, título em desacordo com as regras do fórum [Uso indevido de maiúsculas] - (AZ)[/b:afa101eced]
Snpbalan
Curtidas 0
Respostas
Alexdias
08/01/2004
TENTE ISSO ...
dm_sisgar.ADOQuery1.close;
dm_sisgar.ADOQuery1.SQL.clear;
dm_sisgar.ADOQuery1.SQL.Add(´SELECT * FROM SisGar_Cliente where nome_cliente=´´+edit1.text+´´´);
dm_sisgar.ADOQuery1.Open;
IF dm_sisgar.ADOQuery1.recordcount<1 THEN
BEGIN
messagedlg(´REGISTRO NÃO ENCONTRADO´,mtwarning,[mbok],0);
END;
OBS : nome_cliente deve ser substituido pelo nome do campo da sua tabela.
qualquer dúvida mande um e-mail.
dm_sisgar.ADOQuery1.close;
dm_sisgar.ADOQuery1.SQL.clear;
dm_sisgar.ADOQuery1.SQL.Add(´SELECT * FROM SisGar_Cliente where nome_cliente=´´+edit1.text+´´´);
dm_sisgar.ADOQuery1.Open;
IF dm_sisgar.ADOQuery1.recordcount<1 THEN
BEGIN
messagedlg(´REGISTRO NÃO ENCONTRADO´,mtwarning,[mbok],0);
END;
OBS : nome_cliente deve ser substituido pelo nome do campo da sua tabela.
qualquer dúvida mande um e-mail.
GOSTEI 0