DatabaseImport

long  DatabaseImport(
   int           database,          // Handle der Datenbank, erhalten von DatabaseOpen
   const string  table,             // Tabellenname der dort einzutragenden Daten
   const string  filename,          // Dateiname mit den zu importierenden Daten
   uint          flags,             // Kombination der Flags
   const string  separator,         // Trennzeichen der Daten
   ulong         skip_rows,         // Wieviele Zeichenketten sollen am Anfang übersprungen werden
   const string  skip_comments      // Satz von Zeichen zur Kennzeichnung eines Kommentars
   );

//+------------------------------------------------------------------+
//| Skript Programm Start Funktion                                   |
//+------------------------------------------------------------------+
void OnStart()
 {
  string csv_filename;
//--- Abrufen der Namen der Textdateien zum Laden aus dem Common-Verzeichnis des Kliententerminals
  string filenames[];
  if(FileSelectDialog("Wählen einer CSV-Date, die in einer Tabelle gespeichert werden soll", NULL,
                      "Textdateien (*.csv)|*.csv",
                      FSD_WRITE_FILE|FSD_COMMON_FOLDER, filenames, "data.csv")>0)
   {
    //--- Anzeige der Namen von jeder gewählten Datei
    if(ArraySize(filenames)==1)
      csv_filename=filenames[0];
    else
     {
      Print("Unbekannter Fehler während der Dateiauswahl. Fehlernummer: " GetLastError());
      return;
     }
   }
  else
   {
    Print("Keine CSV-Datei ausgewählt");
    return;
   }
//--- Erstellen oder Öffnen einer Datenbank
  string db_filename="test.sqlite";
  int db=DatabaseOpen(db_filename, DATABASE_OPEN_READWRITE|DATABASE_OPEN_CREATE);
//--- Prüfung, ob Testtabelle existiert
  if(DatabaseTableExists(db, "TEST"))
   {
    //--- entfernen der Tabelle TEST
    if(!DatabaseExecute(db, "TABELLE TEST LÖSCHEN, WENN VORHANDEN"))
     {
      Print("Löschen der Tabelle TEST ist fehlgeschlagen mit der Fehlernummer ", GetLastError());
      DatabaseClose(db);
      return;
     }
   }
  //--- Einträge aus der Datei in die Tabelle TEST importieren
  long imported=DatabaseImport(db, "TEST", csv_filename, DATABASE_IMPORT_HEADER|DATABASE_IMPORT_COMMON_FOLDER|DATABASE_IMPORT_APPEND, ";", 0, NULL);
  if(imported>0)
   {
    Print(imported," Zeilen in die Tabelle TEST importiert");
    DatabasePrint(db,"SELECT * FROM TEST",DATABASE_PRINT_NO_INDEX);
   }
  else
    {
     Print("DatabaseImport() ist fehlgeschlagen. Error ",GetLastError());
    }
//--- Schließen der Datenbankdatei und Informieren darüber
  DatabaseClose(db);
  PrintFormat("Database: %s wurde geschlossen", db_filename);
 }