Fórum puxar dados do dbgrid para quick report 4 #351344
03/01/2008
0
Olá! amigos, fiz um sistema de busca em um formulario coloquei uma query um datasource e um dbgrid liguei-os. Esta funcionando perfeitamente mas quando clico no botão para imprimir a busca realizada o quick report esta puxando todos os dados existente na tabela.
DÚVIDA: COMO FAÇO PARA PUXAR SOMENTE OS DADOS QUE ESTÃO PRESENTE NO DBGRID?
grato
Sérgio.
DÚVIDA: COMO FAÇO PARA PUXAR SOMENTE OS DADOS QUE ESTÃO PRESENTE NO DBGRID?
grato
Sérgio.
Motoqueiro10
Curtir tópico
+ 0
Responder
Posts
04/01/2008
Motoqueiro10
Conseguimos resolver o problema! Um colega meu passou o seguinte script:
dentro do botão que vai chamar o relatorio do quick report colocar esse script:
//************ PUXA APENAS OS VALORES DO GBGRID ************
form.query1.SQL.Clear ;
if radiogroup1.ItemIndex = 0 then
form.query1.sql.Add(´SELECT * FROM TABELA WHERE upper(nota_fiscal) LIKE ´¬´ + edit2.text + ´¬´ ORDER BY inclusao ´)
else if radiogroup1.ItemIndex = 1 then
form.query1.SQL.Add(´SELECT * FROM TABELA WHERE upper(nom_cliente) LIKE ´¬´ + edit2.text + ´¬´ ORDER BY nom_cliente ´)
else if radiogroup1.ItemIndex = 2 then
form.query1.SQL.Add(´SELECT * FROM TABELA WHERE upper(nom_vendedor) LIKE ´¬´ + edit2.text + ´¬´ ORDER BY nom_vendedor ´);
//************ PUXA APENAS OS VALORES DO GBGRID ************
form.query1.Close;
form.query1.ExecSQL;
form.query1.Active:=true;
form.Preview;
Espero ajudar mais alguém!
dentro do botão que vai chamar o relatorio do quick report colocar esse script:
//************ PUXA APENAS OS VALORES DO GBGRID ************
form.query1.SQL.Clear ;
if radiogroup1.ItemIndex = 0 then
form.query1.sql.Add(´SELECT * FROM TABELA WHERE upper(nota_fiscal) LIKE ´¬´ + edit2.text + ´¬´ ORDER BY inclusao ´)
else if radiogroup1.ItemIndex = 1 then
form.query1.SQL.Add(´SELECT * FROM TABELA WHERE upper(nom_cliente) LIKE ´¬´ + edit2.text + ´¬´ ORDER BY nom_cliente ´)
else if radiogroup1.ItemIndex = 2 then
form.query1.SQL.Add(´SELECT * FROM TABELA WHERE upper(nom_vendedor) LIKE ´¬´ + edit2.text + ´¬´ ORDER BY nom_vendedor ´);
//************ PUXA APENAS OS VALORES DO GBGRID ************
form.query1.Close;
form.query1.ExecSQL;
form.query1.Active:=true;
form.Preview;
Espero ajudar mais alguém!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)