Всем привет!
Нужно из CSV-файла внести данные в БД, некий импорт в базу сделать.
Я вот так читаю файл:
procedure TForm1.Button1Click(Sender: TObject);
var
sCSV : TStringList;
s : String;
begin
if OpenDialog1.Execute then
begin
sCSV := TStringList.Create;
sCSV.LoadFromFile(OpenDialog1.FileName);
for s in sCSV do
begin
with SQLQuery1 do
begin
Close;
SQL.Text := 'INSERT INTO test (city,street) VALUES ('+s+')';
ShowMessage(SQL.Text);
//ExecSQL;
end;
end;
end
end;
Проблема такая: в запрос вставляются данные вида: "city;street" или "city,street", а нужно "'city','street'" (то есть значения в кавычки нужно заключить)
Подскажите, как сделать.
Заранее спасибо.