XML Daten in DB importieren

[haentschman]

ah jetzt ja.... :gruebel:

Zitat:

.Properties.Value('value'))

...habe ich noch nicht gebraucht. Liegt wahrscheinlich an der Struktur der XML. Gut zu wissen, was es noch so gibt :wink:

[ryLIX]

Jetzt muss ich nur noch die embedded DB zum laufen bekommen -.-
Mal sehen wie lang ich dafr brauch :roll:

[haentschman]

fbclient.dll
firebird.conf
firebird.msg
icudt30.dll
icuin30.dll
icuuc30.dll

...diese Dateien ins Anwendungsverzeichnis
- DB mit z.B. IBExpert erstellen
- DB in beliebiges Verzeichnis
- Connection abhängig von Zugriffskomponenten
Tipps für Zeos:
- Host muß ein Leerstring sein ''
- User und Paßwort zuweisen (Standard: SYSDBA / masterkey)
- Database: lokaler Ordner wo die Datenbank liegt.

:hi:

[ryLIX]

Ne ich hab mich für DISQLite3 und SQLite3.dll entschieden :)
Der Fehler war die ganze Zeit im Statement habs nur vor blindheit nich gesehen :oops:

[haentschman]

...viel Spaß beim Entdecken der unbekannten Möglichkeiten. :P

[ryLIX]

Unbekannt sind die nicht :)
Hab sqlite3 schon in einem .Net Projekt im Einsatz :)

Aber die Geschwindigkeit wird schön.

Muss ich nur noch die Routine für den Import der anderen Daten schreiben.
Hab gesehen das die JVCL ein DBTreeView liefert :)
Muss ich das auch nimmer suchen :stupid:

Danke nochmal für deine Hilfe :)

[haentschman]

Zitat:

Hab gesehen das die JVCL ein DBTreeView liefert

...benutze ich auch gern...schmerzfrei wenn man die Datenfelder entsprechend anlegt.
...hier habe ich mal erklärt worauf es ankommt.
kurze Erklärung
:hi:

[ryLIX]

Ui du bist mein Held heute :)
Im Hintergrund rattert die Festplatte weil durch deine Hilfe das ganze sehr einfach geworden ist :)
Ich hoffe das ich das ganze dann heut abend noch in die DB bekomme :D
Dann hab ich nen großen vortschritt gemacht was Wissen und Projekt angeht :) :dp: :dp:

[haentschman]

...und ich habe meine guten Taten für dieses Jahr weg... :mrgreen: :cheer:

[ryLIX]

Und ich tu auch noch eine :)

Hier die Routine die ich nun zusammen gestellt habe.
Falls jemand das gleiche bzw ein ähnliches Problem hat kann er sich daran orientieren :)

Delphi-Quellcode:

procedure TForm2.xml_batch(FileName: string);
var
  tblName: string;
  FSW: string;
  B: Integer;
  I: Integer;
  PSW: string;
  A: Integer;
begin
  JvSimpleXML1.LoadFromFile(FileName);
  for I := 0 to JvSimpleXML1.Root.Items.Item[0].Items.Count - 1 do
  begin
    tblName := '';
    PSW := '';
    FSW := '';
    tblName := StringReplace(JvSimpleXML1.Root.Items.Item[0].Items.Item[I].Name, '-', '_', [rfReplaceAll]);
    DISQLite3db.Execute16('CREATE TABLE [' + tblName + '] ([ID] INTEGER  NOT NULL PRIMARY KEY,[FSW] TEXT  NOT NULL,[PSW] TEXT  NULL,[COMMENT] TEXT  NULL)');
    for A := 0 to JvSimpleXML1.Root.Items.Item[0].Items.Item[I].Items.Count - 1 do
    begin
      FSW := JvSimpleXML1.Root.Items.Item[0].Items.Item[I].Items.Item[A].Properties.Value('value');
      for B := 0 to JvSimpleXML1.Root.Items.Item[0].Items.Item[I].Items.Item[A].Items.Count - 1 do
      begin
        PSW := PSW + JvSimpleXML1.Root.Items.Item[0].Items.Item[I].Items.Item[A].Items.Item[B].Properties.Value('value') + #10;
      end;
      DISQLite3db.Execute16('INSERT INTO ' + tblName + ' VALUES (NULL,"' + FSW + '","' + PSW + '", "")');
    end;
  end;
end;

Noch eine kurze anmerkung:
Ich habe wie schon erwähnt SQLite3 im einsatz.

Code:

[ID] INTEGER  NOT NULL PRIMARY KEY

Bewirkt bei SQLite3 ein Integerfeld mit Autoincrement :)