tengo este codigo para copiar una tabla con otro nombre diferente dentro de una misma base de datos:
Código Delphi
[-]
...
implementation
procedure CloneTable(aTable: TADOTable; aQuery: TADOQuery;
const NewTableName: string);
var
i : Integer;
Str : string;
begin
Str := 'SELECT ';
for i := 0 to aTable.FieldCount-1 do
Str := Str + aTable.Fields[i].FieldName + ', ';
SetLength(Str, Length(Str)-2);
Str := Str + ' INTO ' + NewTableName + ' FROM '+ aTable.TableName;
with aQuery do
begin
Close;
SQL.Text := Str;
ExecSQL;
end;
end;
{$R *.dfm}
y la llamada:
Código Delphi
[-]
procedure TNuevo_empleado.Button1Click(Sender: TObject);
begin
CloneTable(ADOTable1, ADOQuery1, Edit1.Text);
showmessage ('Su Nuevo Empleado a sido agregado');
edit1.Clear;
end;
La pregunta es, como copiar una tabla en espesifico, por el nombre, es decir, siempre tener como modelo la tabla llamada "original"?
Base de datos en Access, ADOconection, ADOtable, ADOquery.
gracias
