[firebase-br] registros do banco
Francisco A Souza
francisco em logosinfo.com.br
Qua Ago 23 12:10:20 -03 2006
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
Mais detalhes sobre a lista de discussão lista