Einzelnen Beitrag anzeigen

marcibaer

Registriert seit: 27. Sep 2006
Ort: Inden
76 Beiträge
 
Delphi XE2 Professional
 
#4

AW: csv Datei in mysql DB einlesen

  Alt 18. Okt 2012, 16:13
@Sir Rufo: die DB liegt auf meiner Homepage.
@Gollum:
Hab das mal so probiert und mir den mySQL ODBC Treiber aus'm Netz besorgt.
Delphi-Quellcode:
const
  qryImportCSV=
    'LOAD DATA LOCAL INFILE ''%s'' '+
    'INTO TABLE %s '+
    'FIELDS TERMINATED BY '';'' '+
    'IGNORE 1 LINES'; // falls 1. Zeile Spaltenüberschriften enthält
  StrConnection='Driver={MySQL ODBC 3.51 Driver};Server=%s;Database=%s;'+
                'User=%s; Password=%s;Option=3;';
var
  Command: TADOCommand;
begin
  DateiName := '/DB-Export.csv';
  Command := TADOCommand.Create(nil);
  with Command do
    try
      with Online^ do
        ConnectionString := Format(StrConnection,[Servername,Datenbank,Username,Passwort]);
      CommandText := Format(qryImportCSV, [DateiName, 'Person']);
      Execute;
    finally
      Free;
    end;
Anscheinend lässt der mich der Server aber nicht rein, da ich die Fehlermeldung "[MySQL][ODBC 3.51 Driver] Can't connect to MySQL server on 'rdbms.strato.de' (10061)" bekomme.

Was muss ich da denn noch zusätzlich festlegen!?
Marc
  Mit Zitat antworten Zitat