Arsip: Hapus Data di Database Menggunakan Listview Checkbox

more 11 years ago
mrajex
Mas mas mo nanya gimna caranya menghapus data yg ada di database?
code yg ane buat baru seperti ini...
procedure TForm1.btnHapusClick(Sender: TObject);
var
i :integer;
begin
i:=0;
while i<ListView1.Items.Count do
if ListView1.Items.Item[i].Checked then
ListView1.Items.Item[i].Delete
else
Inc(i);
end;

more 11 years ago
elva_ivana
kira2 begini cara nya (silahkan di betulkan jiga ada yg lbh simpel)
procedure TForm1.btnHapusClick(Sender: TObject);
var
i :integer;
begin
i:=0;
while i<ListView1.Items.Count do
if ListView1.Items.Item[i].Checked then
sql.close;
sql.clear;
sql.add('delete from tabelku where tabelId='+ListView1.Items.Item[i].caption);
sql.execute;
else
Inc(i);
end;

more 11 years ago
elva_ivana
..ada yg kelewat ...
@elva_ivana: kira2 begini cara nya (silahkan di betulkan jiga ada yg lbh simpel)procedure TForm1.btnHapusClick(Sender: TObject); var i :integer; begin i:=0; while i<ListView1.Items.Count do if ListView1.Items.Item[i].Checked then sql.close; sql.clear; sql.add('delete from tabelku where tabelId='+ListView1.Items.Item[i].caption); sql.execute; // else ----> dihapus Inc(i); end;

more 11 years ago
willyalves
bingung ya, kok pny ak gak bisa pake adocommand malahan access violation sdgkan kl pake query malah does not support returning multiple dataset

more 11 years ago
willyalves
gini kak ak hampir sama kodenya,,cm ak pengen delete nya sesuai yg uda kecentang di checkbox jg
if (listview1.Selected <> nil) then
begin
i:=0;
while i<ListView1.Items.Count do
if ListView1.Items.Item[i].Checked=true then
adocommand1.CommandText:='delete from invoice where description ='''+(listview1.items.item[i].checked)+''' and [invoice#]='''+(invoice.Text)+''' ';
adocommand1.Execute;
refreshdata;
else inc(i);
end
ak dah coba ilangin else tp malah program infinite loop, saat pake else malah gak delete apa2 hehe..
mohon bantuan dgn sangat
more 11 years ago
elva_ivana
if (listview1.Selected <> nil) then
begin
i:=0;
while i<ListView1.Items.Count do
if ListView1.Items.Item[i].Checked=true then
adocommand1.CommandText:='delete from invoice '+
'where description ='''+(listview1.items.item[i].caption)+
''' and [invoice#]='''+(invoice.Text)+''' ';
adocommand1.Execute;
refreshdata;
else inc(i);
end

more 11 years ago
suwarno
@elva_ivana:Mas Kalo lewat SMDGRID gmn mas??? Saya koneksiny pake ADO dan MS. ACCES???untuk code program nya sendiri bagaimana.... terima kasih mas, salam kenal ajaif (listview1.Selected <> nil) then begin i:=0; while i<ListView1.Items.Count do if ListView1.Items.Item[i].Checked=true then adocommand1.CommandText:='delete from invoice '+ 'where description ='''+(listview1.items.item[i].caption)+ ''' and [invoice#]='''+(invoice.Text)+''' '; adocommand1.Execute; refreshdata; else inc(i); end
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago
Random Topic
- Delphi For Dummies
by ndenkltop in Kritik & Saran more 15 years ago - Error di Delphi
by w4h703 in Tip n Trik Pemrograman more 15 years ago - illegal character in input file: '&' ($26)
by anosolano in Hal umum tentang Pascal Indonesia more 15 years ago - Inherited Form
by fafenail in Hal umum tentang Pascal Indonesia more 16 years ago - spasi kosong di fast report
by one in Reporting more 13 years ago - SELAMAT TAHUN BARU 2007
by Akuna-Matata in OOT more 15 years ago - error untuk TBlobStream
by lela in Hal umum tentang Pascal Indonesia more 16 years ago - TQuery yg bisa Cacheupdate..
by wati in Tip n Trik Pemrograman more 10 years ago - Dimana ya bisa belajar tt struktur file ?
by jancky in Tip n Trik Pemrograman more 14 years ago - bantu aku ya cari unit Tflatbuttonunit.pas
by aandrie77 in Tip n Trik Pemrograman more 15 years ago