[firebase-br] registros do banco

[Francisco A Souza]

tem algum erro no seu codigo. primeiro ele faz um locate, entao entenda-se 
que tem um comando select na query. e caso nao atenda uma condicao vc ta 
fechado o queysite e colocando um comando para inclusao?
a partir do 2 registro o querysite esta com o comando de inclusao e nao 
pesquisa.
da uma revisada no seu codigo
----- Original Message ----- 
From: "Rogério Jim" <rogeriojim em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Wednesday, August 23, 2006 11:29 AM
Subject: Re: [firebase-br] registros do banco


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;
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa



-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/2006