"ADOQuery1: Cannot perform this operation on an...

[EduardoNogueira 0]

Colegas, estou tendo um problema bem chato no meu sistema. Este sistema serve para emitir pedidos de compras de suprimentos em geral. O problema que estou tendo encontra-se na parte onde o usuário tem a opção de cadastrar os ítens a serem comprados.

 

O procedimento envolve 2 forms:

 

GerenciamentoRequisicoes

 

e...

 

ItensRequisicoes

 

O procedimento aí é o seguinte, o usuário primeiro acessará o form GerenciamentoRequisicoes e lá ele poderá selecionar a linha do DBGrid que se refere à requisição a qual ele deseja ver os ítens contidos na mesma. Depois, com a linha da requisição selecionada, ele clicará no botão Itens e o form ItensRequisicoes se abrirá exibindo todos os ítens da requisição selecionada, apenas isso.

 

O problema que estou tendo é o seguinte, ao se fazer o procedimento acima a primeira vez, tudo ocorre normalmente, ou seja, posso visualizar os ítens (se houverem) da requisição desejada. Mas, a partir da segunda tentativa, ou seja, após fechar o form ItensRequisicoes depois de ter feito o procedimento pela primeira vez e ao se tentar repetir o procedimento, a mensagem de erro abaixo aparece instantaneamente após eu selecionar a linha do DBGrid que se refere à segunda requisição que quero ver e clicar novamente no botão Itens.

 

Na segunda o form ItensRequisicoes nem chega a se abrir. Ao invés dele aparecer, é mostrada a seguinte mensagem de erro:

 

Segue abaito toda a codificação da UNIT referente ao form ItensRequisicoe.

 

unit Unit22;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, Mask, DBCtrls, ComCtrls, Buttons, ExtCtrls, Db, ADODB, Grids,  DBGrids,Unit7;type  TItensRequisicoes = class(TForm)    ...  private    { Private declarations }  public    { Public declarations }    num_req : integer;  end;var  ItensRequisicoes: TItensRequisicoes;  t:TGerenciamentoRequisicoes;  nCodReq:Longint;implementation{$R *.DFM}procedure TItensRequisicoes.FormShow(Sender: TObject);begin   //ADOTable1.Close;   nCodReq:=t.GetCod;   Edit1.Text:=IntToStr(nCodReq);   ADOQuery1.SQL.Clear;   ADOQuery1.SQL.Add(Concat('select * from Item_Requisicao where num_req=',IntToStr(nCodReq)));   ADOQuery1.Open;end;procedure TItensRequisicoes.BitBtn1Click(Sender: TObject);begin   Close;end;procedure TItensRequisicoes.BitBtn2Click(Sender: TObject);begin  ADOQuery1.Last;  DBGrid1.ReadOnly:=False;  ADOQuery1.Insert;  //DBGrid1.Options:=[dgEditing,dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgConfirmDelete,dgCancelOnExit];  ADOQuery1.FieldByName('num_req').Value:=nCodReq;end;procedure TItensRequisicoes.BitBtn4Click(Sender: TObject);begin  ADOQuery1.Post;  DBGrid1.ReadOnly:=True;end;procedure TItensRequisicoes.BitBtn3Click(Sender: TObject);begin  DBGrid1.ReadOnly:=False;  ADOQuery1.Edit;end;procedure TItensRequisicoes.BitBtn6Click(Sender: TObject);begin  ADOQuery1.Delete;end;end.

Pessoal, não sei o que fazer, sou iniciante...ME AJUDEM!!! http://forum.imasters.com.br/public/style_emoticons/default/cry.gif :( http://forum.imasters.com.br/public/style_emoticons/default/sick.gif

[Graymalkin 0]

Experimente colocar um...

 

ADOQuery1.Close;

... antes da linha:

 

ADOQuery1.SQL.Clear;

Veja aí se dá certo. Ah, e utilize a tag CODE quando for postar um código, falou? ;)

 

Abraços,

 

Graymalkin

[EduardoNogueira 0]

Experimente colocar um...

 

ADOQuery1.Close;

... antes da linha:

 

ADOQuery1.SQL.Clear;

Veja aí se dá certo. Ah, e utilize a tag CODE quando for postar um código, falou? ;)

 

Abraços,

 

Graymalkin

<{POST_SNAPBACK}>

Caramba, funcionou PERFEITAMENTE!! valeu!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/grin.gif