Fórum TQuery #222730
26/03/2004
0
Olá, uso o objeto TQuery, gostaria de saber como acrescentar o SQL do objeto TQuery em tempo de execução, pois faço varias consulta,tipo assim quando o Usuario quiser cosultar os clientes apagar o que estiver no SQL do objeto TQuery e acrescentar o comando SQL da consula de Cliente já feita no sistema estou fazendo da seguinte forma mas não está funcionando:
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add(´SELECT DISTINCT dbo.CadProcesso.NrCdaProc,VlUpfVa´);
Query1.SQL.Add(´FROM CadProcesso´);
Query1.SQL.Add(´Where CPF Like ´+ASP_S+TxtLocalizar.text+´¬´+ASP_S);
Query1.SQL.Add(´ORDER BY NrCdaProc DESC´);
Query1.Active := True;
como fazer
Obrigado
Luis
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add(´SELECT DISTINCT dbo.CadProcesso.NrCdaProc,VlUpfVa´);
Query1.SQL.Add(´FROM CadProcesso´);
Query1.SQL.Add(´Where CPF Like ´+ASP_S+TxtLocalizar.text+´¬´+ASP_S);
Query1.SQL.Add(´ORDER BY NrCdaProc DESC´);
Query1.Active := True;
como fazer
Obrigado
Luis
Ldrabelo
Curtir tópico
+ 0
Responder
Posts
26/03/2004
Emerson Nascimento
´Não está funcionando...´
que banco de dados utiliza? aparece alguma msg de erro? se sim, que msg aparece?.....
de uma forma genérica, o código deveria ser:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´SELECT DISTINCT NrCdaProc, VlUpfVa´);
Query1.SQL.Add(´FROM CadProcesso´);
Query1.SQL.Add(´Where CPF like :CPF´);
Query1.SQL.Add(´ORDER BY NrCdaProc DESC´);
Query1.ParamByName(´CPF´).AsString := Copy(TxtLocalizar.text+´¬´,1,TamanhoDoCampoCPF);
Query1.Prepare;
Query1.Open;
que banco de dados utiliza? aparece alguma msg de erro? se sim, que msg aparece?.....
de uma forma genérica, o código deveria ser:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´SELECT DISTINCT NrCdaProc, VlUpfVa´);
Query1.SQL.Add(´FROM CadProcesso´);
Query1.SQL.Add(´Where CPF like :CPF´);
Query1.SQL.Add(´ORDER BY NrCdaProc DESC´);
Query1.ParamByName(´CPF´).AsString := Copy(TxtLocalizar.text+´¬´,1,TamanhoDoCampoCPF);
Query1.Prepare;
Query1.Open;
Responder
Gostei + 0
27/03/2004
Spider
Query1.SQL.Add(´Where CPF Like ´´´+TxtLocalizar.text+´¬´´´);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)