Dúvida de SQL - Somente para Feras
Boa tarde como eu poderia colocar esta instrução no Delphi utilizando componente Query,
Pois quando eu rodo no explorer SQL do Delphi ela funciona...
Ah, Estou utilizando Banco de Dados ACCESS
Select Cli.*,Pfis.* From TabCliente Cli, TabPes_Fisica Pfis
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
Obrigado
Jelves
Pois quando eu rodo no explorer SQL do Delphi ela funciona...
Ah, Estou utilizando Banco de Dados ACCESS
Select Cli.*,Pfis.* From TabCliente Cli, TabPes_Fisica Pfis
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
Obrigado
Jelves
Jelves
Curtidas 0
Respostas
Navoid
12/02/2003
tente isto, creio que deva funcionar
****
query.sql.text := ´Select Cli.*, Pfis.* ´+
´From TabCliente Cli, TabPes_Fisica Pfis´+
´Where cli.Cod_Vendedor = :vendedor´+
´and cli.Cod_Cidade = :cidade´+
´and cli.Cod_Area = :area´+
´and cli.Rota_Cliente = :rota´+
´and cli.Cod_cliente = Pfis.Cod_cliente´;
query.parambyname(´vendedor´).asinteger:=0;
query.parambyname(´cidade´).asinteger:=0;
query.parambyname(´area´).asinteger:=0;
query.parambyname(´rota´).asinteger:=0;
****
se o campo for string vc utiliza assim
query.parambyname(´parametro´).asstring:=´0´;
até
****
query.sql.text := ´Select Cli.*, Pfis.* ´+
´From TabCliente Cli, TabPes_Fisica Pfis´+
´Where cli.Cod_Vendedor = :vendedor´+
´and cli.Cod_Cidade = :cidade´+
´and cli.Cod_Area = :area´+
´and cli.Rota_Cliente = :rota´+
´and cli.Cod_cliente = Pfis.Cod_cliente´;
query.parambyname(´vendedor´).asinteger:=0;
query.parambyname(´cidade´).asinteger:=0;
query.parambyname(´area´).asinteger:=0;
query.parambyname(´rota´).asinteger:=0;
****
se o campo for string vc utiliza assim
query.parambyname(´parametro´).asstring:=´0´;
até
GOSTEI 0
Anonymous
12/02/2003
Boa tarde como eu poderia colocar esta instrução no Delphi utilizando componente Query,
Pois quando eu rodo no explorer SQL do Delphi ela funciona...
Ah, Estou utilizando Banco de Dados ACCESS
Select Cli.*,Pfis.* From TabCliente Cli, TabPes_Fisica Pfis
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
Para mim carregar meu cadastro de clientes antes eu fazia da forma abaixo, ou seja, fazia várias chamanda no banco de dados, como eu faria para resumir tudo isto
Dm.Qr_Cliente.SQL.Clear;
Dm.Qr_Cliente.SQL.Add(´Select * From TabCliente ´);
Dm.Qr_Cliente.SQL.Add(´Where Cod_Vendedor =+´´+(MkVendedor.Text)+´´´);
Dm.Qr_Cliente.SQL.Add(´and Cod_Cidade =+´´+(MkCidade.Text)+´´´);
Dm.Qr_Cliente.SQL.Add(´and Cod_Area =+´´+(MkArea.Text)+´´´);
Dm.Qr_Cliente.SQL.Add(´and Rota_Cliente =+´´+(MkRotaCliente.Text)+´´´);
Dm.Qr_Cliente.Open;
Dm.Qr_Pes_Juridica.SQL.Clear;
Dm.Qr_Pes_Juridica.SQL.Add(´Select * From TabPes_Juridica ´);
Dm.Qr_Pes_Juridica.SQL.Add(´Where Cod_Cliente=+´+inttostr(dm.Qr_ClienteCod_Cliente.Value)+´´);
Dm.Qr_Pes_Juridica.Open;
Dm.Qr_Socios.SQL.Clear;
Dm.Qr_Socios.SQL.Add(´Select * From TabSocio´);
Dm.Qr_Socios.SQL.Add(´Where Cod_Cliente=+´+inttostr(dm.Qr_ClienteCod_Cliente.Value)+´´);
Dm.Qr_Socios.Open;
Dm.Qr_Ref_Pes.SQL.Clear;
Dm.Qr_Ref_Pes.SQL.Add(´Select * From TabRef_Pes ´);
Dm.Qr_Ref_Pes.SQL.Add(´Where Cod_Cliente=+´+inttostr(dm.Qr_ClienteCod_Cliente.Value)+´´);
Dm.Qr_Ref_Pes.Open;
Dm.Qr_Ref_Com.SQL.Clear;
Dm.Qr_Ref_Com.SQL.Add(´Select * From TabRef_Com ´);
Dm.Qr_Ref_Com.SQL.Add(´Where Cod_Cliente=+´+inttostr(dm.Qr_ClienteCod_Cliente.Value)+´´);
Dm.Qr_Ref_Com.Open;
Dm.Qr_Ref_Ban.SQL.Clear;
Dm.Qr_Ref_Ban.SQL.Add(´Select * From TabRef_Ban ´);
Dm.Qr_Ref_Ban.SQL.Add(´Where Cod_Cliente=+´+inttostr(dm.Qr_ClienteCod_Cliente.Value)+´´);
Dm.Qr_Ref_Ban.Open;
Obrigado
Jelves
GOSTEI 0