Arsip: Hapus Data di Database Menggunakan Listview Checkbox
more 12 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 12 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 12 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 12 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 12 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 12 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 12 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 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Gak bisa submit dari post reply
by rusli_chow in Hal umum tentang Pascal Indonesia more 15 years ago - Paradox Delphi 7 Error on Vista Home Premium
by claser99 in Paradox more 15 years ago - Men-setting tanggal kembalian barang rental ?
by wiseguy1997 in Tip n Trik Pemrograman more 16 years ago - My Free Component
by Starboard in Hal umum tentang Pascal Indonesia more 18 years ago - Ambil record dari tabel lain ?
by debby in Hal umum tentang Pascal Indonesia more 16 years ago - tidak bisa nge-print manual dengan QuickReport?
by gormet in Reporting more 16 years ago - Huruf Arab
by armanefendi in Tip n Trik Pemrograman more 16 years ago - perhitungan bulan
by vera in Hal umum tentang Pascal Indonesia more 16 years ago - Lazarus Win32 GUI App + Exceptions...
by _lmz in OOT more 17 years ago - detect program lain di windows
by daksa in Hal umum tentang Pascal Indonesia more 16 years ago