Fórum ABRIR E FECHAR TABELAS PARA REINDEXAE #174308
11/08/2003
0
Arrumei um programa para reindexar tabelas paradox, e a coloquei no meu sistema para fazer as devidas reindexações, só que gostaria de fechar todas as tabelas e quando terminar de reindexar todas as tabelas fossem abertas novamente e ficassem em modo de edição.
Alguém sabe como fazer isto.
Já tentei, dá tudo certo a reindexação, mas quando tento trabalhar novamente, me dá a mensagem que a tabela esta fechada.
Por isto gostaria que fiechasse todas e abrisse quando terminasse.
sds[]
Eugênio
Alguém sabe como fazer isto.
Já tentei, dá tudo certo a reindexação, mas quando tento trabalhar novamente, me dá a mensagem que a tabela esta fechada.
Por isto gostaria que fiechasse todas e abrisse quando terminasse.
sds[]
Eugênio
José Ramos
Curtir tópico
+ 0
Responder
Posts
11/08/2003
Koplin
Crie uma procedure +- assim:
procedure AbreTabelas;
var i : integer;
begin
For i := ComponentCount-1 DownTo 0 Do Begin
If(components[ i ] is TTable)Then
If(components[ i ] as TTable).tag = 1 then
//essa linha pode ser usada para vc nao fazer em todas as tabelas, mas sim, nas que tiverem tag = 1
Begin
(components[ i ] as TTable)).Open;
(components[ i ] as TTable)).Edit;
end;
end;
Ela deve ser usada na unit onde os Tables estiverem
procedure AbreTabelas;
var i : integer;
begin
For i := ComponentCount-1 DownTo 0 Do Begin
If(components[ i ] is TTable)Then
If(components[ i ] as TTable).tag = 1 then
//essa linha pode ser usada para vc nao fazer em todas as tabelas, mas sim, nas que tiverem tag = 1
Begin
(components[ i ] as TTable)).Open;
(components[ i ] as TTable)).Edit;
end;
end;
Ela deve ser usada na unit onde os Tables estiverem
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)