[firebase-br] registros do banco

[Rogério Jim]

Pessoal deixa explicar a situaçao .
Tenho um servidor que ocntem dados dos  clienst e fornecedores e tem o
siteda empresa, estou desenvolvendo um programa para buscar os dados do
servidor e colocar no BD do site .
O BD do SITE ta vazio e o do servidor tem mais de mil fornecedores...
Segue em baixo o codigo , o que acontece e o seguinte quando rodo o programa
, ele cadastra o primeiro  fornecedor e vai pro segundo ai entra dentro do
while e da esse erro
*cannot perform this operation on closed datasetr*
MAIS ISSO na segunda vez onde ele iria inserir o segundo dado.
O PODE SER..
Se o dataset tivece fechado ele nao cadastraria o primeiro fornecedor...


Case RgTabelas.ItemIndex of
      0:begin
          QueryServidor.First;
          while not ZQueryServidor.Eof do
            begin
              cod :=QueryServidor.Fields[0].AsString;
              cod := copy(cod,2,length(cod));
              nome1 :=QueryServidor.Fields[1].AsString;
              codigo:= strtoint(cod);
              if QuerySite.Locate('codigo',cod,[loCaseInsensitive]) then
                 QueryServidor.Next
                else
                begin
                  QuerySite.Close ;
                 QuerySite.SQL.Clear ;
                  QuerySite.SQL.Add('insert into
cad_fornecedores(codigo,nome) values ( '+ cod + ',"' + nome1 + '")');
                  QuerySite.ExecSQL;
                  QueryServidor.Next
                end;
            end;
        end;