Cara Simpan Excel ke Database Dengan Delphi XE5

By: QMPC Network on 03.43

Ok pada posting penulis kali ini akan coba membuat menyimpan data yang ditampilkan dari file excel kedalam database. bagi yang belum membaca postingan sebelumnya tentang cara membuka file excel menggunakan Delphi XE5 selahkan klik disini.

Bagi yang sudah baca langsung kita mulai saja

Langkah 1 :
Pada langkah ke satu ini kita siapkan dulu database yang kita gunakan untuk menampung data yang akan kita olah, pastikan jumlah kolom dan letak field semua sama, Untuk hasilnya seperti pada contoh :

Langkah 2 :
Buat form seperti berikut ini :

Langkah 3 :
Setelah itu pada button Simpan ke DB kita kasih source code seperti dibawah ini :

procedure TForm1.bsvClick(Sender: TObject);
var
   i,x: integer;
   lvitem :TListItem;
begin
  if ListView1.Items.Count=0 then
  begin
    ShowMessage('Data Masih Kosong...');
    Exit;
  end;
  if ListView1.Columns.Count<>Query.FieldCount then
  begin
    ShowMessage('Jumlah kolom tidak sama...');
    Exit;
  end;
try
  for i:=1 to ListView1.Items.Count do
  begin
    ListView1.itemindex:= i - 1;
    lvitem:= ListView1.Selected;
      Query.Append;
        if Query.Fields[0].DataType = ftDateTime then Query.Fields[0].Value:=StrToDate(lvitem.Caption)
        else if Query.Fields[0].DataType = ftInteger then Query.Fields[0].Value:=StrToInt(lvitem.Caption)
        else Query.Fields[0].Value:=lvitem.Caption;
      for x:=1 to Query.FieldCount-1 do
      begin
        if Query.Fields[x].DataType = ftDateTime then Query.Fields[x].Value:=StrToDate(lvitem.SubItems[x-1])
        else if Query.Fields[x].DataType = ftInteger then Query.Fields[x].Value:=StrToInt(lvitem.SubItems[x-1])
        else Query.Fields[x].Value:=lvitem.SubItems[x-1];
      end;
      Query.Post;
  end;
  pg.TabIndex:=1;
  ListView1.Clear;
  ShowMessage('Data berhasil dipindahkan !!');
except
ShowMessage('Data gagal dipindahkan !!');
end;
end;

Langkah 4 :
Kita akan coba run aplikasinya, jika sukses berturut-turut seperti berikut ini :