Consulta SQL dentro Delphi - Help Me please

Delphi

14/02/2003

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

Como colocar dentro do DELPHI esta Consulta, imagine que vc venha colocar dentro de um botão e quando vc clicar no botão e executada a consulta, uso ACCESS e TQUERY

Agradeço muito se alguém me passar o código completo desta consulta...

Jelves


Jelves

Jelves

Curtidas 0

Respostas

Anonymous

Anonymous

14/02/2003

adicione um componente query no seu aplicativo, adicione a algum evento os seguintes comandos:
qryconsulta.close;
qryconsulta.sql.clear;
qryconsulta.sql.add(´ adicione aqui a linha ´);
qryconsulta.sql.add(´ adicione aqui a segunda linha ´);
qryconsulta.open;

creio que seja isso que vc precisa falow
Um abraço
Ricardo


GOSTEI 0
Jelves

Jelves

14/02/2003

[quote:185ecb6e92=´Ricardo Weiss´]adicione um componente query no seu aplicativo, adicione a algum evento os seguintes comandos:
qryconsulta.close;
qryconsulta.sql.clear;
qryconsulta.sql.add(´ adicione aqui a linha ´);
qryconsulta.sql.add(´ adicione aqui a segunda linha ´);
qryconsulta.open;

creio que seja isso que vc precisa falow
Um abraço
Ricardo[/quote:185ecb6e92]

eu já fiz isto mais não deu certo, veja abaixo:
dm.Qr_Cliente.SQL.Clear;
dm.Qr_Cliente.SQL.Add(´Select Cli.*,Pfis.* From TabCliente Cli, TabPes_Fisica Pfis ´);
dm.Qr_Cliente.SQL.Add(´Where cli.Cod_Vendedor = ´+#39+´00´ +39);
dm.Qr_Cliente.SQL.Add(´and cli.Cod_Cidade = ´+39+´00´ +39);
dm.Qr_Cliente.SQL.Add(´and cli.Cod_Area = ´+39+´000´ +39);
dm.Qr_Cliente.SQL.Add(´and cli.Rota_Cliente = ´+39+´111´ +39);
dm.Qr_Cliente.SQL.Add(´and Pfis.Cod_cliente = cli.Cod_cliente´);
dm.Qr_Cliente.Open;

me retorna esta mensagem

´Qr_Cliente: Fild ´Cod_Cliente´ not Found´


GOSTEI 0
POSTAR