Iniciante é foda! Eu consegui configurar (corretamente o database) e ele passou a funcionar adequadamente usando uma table.
Obrigado, Áureo -----MENSAGEM ORIGINAL----- De: "Áureo" <[EMAIL PROTECTED]> Enviada em: Qui, 18 Ago 2005 10:34:11 Assunto: Res: Res: Res: [delphi-br] Erro: 'Cannot perform this operation on closed dataset'. >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!" >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 > > > > Á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