Fórum Consulta com Parâmetro!!! #233818
22/05/2004
0
Query1.parambyname(´cpf´).asstring := edit1.text;
Como na tabela cpf naum é alfa e sim number da um erra na hora da consulta, aguardo resposta dos amigos.
Japasc
Curtir tópico
+ 0Posts
22/05/2004
Tnaires
Query1.ParamByName(´CPF´).AsInteger := StrToInt(Edit1.Text);
Gostei + 0
22/05/2004
Fabio.hc
Query1.parambyname(´cpf´).Value:= edit1.text;
Gostei + 0
24/05/2004
Japasc
Gostei + 0
24/05/2004
Lucas Silva
Gostei + 0
24/05/2004
Xisto
Ou aqui ou por email.
Da montagem da instrucao SQL ,os parametros ate a execucao (OPEN ou EXECSQL), ai a gente mata o bicho...
[]s
Xisto
Gostei + 0
24/05/2004
Japasc
esta true, eu cheguei perto antes
QUERY1.Active := TRUE;
Query1.FieldByName(´CPF´).AsInteger := StrToInt(EDIT1.TEXT);
QUERY1.Active := FALSE;
como agente diz, o programa roda mais naum funciona, hehehe...
Gostei + 0
24/05/2004
Fabio.hc
QUERY1.Close; QUERY1.FieldByName(´CPF´).AsInteger := StrToInt(EDIT1.TEXT); QUERY1.Open;
Gostei + 0
25/05/2004
Japasc
QUERY1.Close; QUERY1.FieldByName(´CPF´).AsInteger := StrToInt(EDIT1.TEXT); QUERY1.Open;
Não foi dessa vez, hehehe
Gostei + 0
25/05/2004
Japasc
No object inspector, propriedade Sql e digito o seguinte:
[color=blue:54687766b3]SELECT * FROM TABTESTE WHERE CPF LIKE :CPF [/color:54687766b3]
Depois no propriedade Params eu coloco [color=blue:54687766b3]ftInteger[/color:54687766b3]
ai na procedure do botão eu coloco:
[color=blue:54687766b3]QUERY1.ACTIVE := FALSE;
QUERY1.PARAMBYNAME(´CPF´).ASSINTEGER := STRTOINT(EDIT1.TEXT);
QUERY1.ACTIVE := TRUE;[/color:54687766b3]
É assim q eu sempre faço com campos String, nunca tinha precisado com integer.
Gostei + 0
25/05/2004
Fabio.hc
[color=blue:7a1e16c5df]SELECT * FROM TABTESTE WHERE CPF [b:7a1e16c5df]LIKE[/b:7a1e16c5df] :CPF[/color:7a1e16c5df]
esta instrução é para campo numérico:
[color=blue:7a1e16c5df]SELECT * FROM TABTESTE WHERE CPF [b:7a1e16c5df]=[/b:7a1e16c5df]:CPF[/color:7a1e16c5df]
Gostei + 0
26/05/2004
Japasc
Query1.Close;
Query1.Sql.Text := ´Select * From TABTESTE ´ +
´Where cpf =:cpfConsulta´;
Query1.Params[0].AsInteger := StrToInt(Edit1.text);
Query1.open;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)