Copiar estrutura de um BD Paradox

Question

Caros colegas,

Tenho um aplicativo que utiliza v�rias tabelas em paradox, que est�o alocados em um servidor. Mas cada vez que adiciono um campo ou

Mcsimoes · Answer

Corrigindo a pergunta. Como posso copiar somente a extruturado BD,  sem copiar os dados ?...

Alemao-top · Answer

Seguinte, tenta copiar e depois da um empty na tabela..
e se tiver campo autoincrement usa essa fun��o:

resetautoinc(nomedoarquivo,valorinicial);
------------------------------------------------------------------------------
function TForm1.ResetAutoInc(FileName: TFileName; Base: Longint): Boolean;
begin
with TFileStream.Create(FileName, fmOpenReadWrite) do
Result := (Seek($49, soFromBeginning) = $49) and (Write(Base, 4) = 4);
end;