Fórum AdoQuery - Erro #448665
15/07/2013
0
Segui um tutorial aqui do forum mesmo, e ocorre a seguinte mensagem
Line1: Incorrect syntax near''=''
e já fica piscando a facha azul em if ADOQuery1.RecordCount > 0 then
Obs1.: Sql do adoquery eu digitei Select * From Cad_Cidades
Obs2.: o tutorial que segui é este [url]https://www.devmedia.com.br/consulta-simples-para-busca-de-produto-por-codigo-supermercado/20290[/url]
Abaixo o codigo!!!
Obs1.: Select * From Cad_Cidades
Obs2.:
procedure TFrm_Cad_Funcionarios.pesquisarproduto;
var
a:string;
begin
a:=''Select Codigo from Cad_Cidades where Codigo = ''+(trim(Edt_Codigo_Cidade.Text));
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(a);
Open;
end;
end;
procedure TFrm_Cad_Funcionarios.Edt_Codigo_CidadeKeyPress(Sender: TObject;
var Key: Char);
begin
pesquisarproduto;
if ADOQuery1.RecordCount > 0 then
begin
Edt_Codigo_Cidade.Text:=ADOQuery1.fieldbyname(''Codigo'').AsString;
Edt_Nome_Cidade.Text:=ADOQuery1.fieldbyname(''Cidade'').AsString;
end
else
begin
ShowMessage(''Cidade Não Localizada.Verifique!!!'');
exit;
end;
end;
Abraços
Bruno Henrique
Curtir tópico
+ 0Posts
15/07/2013
Alessandro Yamasaki
a:='Select Codigo from Cad_Cidades where Codigo =:pCodigoDaCidade';
with ADOQuery1 do
begin
Close;
SQL.Clear;
Parambyname('pCodigoDaCidade').AsString := trim(Edt_Codigo_Cidade.Text);
SQL.Add(a);
Open;
end;
end;
Gostei + 0
15/07/2013
Bruno Henrique
Em Qual Evento???
No onkeypress???
Gostei + 0
15/07/2013
Alessandro Yamasaki
procedure TFrm_Cad_Funcionarios.pesquisarproduto;
var
a:string;
begin
a:='Select Codigo from Cad_Cidades where Codigo =:pCodigoDaCidade';
with ADOQuery1 do
begin
Close;
SQL.Clear;
Parambyname('pCodigoDaCidade').AsString := trim(Edt_Codigo_Cidade.Text);
SQL.Add(a);
Open;
end;
end;
Gostei + 0
15/07/2013
Bruno Henrique
Fiz igual você pediu e está dando a mensagem de "is not a valid integer value.
Gostei + 0
16/07/2013
Bruno Henrique
Gostei + 0
16/07/2013
Alan Souza
Parambyname('pCodigoDaCidade').AsInteger := StrToIntDef(Trim(Edt_Codigo_Cidade.Text), -1);Gostei + 0
16/07/2013
Alessandro Yamasaki
Parambyname('pCodigoDaCidade').AsString := trim(Edt_Codigo_Cidade.Text);
pela dica do colega alanps, que funcionará ou preencha um valor no edit
Gostei + 0
16/07/2013
Deivison Melo
Gostei + 0
16/07/2013
Deivison Melo
Gostei + 0
16/07/2013
Deivison Melo
Gostei + 0
16/07/2013
Bruno Henrique
Ainda não foi resolvido!!!
Gostei + 0
17/07/2013
Alessandro Yamasaki
Gostei + 0
17/07/2013
Bruno Henrique
Obrigado pela atenção!!!Resolvi o problema da seguinte forma!!!
procedure TFrm_Cad_Funcionarios.Edt_Codigo_CidadeExit(Sender: TObject);
begin
//PESQUISA PRODUTO
if Edt_Codigo_Cidade.Text<>'' then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
if length(trim(Edt_Codigo_Cidade.Text))<=9
Then ADOQuery1.SQL.Add('select * from Cad_Cidades where Codigo=:pCodigo');
ADOQuery1.Parameters.ParamByName('pCodigo').Value:=Edt_Codigo_Cidade.Text;
ADOQuery1.Open;
if not ADOQuery1.IsEmpty then
begin
Edt_Codigo_Cidade.Text:=ADOQuery1.FieldByName('Codigo').AsString;
Edt_Nome_Cidade.Text:=ADOQuery1.FieldByName('Cidade').AsString;
Msk_Cep.Text:=ADOQuery1.FieldByName('Cep').AsString;
end
else
begin
Mess(Frm_Cad_Funcionarios.handle,'Cidade Não Localizada',mb_iconinformation or mb_ok);
Edt_Codigo_Cidade.SetFocus;
end;
end;
end;
Obrigado!!!
Abraços
Gostei + 0
17/07/2013
Bruno Henrique
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)