Manipular dados de uma pesquisa atraves de uma query
Como eu faço para poder passar os dados de uma pesquisa atraves de uma query para o componente table???
Tenho uma aplicação e desejo passar os dados pesquisados em uma query para serem posteriormente cadastrados em outro banco de dados juntamente com outros dados, e para isso eu terei que passar os dados da query para a table, gostaria de saber como eu faço isso...
Desde ja muito obrigado e uma feliz pascoa para todos!
Tenho uma aplicação e desejo passar os dados pesquisados em uma query para serem posteriormente cadastrados em outro banco de dados juntamente com outros dados, e para isso eu terei que passar os dados da query para a table, gostaria de saber como eu faço isso...
Desde ja muito obrigado e uma feliz pascoa para todos!
![[[o-ninja]]](https://www.devmedia.com.br/imagens/fotoscolunistas/avatar/avatar-4.png "[[o-ninja]]"){kind=avatar}
[[o-ninja]]
Curtidas 0
Respostas
Paulo Drozinski
11/04/2004
Espero que ajude
Insira a seguinte instrução na propriedade SQL do objeto tQuery:
SELECT Orders.OrderNo, Items.Qty, Parts.Description, Parts.ListPrice
FROM Orders, Items, Parts
WHERE Orders.OrderNo = Items.OrderNo AND
Items.PartNo = Parts.PartNo AND
Orders.CustNo = :CustNo;
Repare no código SQL na variável :CustNo, vá para a propriedade Params do objeto tQuery e coloque para a variável CustNo criada o Data type como Float, está variável será passada para o SQL através do evento OnDataChange do objeto DataSource, insira o seguinte código:
procedure TForm1.DataSource2DataChange(Sender: TObject; Field: TField);
begin
Query1.Close;
Query1.Params[0].AsFloat := Table1CustNo.Value;
Query1.Open;
end; :?:
Insira a seguinte instrução na propriedade SQL do objeto tQuery:
SELECT Orders.OrderNo, Items.Qty, Parts.Description, Parts.ListPrice
FROM Orders, Items, Parts
WHERE Orders.OrderNo = Items.OrderNo AND
Items.PartNo = Parts.PartNo AND
Orders.CustNo = :CustNo;
Repare no código SQL na variável :CustNo, vá para a propriedade Params do objeto tQuery e coloque para a variável CustNo criada o Data type como Float, está variável será passada para o SQL através do evento OnDataChange do objeto DataSource, insira o seguinte código:
procedure TForm1.DataSource2DataChange(Sender: TObject; Field: TField);
begin
Query1.Close;
Query1.Params[0].AsFloat := Table1CustNo.Value;
Query1.Open;
end; :?:
GOSTEI 0