Menyimpan data dari listview ke dalam database di Delphi

Menyimpan data dari listview ke database. Siapa yang belum tahu caranya siimpan data dari Listview ke dalam Tabel atau Database di delphi ? saya coba cari pembahasan tentang ini yang versi indonesia gx nemu sama sekali yang muncul di mbah cuma menampilkan dari DB ke Listview, oleh karena itu saya buatkan Listing cara menyimpan data dari listview ke database, pasti rata" orang itu mencari penelusuran dengan bahasa indonesia di Pencarian Mbah Google atau yang lainnya padahal jika pakai bahasa inggris mungin saja nemu artikel yang dibutuhkan.

Listview merupakan tabel penyimpanan sementara atau biasa disebut virtual tabel, kalo gx salah. jika misal agan" membuat program kasir misalnya, bisa menggunakan listview untuk Transaksi penjualannya karena sudah pasti akan banyak produk yang akan masuk ke List Penjualan namun bisa juga pake Stringgrid..

Tanpa panjang lebar lagi,Ini lah Potongan Codingnya :

procedure TForm1.BitSimpanClick(Sender: TObject);
Var i:Integer;
ID,NAMA,HARGA,STOK:string;
begin
  for i:=0 to Listview1.Items.Count-1 do
  begin
   ID:=Listview1.Items[i].Caption;
   NAMA:=Listview1.Items[i].SubItems[0];
   HARGA:=Listview1.Items[i].SubItems[1];
   STOK:=Listview1.Items[i].SubItems[2];

   ADOSimpan.Close;
   ADOSimpan.SQL.Clear;
   ADOSimpan.SQL.Add('insert into tbl_data (id,nama,harga,stok)');
   ADOSimpan.SQL.Add(' values ("'+ID+'","'+NAMA+'","'+HARGA+'","'+STOK+'")');
   ADOSimpan.ExecSQL;
 end;
 MessageDlg('Data Sudah Disimpan',mtInformation,[mbOK],0);
 Listview1.Clear;
 FormShow(Sender);
end; 

BACA JUGA : Menampilkan data dari database ke listview di Delphi

Copas Sertakan Link Sumber : antasdelphi.blogspot.com.

Untuk lengkapnya bisa coba source berikut, Ini HANYA Contoh :

Download

Posted by Antas Delphi on - Rating: 4.5

Title : Menyimpan data dari listview ke dalam database di Delphi
Description : Menyimpan data dari listview ke database. Siapa yang belum tahu caranya siimpan data dari Listview ke dalam Tabel atau Database di delphi...