COPIAR TABELA E ABRIR EM TEMPO EXECUÇÃO

Delphi

09/05/2003

:?: 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

Curtidas 0

Respostas

Neto

Neto

09/05/2003

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


GOSTEI 0
4_olho

4_olho

09/05/2003

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


GOSTEI 0
POSTAR