Como passar esta consulta para linha de Codigo Delphi????
14/02/2003
0
Where cli.Cod_Vendedor = ´00´
and cli.Cod_Cidade = ´00´
and cli.Cod_Area = ´000´
and cli.Rota_Cliente = ´111´
and cli.Cod_cliente = Pfis.Cod_cliente
Só preciso saber como fazer a chamada desta consulta em código do delphi
Lembrando que estou um componentes Tquery
Qr_Clientes
Qr_Pes_Fisica
Obrigado
Jelves
Posts
14/02/2003
Anonymous
with Qr_Clientes,sql do
begin
close;
Clear;
add(´Select Cli.*,Pfis.* From TabCliente Cli, TabPes_Fisica Pfis ´);
Add(´Where cli.Cod_Vendedor = ´´00´´ ´);
Add(´and cli.Cod_Cidade = ´´00´´ ´);
Add(´and cli.Cod_Area = ´´000´´ ´);
Add(´and cli.Rota_Cliente = ´´111´´ ´);
Add(´and cli.Cod_cliente = Pfis.Cod_cliente ´);
open;
end;
14/02/2003
Anonymous
Query1.SQL.Add(´Where cli.Cod_Vendedor = ´+#39+´00´ +39)
Query1.SQL.Add(´and cli.Cod_Cidade = ´+39+´00´ +39)
Query1.SQL.Add(´and cli.Cod_Area = ´+39+´000´ +39)
Query1.SQL.Add(´and cli.Rota_Cliente = ´+39+´111´ +39)
Query1.SQL.Add(´and cli.Cod_cliente = Pfis.Cod_cliente´)
Toda vez que na instrução tiver aspas simples vc deve colocar o codigo dela para que o comando fique correto, senão o argumento entra como número e não como string.
Espero ter esclarecido alguma coisa
Daniel Pimentel
dapiaze@terra.com.br
14/02/2003
Cidnelson
var qryTemp: TQuery;
begin
{Atualiza o status da oferta indicada}
with qryTemp do
begin
{Cria a Query Temporaria}
qryTemp:=CriarQueryTemporaria;
{Escreve o SQL}
SQL.Clear;
SQL.Add(´EXEC sp_Ofertas_Atualizar_Status_Oferta @ID_IN_OFERTA = ´+IntToStr(CodigoOferta));
{Executa a SP}
ExecSQL;
qryTemp.Free;
end; {with...}
14/02/2003
Jelves
Obs: O código do Cliente está nas duas tabelas...
Jelves
Clique aqui para fazer login e interagir na Comunidade :)