acess violation ????

Question

pessoall estou com este problema quando clico num botao e chama um relatorio feirto no quic report. impressao de etiquetas.procedure TFrmAniversariante.BitBtn2Click(Sender: TObject);const SeparadorCam...

Pereiramarcos · Answer

consegui, agora ele nao executa esta query

sqlstr:=�select * from clientes �;
sqlstr:=sqlstr+ � where extract(month from dt_nasc) between �;
sqlstr:=sqlstr+ trim(inttostr(SpinIni.value)) +� and �+ trim(inttostr(SpinFim.value));
sqlstr:=sqlstr+� order by dt_nasc asc� ;

ele so executa a query original que esta no sqlquery

o que eu tenho que fazer???????

Rjun · Answer

Coloque um trecho maior do seu c�digo. Est� dando algum erro ou ele s� n�o executa a query?...

Pereiramarcos · Answer

valeu rogerio, eu agora ja executo a query, mas o filtro do report so faz uma vez todas as vezes posteriores imprime somente o que foi selecionado na primeira vez....valeu cara...

Rjun · Answer

Olha, vendo seu c�digo n�o percebi nada de errado, a n�o ser o fato de voc� dar um Open e depois definir True para Active. Dei uma modificada para usar par�metros em vez de enfiar o SQL dentro do seu c�digo.

procedure TFrmAniversariante.BitBtn2Click(Sender: TObject); 
const 
  SeparadorCampoValor = � �; 
  SeparadorCampo = � �; { Quebra de linha } 
  SeparadorRegistro = �;�; 
  ComandoSQL = �SELECT * FROM Clientes WHERE EXTRACT(MONTH FROM Dt_Nasc) BETWEEN :Inicial AND :Final ORDER BY Dt_Nasc ASC�;

begin 
  { comando para filtrar a tabela por data de nacimento } 
 QRLpac.SQLfilter.SQL.Clear; 
  QRLpac.SQLfilter.sql.Add(ComandoSQL ); 
  QRLPac.ParamByName(�Inicial�).AsInteger := spinIni.Value;
  QRLPac.ParamByName(�Final�).AsInteger := spinFim.Value;
  QRLpac.SQLfilter.Open; 
  try
    QRLpac.Preview; 
  finally
    QRLPac.SQLFilter.Close;
  end;
end;

somente apos a colocacao destas duas linha
QRLpac.cdsAniver.Active:=false ;
QRLpac.QSQLAniver.Close ;

agora funciona exatamente como eu queria.....

posso emitir rel de etiquetas com o filtro que eu quiser...

Value muito obrigado pelas dica seu codigo ficou mais organizado....

:P

Pereiramarcos · Answer

Obirgado Rogerio, mas agora nao apareceu nem um registro.

deixa eu explicar uma coisa

QRLpac - Nome do form com o relatorio
SQLfilter - nome do SQLQuery

dentro deste form --> um trio SQLQuery;DATAsetprov e um Clientdataset

e dentro do form que eu chamo tem aquele codigo, ja estou ficando confuso....

Pereiramarcos · Answer

[quote:6446eed984=�Rjun�]Olha, vendo seu c�digo n�o percebi nada de errado, a n�o ser o fato de voc� dar um Open e depois definir True para Active. Dei uma modificada para usar par�metros em vez de enfiar o SQL dentro do seu c�digo.[code:1:6446eed984]procedure TFrmAniversariante.BitBtn2Click(Sender: TObject); const   SeparadorCampoValor = � �;   SeparadorCampo = � �; { Quebra de linha }   SeparadorRegistro = �;�;   ComandoSQL = �SELECT * FROM Clientes WHERE EXTRACT(MONTH FROM Dt_Nasc) BETWEEN :Inicial AND :Final ORDER BY Dt_Nasc ASC�;begin   { comando para filtrar a tabela por data de nacimento }  QRLpac.SQLfilter.SQL.Clear;   QRLpac.SQLfilter.sql.Add(ComandoSQL );   QRLPac.ParamByName(�Inicial�).AsInteger := spinIni.Value;  QRLPac.ParamByName(�Final�).AsInteger := spinFim.Value;  QRLpac.SQLfilter.Open;   try    QRLpac.Preview;   finally    QRLPac.SQLFilter.Close;  end;end; [/code:1:6446eed984][/quote:6446eed984]somente apos a colocacao  destas duas linha   QRLpac.cdsAniver.Active:=false ;  QRLpac.QSQLAniver.Close ;agora funciona exatamente como eu queria.....posso emitir rel de etiquetas com o filtro que eu quiser...Value muito obrigado pelas dica seu codigo ficou mais organizado.... :P...

F�rum acess violation ???? #322642