(Resolvido) Violação de acesso em busca por data

[Gabriel Cabral]

Bom dia, galera..

Problemão aqui...

Estou fazendo uma busca através de uma data informada...

A busca é feita e os dados são informados num grid

até aí tudo certo....

Mas depois quando percorro o grid e escolho um registro e dou um Enter para os campos deste registro surgirem em um outro formulário, ocorre o seguinte erro de violação de acesso.

Project winsuperm.exe raised exception class EAccess Violation with message 'Access violation at address 004E9ED1 in module 'winsuperm.exe'. Read of address 00000000'

O código está desta maneira...

procedure TfrmLocalControleCaixa.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var auxdata: TDate;
begin

  if (Key = VK_DOWN) Then
  begin
    if txtLocalControleCaixa_Data.Focused = True then
    begin
      GridLocalControleCaixa.SetFocus;
      GridLocalControleCaixa.SelectedIndex := 0;
    end;
  end;

  if (Key = VK_RETURN) then
  begin
    if txtLocalControleCaixa_Data.Focused = True then
    begin
      if (StrToDateDef(txtLocalControleCaixa_Data.Text , 0 ) = 0 ) then
      begin
        Application.MessageBox('Data inválida!!!      ', 'WINSUPERM', MB_ICONERROR);
        txtLocalControleCaixa_Data.SetFocus;
        txtLocalControleCaixa_Data.SelectAll;
      end
      else
      begin
        With QueryLocalControleCaixa Do
        begin
          Close;
          SQL.Clear;
          SQL.Add('SELECT * FROM ESTACAI.dbf');
          SQL.Add('WHERE CAIDAT = :pData');
          SQL.Add('ORDER BY CAIDAT DESC, CAIHOR DESC');
          ParamByName('pData').AsDateTime := StrToDate(txtLocalControleCaixa_Data.Text);
          Open;

          //GridLocalControleCaixa.SetFocus;
          GridLocalControleCaixa.SelectedIndex := 0;
        end;
      end;
    end;

    if GridLocalControleCaixa.Focused = True then
    begin
      With QueryLocalControleCaixa Do
      begin
        Close;
       SQL.Clear;
       SQL.Add('SELECT * FROM ESTACAI.dbf');
       SQL.Add('WHERE CAIDAT = :pData');
       ////////////////////// LINHA QUE O ERRO ACUSA///////////////////////
      ParamByName('pData').AsDateTime := StrToDate(GridLocalControleCaixa.SelectedField.AsString);
      ////////////////////// LINHA QUE O ERRO ACUSA///////////////////////
     Open;

    if not(IsEmpty) then
    begin
      auxdata := dm.QueryControleCaixa.FieldByName('CAIDAT').AsDateTime;
      frmControleCaixa.txtControleCaixa_Data.Text := dm.QueryControleCaixa.FieldByName('CAIDAT').AsString;
      frmControleCaixa.txtControleCaixa_Hist.Text := dm.QueryControleCaixa.FieldByName('CAIHIS').AsString;
      frmControleCaixa.txtControleCaixa_Hora.Text := dm.QueryControleCaixa.FieldByName('CAIHOR').AsString;
      frmControleCaixa.txtControleCaixa_ValorEnt.Text := dm.QueryControleCaixa.FieldByName('CAIENT').AsString;
      frmControleCaixa.txtControleCaixa_ValorSai.Text := dm.QueryControleCaixa.FieldByName('CAISAI').AsString;
      frmControleCaixa.txtControleCaixa_Dinheiro.Text := dm.QueryControleCaixa.FieldByName('CAIDIN').AsString;
      frmControleCaixa.txtControleCaixa_CheVis.Text := dm.QueryControleCaixa.FieldByName('CAICHE').AsString;
      frmControleCaixa.txtControleCaixa_ChePre.Text := dm.QueryControleCaixa.FieldByName('CAIPRE').AsString;
      frmControleCaixa.txtControleCaixa_Cartao.Text := dm.QueryControleCaixa.FieldByName('CAICAR').AsString;
      frmControleCaixa.txtControleCaixa_Ticket.Text := dm.QueryControleCaixa.FieldByName('CAIOUT').AsString;
                frmControleCaixa.txtControleCaixa_EmAberto.Text := dm.QueryControleCaixa.FieldByName('CAIABE').AsString;
    end;
            end;

      txtLocalControleCaixa_Data.SetFocus;
      frmLocalControleCaixa.Close;
      frmControleCaixa.txtAuxData.Text := DateToStr(auxdata);
    end;
  end;
end;

A linha que o erro acusa é a ParamByName('pData').AsDateTime := StrToDate(GridLocalControleCaixa.SelectedField.AsString);

O que está havendo??

alguém conseguiria me ajudar???

Muito obrigado

Editado Março 13, 2009 por Gabriel Cabral

[Jhonas]

////////////////////// LINHA QUE O ERRO ACUSA///////////////////////

ParamByName('pData').AsDateTime := StrToDate(GridLocalControleCaixa.SelectedField.AsString);

////////////////////// LINHA QUE O ERRO ACUSA///////////////////////

////////////////////// LINHA QUE O ERRO ACUSA///////////////////////

showmessage(GridLocalControleCaixa.SelectedField.AsString); // Veja qual é o valor passado

ParamByName('pData').AsDateTime := StrToDate(GridLocalControleCaixa.SelectedField.AsString);

////////////////////// LINHA QUE O ERRO ACUSA///////////////////////

OBS: voce está passando data e hora ? ou somente data ?

use um showmessge para saber qual é o valor que está sendo passado para o parametro

abraço

[Gabriel Cabral]

Jhonas, deu erro de violação de acesso denovo...só q agora com outro número...

Project winsuperm.exe raised exception class EAccess Violation with message 'Access violation at address 004E9F18 in module 'winsuperm.exe'. Read of address 00000000'

a caixa de mensagem nem chegou a ser exibida....já entrou o erro quando passava pela linha dela

[Jhonas]

Project winsuperm.exe raised exception class EAccess Violation with message 'Access violation at address 004E9F18 in module 'winsuperm.exe'. Read of address 00000000'

a caixa de mensagem nem chegou a ser exibida....já entrou o erro quando passava pela linha dela

showmessage(GridLocalControleCaixa.SelectedField.AsString);

este comando : showmessage(GridLocalControleCaixa.SelectedField.AsString);

deveria mostrar a voce o conteúdo do campo selecionado da sua DBGrid

//GridLocalControleCaixa.SetFocus;
          GridLocalControleCaixa.SelectedIndex := 0;
        end;
      end;
    end;

    showmessage(GridLocalControleCaixa.SelectedField.AsString); 

    if GridLocalControleCaixa.Focused = True then
    begin
      With QueryLocalControleCaixa Do
      begin
        Close;
       SQL.Clear;
       SQL.Add('SELECT * FROM ESTACAI.dbf');
       SQL.Add('WHERE CAIDAT = :pData');
       ////////////////////// LINHA QUE O ERRO ACUSA///////////////////////
      ParamByName('pData').AsDateTime := StrToDate(GridLocalControleCaixa.SelectedField.AsString);
      ////////////////////// LINHA QUE O ERRO ACUSA///////////////////////
     Open;

Observe que voce selecionou o primeiro campo do seu DBgrid ... e se este campo não for data vai dar erro

experimente mudar o showmessage de posição e veja o que ocorre

abraço

[Micheus]

Project winsuperm.exe raised exception class EAccess Violation with message 'Access violation at address 004E9F18 in module 'winsuperm.exe'. Read of address 00000000'

Gabriel Cabral, "Access violation ..." é erro típico (para não dizer exclusivo) de acesso a área de memória não alocada para uma variável.

Observe que voce selecionou o primeiro campo do seu DBgrid ... e se este campo não for data vai dar erro

Jhonas, com todas estas informações as vezes "passamos batidos", mas no caso de tentar passar um valor diferente do tipo esperado o comum é ocorrer um erro informando de que a conversão não é válida, algo como "xxx is not a valid date" ou coisa parecida.

Posso estar enganado, mas pelo nome que o colega Grabriel Cabral deu aos componentes:

- frmLocalControleCaixa => o form

- GridLocalControleCaixa => o dbgrid no form

eu acreditaria que a query de nome QueryLocalControleCaixa seria aquela ligada ao componente DBGrid de nome GridLocalControleCaixa. Sendo assim, podemos observar que a query foi aberta no seguimento abaixo, onde a primeira coluna do DBGrid receberá o foco e, por consequência, o próprio DBGrid:

...
      else
      begin
        With QueryLocalControleCaixa Do
        begin
          Close;
          SQL.Clear;
          SQL.Add('SELECT * FROM ESTACAI.dbf');
          SQL.Add('WHERE CAIDAT = :pData');
          SQL.Add('ORDER BY CAIDAT DESC, CAIHOR DESC');
          ParamByName('pData').AsDateTime := StrToDate(txtLocalControleCaixa_Data.Text);
          Open;

          //GridLocalControleCaixa.SetFocus;
          GridLocalControleCaixa.SelectedIndex := 0;
        end;
      end;
    end;
...

Assim, no próximo fragmento de código (onde está ocorrendo o erro), o if..then passará e a query é fechada:

...
    if GridLocalControleCaixa.Focused = True then
    begin
      With QueryLocalControleCaixa Do
      begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM ESTACAI.dbf');
        SQL.Add('WHERE CAIDAT = :pData');
      ////////////////////// LINHA QUE O ERRO ACUSA///////////////////////
        ParamByName('pData').AsDateTime := StrToDate(GridLocalControleCaixa.SelectedField.AsString);
      ////////////////////// LINHA QUE O ERRO ACUSA///////////////////////
        Open;
...

e aqui, é que penso estar o problema.

Com a query fechada, não há SelectedField a ser utilizado para o parâmetro (o DBGrid não estará mostrando nada neste momento), pois não há fields que possam ter seu valor recuperado.

A sugestão é que seja criada uma variável local para receber o valor deste campo, naquela primeira fração de código, e depois utilizar ela para ser atribuida ao parâmetro. Experimente fazer isto e dê um retorno.

Abraços

[Gabriel Cabral]

Eu não acredito que era isso <_<

O erro estava na query que eu estava chamando...

eu estava chamando a query errada!!!

Eu estava chamando a query que faz a busca com data ao invés de chamar a query para prencher os campos no outro formulario...

enfim....no código abaixo, onde eu chamo QueryLocalControleCaixa, é pra chamar dm.QueryControleCaixa..

...
    if GridLocalControleCaixa.Focused = True then
    begin
      With QueryLocalControleCaixa Do ////É PRA CHAMAR dm.QueryControleCaixa AO INVÉS DESTA
      begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM ESTACAI.dbf');
        SQL.Add('WHERE CAIDAT = :pData');
        ParamByName('pData').AsDateTime := StrToDate(GridLocalControleCaixa.SelectedField.AsString);
        Open;
...

Muito obrigado, Jhonas e Micheus

Editado Março 16, 2009 por Gabriel Cabral