Ergebnis der Suchanfrage

• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  Mit Queries würde es dann so aussehen:
  
  Vorbelegen der Queries am Beispiel von getPlz:
  
  getPlz.Sql.Text := 'select plzid from plzVerzeichnis where plz= :plz';
  getPlz.Prepared := True;
  
  Weiter unten in der Schleife über die Zeilen dann
  
  getPlz.Parameters.ParamByName('plz').Value := SL.Strings;
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  Also wenn du unbedingt alles über eine AdoTable arbeiten willst( wie gesagt parametrisierte Queries wären besser) dann mußt du mit Filtern arbeiten.
  Schleife über die Felder entfernen.
  
  ADOQuery1.Sql.Text := 'insert into PLZ, Straße, vonHausnr, vonHausnr_zusatz, bisHausnr, bisHausnr-zusatz, GU, Tour) values( :plz, ;str, ;von, ;von_zu, :bis, :bis_zu, :gu ,tour)';
  
  oder in der IDE...
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  Poste mal den ganzen Source, ich habe so das Gefühl wir reden aneinander vorbei ;-)
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  Ich würde nicht mit ADOTable sondern für jede Tabelle ein ADOQuery für das SELECT und eine für den INSERT erstellen, oder wenn natürlich Stringlisten verwenden.
  
  Ich würde nicht über ein Grid auf die Daten zugreifen, sondern direkt auf die DataSet-Kompoenente (ADOTable,ADOQuery usw).
  
  Wenn du nicht weiterkommst kannst du ja mal deine Projekt hier einstellen.
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  Wenn du es wie oben vorgeschlagen machst, hast du ja immere nur eine Zeile in deiner Stringliste.
  Du willst also die Tab1,Tab2 usw. auch durch die Werte der CSV-Datei aufbauen.
  
  Dann ist es am besten nach dem aktuellen Wert zu suchen (ob in der Datenbank oder einer Stringliste im Speicher ) wenn gefunden diese ID verwenden, sonst neuen Eintrag erzeugen.
  
  
  Unter Klartext meinte ich z,B....
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  Ich hatte das so verstande, daß du Delphi eigentlich kannst und nur durch die Pause / Verwendung anderer Sparchen nicht mehr "up-to-date" bzw. Delphi mit anderen Sprachen gedanklich vermischt. (Passiert mir auch immer, wenn ich eine Weile mehr php programmiert habe und umgekehrt).
  
  Aus der CSV-datei erhälst du die Klartexte, damit meine ich z.b. sie Straße, und nicht die ID, welche du in die...
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  Also die PLZ(Klartext) befindet sich in SL.Strings, die Straße(Klartext) in SL.Strings usw. Ich würde an deiner Stelle parametrisierte Abfragen für die Auflösen der Klartexte in IDs schreiben.
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  Besser ist es die Funktion StringReplace zu verwenden, die ersetzt alle Vorkommen auf einen Streich.
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  Villeicht vor dem zuweisen die Leerzeiceh und seltene Zeichen ersetzen. Später zurücksetzen.
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  var
  sl: TStringList;
  zeilennr: integer;
  DateiName, S: String;
  F: TextFile;
  
  begin
  OpenDialog1.Execute; // Das Ergebnis steht in FileName
  // ShowMessage(OpenDialog1.FileName);
  DateiName := OpenDialog1.FileName; //Der Pfad wird in die Datei gestellt
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  Wenn du die erste Zeile der CSV-Datei geladen hast und diese mit Hilfe der Eigenschaft DelimitedText der Stringlist zugewiesen hast, dann enthält die Eigenschaft Count die Anzahl der Spalten.
• Forum: Datenbanken

  Re: CSV --> Stringlist --> Stringlist zerlegen -->

   
    by mkinzler, 12. Mär 2006
  StringList.Count;
  
  Wie du gesagt hat die erste Zeile einlesen und dann kannst du die Feldname aus der StringListe auslesen
  
  for i := 0 to StringList.Count -1 do
  begin
  ...
  s := StringList.Strings;
  ...
  end;