Si lo que necesitas es hacerlo en forma manual podrias usar el database desktop.
Tools -> Utilities -> Copy , en primer dialogo (copy) señalas la tabla origen (.DBF) , OK y en el segundo Dialogo (Copy NombreTabla.DBF to) le das el nombre de la nueva tabla con extension .DB y listo.
Si lo que necesitas es hacer una especie de migracion deberías crear las estructuras de los archivos .DB vacias en forma manual y guardarlas para cada inicio del proceso, mediante SQL ...
CREATE TABLE "employee.db"
(
LAST_NAME CHAR(20),
FIRST_NAME CHAR(15),
SALARY NUMERIC(10,2),
DEPT_NO SMALLINT,
PRIMARY KEY(LAST_NAME, FIRST_NAME)
)
Robado del Help del database desktop .......
o bien usando tTable ......
With Table1.FieldDefs Do
Begin
Clear;
Add('Campo1', ftAutoInc, 0, False);
Add('Campo2', ftInteger, 0, False);
Add('Campo3', ftSmallInt, 0, False);
Add('Campo4', ftFloat, 0, False);
End ;
With Table1.IndexDefs Do
Begin
Clear ;
Add('','Campo1',[ixPrimary]) ; // clave primaria sin nombre
Add('Indice1','Campo2',[ixCaseinsensitive]);
End ;
Table1.CreateTable ;
Table1.Active := true ;
Y una vez creadas las tablas vacias podrias usar y tBatchMove para pasar los datos de una a otra.
