Tabelle mit sql erstellen

[fl63]

Zitat von mkinzler:

-Insert-Skript erzeugen
-als externe Tabelle
-Batch-Move von einem JSV-DataSet

???

Ich bin viel zu sehr Anfänger um zu wissen was damit gemeint ist.

Anbei erstmal meine Erstellungsfunktion:

Delphi-Quellcode:

procedure TForm5.Datenbank1erstellen();
var i: integer;
   SL: TStringlist;
begin
  with table1 do      //Benenne Datenbanktabelle
  begin
    Active := false;
    DataBaseName := 'C:\DB';
    TableName := 'Datenbank1.dbf';
{    TableType := ttDbase;}

    with FieldDefs do  //Benenne Tabellenfeld
    begin
      Clear;
      Add('Datenwort', ftString, 50, false);
    end;

    CreateTable;      //Erzeuge Tabelle
    Open;             //Öffne Tabelle

    with table1 do     //Mache etwas mit Tabelle
    begin                  // Routine zum Einlesen der Daten
    SL:= TStringlist.Create;
    SL.LoadFromFile('C:\DB\datenw1.txt');
     Active := false;
     DataBaseName := 'C:\DB';
     TableName := 'Datenbank1.dbf';
     Active := true;
       For i := 0 to SL.Count -1 do
       begin
       Append;    // jeder Datensatz wird einzeln eingefügt (appended)
       Fields[0].AsString := SL.Strings[i];
       end;
     Post;
    end;
  Close;
  table1.Exclusive :=true;
    with IndexDefs do
    begin
      Clear;
      AddIndex('Datenwort' , 'Datenwort',[]);
    end;

  end; {allererstes with table1 do}
SL.Free;
end; {procedure TForm1.Tabelleerstellen1Click}

Kann man daran etwas verbessern? Ich bin dabei mein Programm auf Firebird umzustellen und möchte natürlich auch, daß das ganze schneller wird.