SQL quando resultado da pesquisa e embraco da erro
Sou iniciante em sql estou utilizando o ADOQUERY, e quando execulto esta rotina que ela me gera uma dbgrid zerado ela nao execulta novamente da erro na hora de fechar o ado ´ADOquery1.close;´
quando e encotrado registros tudo funciona normalmente..
O que faço
DataModule1.tableOS.edit;
dataini:=dtaber1.Date;
datafim:=dtaber2.Date;
ADOquery1.close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add(´Select *´);
ADOquery1.SQL.Add(´From OS O´);
if radiogroup1.ItemIndex=0 then
ADOquery1.SQL.Add(´where O.dataaber >= :localiza and O.dataaber <= :localiza2´)
else if radiogroup1.ItemIndex=1 then
ADOquery1.SQL.Add(´where O.dataate >= :localiza and O.dataate <= :localiza2´)
else
ADOquery1.SQL.Add(´where O.datafech >= :localiza and O.datafech <= :localiza2´);
ADOquery1.SQL.Add(´´);
ADOquery1.Parameters.ParamByName(´localiza´).Value:=dataini;
ADOquery1.Parameters.ParamByName(´localiza2´).value:=datafim;
ADOquery1.Open;
_________________
Elvis Gudine
icq: 202635281
(31)9145-5363
guidine@pop.com.br
quando e encotrado registros tudo funciona normalmente..
O que faço
DataModule1.tableOS.edit;
dataini:=dtaber1.Date;
datafim:=dtaber2.Date;
ADOquery1.close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add(´Select *´);
ADOquery1.SQL.Add(´From OS O´);
if radiogroup1.ItemIndex=0 then
ADOquery1.SQL.Add(´where O.dataaber >= :localiza and O.dataaber <= :localiza2´)
else if radiogroup1.ItemIndex=1 then
ADOquery1.SQL.Add(´where O.dataate >= :localiza and O.dataate <= :localiza2´)
else
ADOquery1.SQL.Add(´where O.datafech >= :localiza and O.datafech <= :localiza2´);
ADOquery1.SQL.Add(´´);
ADOquery1.Parameters.ParamByName(´localiza´).Value:=dataini;
ADOquery1.Parameters.ParamByName(´localiza2´).value:=datafim;
ADOquery1.Open;
_________________
Elvis Gudine
icq: 202635281
(31)9145-5363
guidine@pop.com.br
Guidine
Curtidas 0
Respostas
Marcelo.c
10/11/2003
Qual o erro apresentado ?
Qual a finalidade da linha :
DataModule1.tableOS.edit; ?
e da linha:
ADOquery1.SQL.Add(´´); ?
Qual a finalidade da linha :
DataModule1.tableOS.edit; ?
e da linha:
ADOquery1.SQL.Add(´´); ?
GOSTEI 0