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.

[haentschman]

Hallo...

das Prinzip ist im weitesten Sinne ähnlich.

1. Datenbank erstellen
2. Tabelle erstellen
3. Felder erstellen, Indexe anlegen
4. CSV einlesen (Stringlist)
5. Schleife über alle Einträge aus Pkt. 4
6. innerhalb der Schleife die Daten in die Datenbank per INSERT Statement (ggf. die Werte der Zeile aufsplitten und einzeln schreiben)

Hinweise:
- Pkt1-3 kann man auch vorher mit einem Tool wie IBExpert erledigen. Vorraussetzung, man weiß welche Felder die CSV Datei enthällt.

Fragen:
- Du sprichst von CSV lädst aber in deinem Beispiel eine TXT und liest nur die komplette Zeile ein. Eine Zeile eines CSV besteht aber in der Regel aus mehreren Werten.
- willst du mit jedem Import eine neue Tabelle / Datenbank erstellen ?
- sind die CSV vom Aufbau immer gleich ?



PS: eine dbf ist keine Datenbank sondern nur eine Tabelle im "File Format". Hier hast du schon den Unterschied zu Firebird. Dort existieren keine Tabellen ohne Datenbank. Diese Datenbank ist ein File und enthällt mehrere Tabellen.

[fl63]

Zitat von haentschman:

Hallo...


Fragen:
- Du sprichst von CSV lädst aber in deinem Beispiel eine TXT und liest nur die komplette Zeile ein. Eine Zeile eines CSV besteht aber in der Regel aus mehreren Werten.
- willst du mit jedem Import eine neue Tabelle / Datenbank erstellen ?
- sind die CSV vom Aufbau immer gleich ?

- Die txt Datei ist in diesem Fall ein Ergebnis aus zwei Bearbeitungsschritten:

a) zweispaltige Open Office Datei als csv Speichern

1.Schritt: zweite Spalte innerhalb des Delphi Programms löschen,

2.Schritt: doppelte Begriffe entfernen.

b) Datenbanktabelle (dbf) mit obigen Quelltext erstellen.


- Ja, es soll jedesmal die komplette Tabelle neu erstellt werden.

- im nachhinein soll der Importvorgang auf 2 und mehr Spalten (csv) erweitert werden.

fl63

[haentschman]

Zitat:

Ja, es soll jedesmal die komplette Tabelle neu erstellt werden.

Kannst du den Sinn dahinter mal begründen ?
Eine Datenbank ist eine "Sammlung" von Daten aus der man sich das suchen lassen kann was benötigt wird. (macht die Ddatenbank) Wenn du jedesmal eine neue Tabelle / Datenbank erzeugst mußt du selbst nach den Daten suchen (anhand des Datenbank Namens z.B) Was ist wohl übersichtlicher und effektiver ?

[fl63]

Zitat von haentschman:

Zitat:

Ja, es soll jedesmal die komplette Tabelle neu erstellt werden.

Kannst du den Sinn dahinter mal begründen ?

Neue Datensätze (aus Open Office), werden bereits zwischen die alten Datensätze geschrieben.
zB. werden zwischen den 200sten und dem 201sten Datensatz zwei Neue eingefügt,was bei 1000 und mehr Datensätzen nicht zu erkennen ist.

[mkinzler]

Auch nicht anhand des Inhalts?

[fl63]

Zitat von mkinzler:

Auch nicht anhand des Inhalts?

Wie ist das bitte gemeint. Ich kann nicht feststellen an welcher Stelle der Tabelle sich etwas verändert hat. Ich sehe nur die zunehmende Gesamtzahl der Datensätze.

[rollstuhlfahrer]

Zitat von fl63:

Neue Datensätze (aus Open Office), werden bereits zwischen die alten Datensätze geschrieben.
zB. werden zwischen den 200sten und dem 201sten Datensatz zwei Neue eingefügt,was bei 1000 und mehr Datensätzen nicht zu erkennen ist.

Dann würde ich das System nochmal überdenken oder einen eindeutigen Index einführen. Und einer DB ist das auch ganz egal, wo der Datensatz steht, die Tabelle kann nämlich vorsortiert ausgegeben werden. Spätestens wenn du einen Datensatz löschst und das DB-System den Speicher nicht sofort freigibt und die Tabelle optimiert, dann kann ein neuer Datensatz (auch mit neuem Index) irgendwo mittendrin erstellt werden.

Bernhard

[fl63]

@ rollstuhlfahrer

Um Sinngemäße Überschneidungen der Datensätze zu vermeiden, wird bereits in Open Office vorsortiert.

[mkinzler]

Die Datendefinition ist aber fix oder soll diese dynasmisch anhand der CSV-Datei erzeugt werden?

In FireBird kann man externe dateien als Tabellen einbinden und aus diesen dann daten kopieren.
http://www.janus-software.com/fbmanu...admin&topic=13

Mit Hilfe eines CSV-DataSets kann man eine CSV-Datei als Delphi-DataSet laden und dann delphiseitig die Daten in das mit Firebird verbundene DataSet kopieren.


http://fbexport.sourceforge.net/fbexport.html