Watch, Follow, &
Connect with Us

Please visit our new home
community.embarcadero.com.


Welcome, Guest
Guest Settings
Help

Thread: SQLiteでcsvデータをimportしたいのですが



Permlink Replies: 2 - Last Post: Dec 15, 2016 8:51 PM Last Post By: Hideyuki Oya
Hideyuki Oya

Posts: 87
Registered: 6/6/07
SQLiteでcsvデータをimportしたいのですが
Click to report abuse...   Click to reply to this thread Reply
  Posted: Dec 15, 2016 6:07 PM
Delphi10を使っています。
1行づつのデータ挿入はできるようになったのですが、csvデータを一括で読み込む(import)方法がわかりません。
どのような書式にしたらいいのでしょうか?

procedure TForm1.execute2ButtonClick(Sender: TObject);//1行づつのデータ挿入はこれでOK
var
  FDQuery1:TFDQuery;
begin
  FDQuery1 := TFDQuery.Create(nil);
  FDQuery1.Connection := FDConnection1;
  FDQuery1.ExecSQL('insert into Employee values (20,''AAA'',''BBB'','''')');
end;
 
procedure TForm1.connectButtonClick(Sender: TObject);
begin
  outputMemo.Text := '';
  FDConnection1.DriverName := 'SQLITE';
  FDConnection1.Params.Values['Database'] := 'F:\Employees.s3db';
  try
    // 接続を確立する
    FDConnection1.Open;
    executeButton.Enabled := True;
    outputMemo.Lines.Add('Connection established!');
  except
    on E: EDatabaseError do
      outputMemo.Lines.Add('Exception raised with message' + E.Message);
  end;
 
end;
igy kk

Posts: 147
Registered: 9/11/03
Re: SQLiteでcsvデータをimportしたいのですが
Click to report abuse...   Click to reply to this thread Reply
  Posted: Dec 15, 2016 7:29 PM   in response to: Hideyuki Oya in response to: Hideyuki Oya
Delphiを使って・・・では、ありませんが、
sqlite csv import
で検索すると・・・
Hideyuki Oya

Posts: 87
Registered: 6/6/07
Re: SQLiteでcsvデータをimportしたいのですが
Click to report abuse...   Click to reply to this thread Reply
  Posted: Dec 15, 2016 8:51 PM   in response to: igy kk in response to: igy kk
igy kk wrote:
Delphiを使って・・・では、ありませんが、
sqlite csv import
で検索すると・・・

igy kkさん、回答ありがとうございます。
Delphiのコマンドにはないということでしょうか?
完成時には数百以上のファイルをimportする必要があるのでできるだけDelphiに統一しようと思っています。
Shellexecuteでも使ってimportコマンドを使ってやってみます。
Legend
Helpful Answer (5 pts)
Correct Answer (10 pts)

Server Response from: ETNAJIVE02