Hallo zusammen,<BR>
ich versuche via ADO mit folgendem Code eine Kopie einer Tabelle zu erstellen; die Methode läuft ohne Fehlermeldung durch, jedoch finde ich die Zieltabelle nicht!???<BR>
<PRE>
function TDMGlobal.ReplicateTable( Source, Target: string ): Boolean;
// Erstellt eine exakte Kopie der Tabelle "Source" nach "Target"
var
SourceTable: TADODataSet;
TargetTable: TADODataSet;
begin
SourceTable := TADODataSet.Create( nil );
TargetTable := TADODataSet.Create( nil );
try
SourceTable.Connection := DBGlobal;
SourceTable.CommandText := Source;
SourceTable.CommandType := cmdTableDirect;
SourceTable.Active := True;
TargetTable.Connection := DBGlobal;
TargetTable.CommandText := Target;
TargetTable.CommandType := cmdTableDirect;
TargetTable.FieldDefs.Assign( SourceTable.FieldDefs );
TargetTable.IndexDefs.Assign( SourceTable.IndexDefs );
TargetTable.CreateDataSet
finally
FreeAndNil( TargetTable );
FreeAndNil( SourceTable )
end
end;
</PRE>
Danke für jede Antwort!
Holger Rogge
ich versuche via ADO mit folgendem Code eine Kopie einer Tabelle zu erstellen; die Methode läuft ohne Fehlermeldung durch, jedoch finde ich die Zieltabelle nicht!???<BR>
<PRE>
function TDMGlobal.ReplicateTable( Source, Target: string ): Boolean;
// Erstellt eine exakte Kopie der Tabelle "Source" nach "Target"
var
SourceTable: TADODataSet;
TargetTable: TADODataSet;
begin
SourceTable := TADODataSet.Create( nil );
TargetTable := TADODataSet.Create( nil );
try
SourceTable.Connection := DBGlobal;
SourceTable.CommandText := Source;
SourceTable.CommandType := cmdTableDirect;
SourceTable.Active := True;
TargetTable.Connection := DBGlobal;
TargetTable.CommandText := Target;
TargetTable.CommandType := cmdTableDirect;
TargetTable.FieldDefs.Assign( SourceTable.FieldDefs );
TargetTable.IndexDefs.Assign( SourceTable.IndexDefs );
TargetTable.CreateDataSet
finally
FreeAndNil( TargetTable );
FreeAndNil( SourceTable )
end
end;
</PRE>
Danke für jede Antwort!
Holger Rogge
Comment