habe folgende SQL-Anweisung in MySQL-workbench erstellt und sie macht das was sie machen soll:
Code: Alles auswählen
LOAD DATA INFILE 'C:/Users/KP/Documents/solar-Datalogg/datalog_120423.txt' INTO TABLE solar_import
FIELDS TERMINATED BY ';'
LINES TERMINATED BY '\n'
IGNORE 1 LINES
(Volt, Ampere, Zeit, Datum, Wh_Netz);
Leider schaffe ich es nicht diese Anweisung in ein Programm einzufügen.
Trotz vieler Versuche und viel "google" weiß ich nicht mehr weiter:
Code: Alles auswählen
procedure TForm1.Button2Click(Sender: TObject);
var
SD_datum: string;
begin
SD_datum := InputBox('Datum eingeben: JJ.MM.DD', 'Please type in some information',
'Some sample text');
ZQuery1.SQL.Text := 'LOAD DATA INFILE ' + QuotedStr('C:/Users/KP/Documents/solar-Datalogg/datalog_' + SD_datum + '.txt') + ' INTO TABLE solar_import'
+ 'FIELDS TERMINATED BY ' + QuotedStr(';') + ' LINES TERMINATED BY ' + QuotedStr('\n')
+ ' IGNORE 1 LINES (Volt, Ampere, Zeit, Datum, Wh_Netz)';
ZQuery1.ExecSQL;
end;
Gruß Klaus
PS. nutze die zeosDBO in Version 7