Surrute,
Eu fiz a alteração e o problema foi resolvido. Mas usando TABLE eu estou tendo
problemas, pois não fiz o algoritimo da senha de produção, estou utilizando um
username de consulta no banco.
Tem como gerar este arquivo usando Query, não tem? Eu vou tentar aqui!
Obrigado,
begin
NomeArq.Text;
Endereco := Diretorios.Directory;
Endereco := Endereco + '\' + NomeArq.Text;
AssignFile(Arq, Endereco);
Rewrite(Arq);
If Not FrmInicio.TableGravar.Active Then FrmInicio.TableGravar.Open;
FrmInicio.TableGravar.First;
while not FrmInicio.TableGravar.Eof do
begin
write(Arq,
AjustaStr(FrmInicio.TableGravar.FieldByName('CSCODNIV').AsString, 02));
writeln(Arq);
FrmInicio.TableGravar.Next;
end;
CloseFile(Arq);
MessageDLG('Arquivo gerado com sucesso!', mtinformation,[mbok],0);
end;
-----MENSAGEM ORIGINAL-----
De: "Surrute - Yahoo!" <[EMAIL PROTECTED]>
Enviada em: Qui, 18 Ago 2005 09:26:22
Assunto: Res: Res: [delphi-br] Erro: 'Cannot perform this operation on closed
dataset'.
>Olhe no código, vc está fechando a tabela ao invés de abrí-la...
>
>-------Mensagem original-------
>
>De: Áureo
>Data: 08/18/05 08:36:14
>Para: Delphi BR
>Assunto: [delphi-br] Erro: 'Cannot perform this operation on closed dataset'
>
>
>Estou rodando uma geração de arquivo que grava determinada coluna da tabela,
>mas no meio do processo é apresentada esta mensagem 'Cannot perform this
>operation on closed dataset'.
>
>Já tentei usando uma table e uma query, a mensagem é a mesma.
>
>procedure TfrmGravar.BBGravarClick(Sender: TObject);
>var
> Endereco: String;
>begin
> NomeArq.Text;
> Endereco := Diretorios.Directory;
> Endereco := Endereco + '\' + NomeArq.Text;
> AssignFile(Arq, Endereco);
> Rewrite(Arq);
> FrmInicio.tbIntRatingHH.Close; <<<<<<------------------- If
>Not FrmInicio.tbIntRatingHH.Active Then FrmInicio.tbIntRatingHH.Open;
> FrmInicio.tbIntRatingHH.First;
> while not FrmInicio.tbIntRatingHH.Eof do
> begin
> write(Arq, AjustaStr(FrmInicio.tbIntRatingHH.FieldByName('CSCODNIV')
>AsString, 02));
> writeln(Arq);
> FrmInicio.tbIntRatingHH.Next;
> end;
> CloseFile(Arq);
> MessageDLG('Arquivo gerado com sucesso!', mtinformation,[mbok],0);
>end;
>
>No iBest, suas horas navegadas valem pontos que podem ser trocados por
>prêmios. Sem sorteio! Inscreva-se já! www.navegueeganhe.com.br
>
>
>
>
>--
><<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
>Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>--
><<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
>Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>Links do Yahoo! Grupos
>
> Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> O uso que você faz do Yahoo! Grupos está sujeito aos:
> http://br.yahoo.com/info/utos.html
>
>
>
>
Áureo
msn: [EMAIL PROTECTED]
No iBest, suas horas navegadas valem pontos que podem ser trocados por prêmios.
Sem sorteio! Inscreva-se já! www.navegueeganhe.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
