Fórum COPIAR TABELA E ABRIR EM TEMPO EXECUÇÃO #158982

09/05/2003

0

:?: A aplicação inicia com uma tabela Dbase aberta (Active=True).
Faço uma cópia da tabela (CopyFile) obtendo a tabela ExamesW.Dbf (padrão Dbase).
Estou tentando ativar a nova tabela e a aplicação me retorna erro. Veja o que estou fazendo.

if not CopyFile(Exames.Dbf , ExamesW.Dbf , True ) then
ShowMessage(´Erro ao copiar arquivo’)
else
DtmDados.Exames.Close;
DtmDados.Exames.TableName := ExamesW.Dbf
DtmDados.Exames.Exclusive := True;
DtmDados.Exames.Open;

>> O erro ocorre na linha do Open, tentar abrir a tabela.

Mensagem: Examesw. Cannot perform this operation on a closed dataset.

Obrigado.
Neto


Neto

Neto

Responder

Posts

10/05/2003

Neto

:?: Por favor gente... Alguém tem uma dica..
Neto


Responder

Gostei + 0

10/05/2003

4_olho

Colega

Parece que está faltando um BLOCO Begin..End.

if not CopyFile(Exames.Dbf , ExamesW.Dbf , True ) then
ShowMessage(´Erro ao copiar arquivo’) else
BEGIN
DtmDados.Exames.Close;
DtmDados.Exames.TableName := ExamesW.Dbf
DtmDados.Exames.Exclusive := True;
DtmDados.Exames.Open;
END;

do jeito que havia colocado, só era processado o Close.

CUIDADO COM OS PEQUENOS ERROS - são os que causam os MAIORES estragos


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar