Arsip: menghitung record dalam perulangan

more 10 years ago
idhiel
para master delphi...
gimana caranya menghitung jumlah record dalam perulangan?
contoh kodenya kayak gini,,
begin
dm.Dbf2.Close;
dm.Dbf2.TableName := sedit1.Text ;
dm.Dbf2.FilePathFull := sedit2.Text ;
dm.Dbf2.Active := true;
dm.Dbf2.Open ;
dm.Dbf3.Active := true;
while NOT dm.Dbf2.Eof do
begin
dm.Dbf3.Open ;
dm.Dbf3.Append ;
dm.Dbf3['noref'] := dm.Dbf2['noref'];
dm.Dbf3['cycle'] := dm.Dbf2['cycle'];
dm.Dbf3['nama'] := dm.Dbf2['nama'];
dm.Dbf3['addrs'] := dm.Dbf2['alamat_1'];
dm.Dbf3['addrs1'] := dm.Dbf2['alamat_2'];
dm.Dbf3['city'] := dm.Dbf2['kota'];
dm.Dbf3['kodepos'] := dm.Dbf2['kodepos'];
dm.Dbf3['upload'] := dm.Dbf2['tglupl'];
dm.Dbf3['bank'] := sedit3.Text ;
dm.Dbf3['thome'] := dm.Dbf2['home_ph'];
dm.Dbf3['tkantor'] := dm.Dbf2['off_ph'];
dm.Dbf3['thp'] := dm.Dbf2['hp'];
dm.Dbf3.Post ;
dm.Dbf2.Next;
end;
end;
yg mau di hitung adalh jumlah record pada Dbf3 yg baru di import dari Dbf2
trim's atas bantuannya...
more 10 years ago
cartrun
kalau mau menghitung jumlah record pake perintah SQL z gan.
kurang lebih perintah untuk menghitung jumlah record tuh seperti ini.
Select Count * From Dbf3;

more 10 years ago
idhiel
klo perintah itu gan tuk menghitung seluruh jumlah record yg ada di dbf3..
nah klo mau menghitung jumlah record yg masuk pada saat looping tadi gimana gan..?
mohon bantuannya...

more 10 years ago
idhiel
lalu gimana jika jumlah record dari hasil looping tadi mau di tampilkan dalam sebuah label atau edit teks..
mohon bantuannya lagi mas... klo bisa diberikan contoh dengan kode yg paling atas mas...

more 10 years ago
alhass
[quote="idhiel"]para master delphi...
Buat variabel dl misal
var jumlah:integer;
begin
jumlah:0;
dm.Dbf2.Close;
dm.Dbf2.TableName := sedit1.Text ;
dm.Dbf2.FilePathFull := sedit2.Text ;
dm.Dbf2.Active := true;
dm.Dbf2.Open ;
dm.Dbf3.Active := true;
while NOT dm.Dbf2.Eof do
begin
dm.Dbf3.Open ;
dm.Dbf3.Append ;
dm.Dbf3['noref'] := dm.Dbf2['noref'];
dm.Dbf3['cycle'] := dm.Dbf2['cycle'];
dm.Dbf3['nama'] := dm.Dbf2['nama'];
dm.Dbf3['addrs'] := dm.Dbf2['alamat_1'];
dm.Dbf3['addrs1'] := dm.Dbf2['alamat_2'];
dm.Dbf3['city'] := dm.Dbf2['kota'];
dm.Dbf3['kodepos'] := dm.Dbf2['kodepos'];
dm.Dbf3['upload'] := dm.Dbf2['tglupl'];
dm.Dbf3['bank'] := sedit3.Text ;
dm.Dbf3['thome'] := dm.Dbf2['home_ph'];
dm.Dbf3['tkantor'] := dm.Dbf2['off_ph'];
dm.Dbf3['thp'] := dm.Dbf2['hp'];
dm.Dbf3.Post ;
jumlah:=jumlah+1;
dm.Dbf2.Next;
end;
label1.caption:=intToStr(jumlah);
end;
Begitu kira2 kl dimasukkan ke coding-mu
more 10 years ago
idhiel
maksih banyak agan Alhass...
codingnya dah aq coba n berhasil...berhasil...berhasil..
:D :D :D :D
more ...
- Pages:
- 1
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
- [tanya] data dbgrid ke new table
by jayadi888 in MySQL more 16 years ago - unexpected error from external database driver (15877)
by drackids in Lain-lain more 14 years ago - gambar webcam lambat
by batozai in FireBird more 15 years ago - error
by vandy in Multimedia & Graphic Enhancement more 15 years ago - Bahasa C++
by fafa in Network, Files, I/O & System more 14 years ago - Runtime Error 216 at 0040432A di Windows XP Pro SP2
by archvile in Tip n Trik Pemrograman more 15 years ago - Menampilkan stok barang berdasarkan tanggal
by deded in Hal umum tentang Pascal Indonesia more 10 years ago - Get Tablename di Zeos ???
by Manz in Tip n Trik Pemrograman more 15 years ago - SP sqlyog .E
by nurez in Tip n Trik Pemrograman more 15 years ago - tanya soal quick report
by Computer(Insane) in Tip n Trik Pemrograman more 15 years ago