Mencari Jumlah Rekord Pada VB6

Dim RSViewer As New ADODB.Recordset
Dim MySQL As String
Dim i As Integer
Dim JmlSiswaDiTerima As String

MySQL= "SELECT NIS FROM Tab_SiswaPKL WHERE Tab_SiswaPKL.Status='Diterima' "
Set RSViewer = New ADODB.Recordset
RSViewer.Open MySQL, DbAcax, adOpenKeyset, adLockOptimistic
If RSViewer.BOF = True And RSViewer.EOF = True Then
MsgBox "Database Kosong", vbOKOnly + vbInformation
Exit Sub
End If
RSViewer.MoveFirst
For i = 0 To RSViewer.RecordCount - 1

RSViewer.GetRows = i

Next
i = i
JmlSiswaDiTerima = i
JmlSiswaDiTerima = Format(JmlSiswaDiTerima, "###,###,##0")
TxtSiswaDiterima.Text = i & " Siswa"
TxtSiswaDiterima.Locked = True
Set RSViewer = Nothing

Postingan populer dari blog ini

Load Dan Insert Image ke MySQL BLOB dengan VB6

Sumber Dari http://heng-line.com/?p=66 MySQL memiliki fasilitas penyimpanan berupa objek gambar dengan data type BLOB. Berikut adalah contoh untuk mengakses table pada MySQL pada colom dengan data type BLOB dari Visual Basic 6 menggunakan ADODB dan Stored Procedure. uat database MySQL, Contoh: CREATE DATABASE contoh; Buat Tablenya, Contoh: CREATE TABLE pegawai (id_pegawai INT AUTO_INCREMENT, nama VARCHAR(50), foto MEDIUMBLOB); Buat Procedure, Contoh: DELIMITER$$ CREATE PROCEDURE pegawai_p( pchProc CHAR(1), pinIdPegawai INT, pvcNama VARCHAR(50), pmbFoto MEDIUMBLOB ) BEGIN /*Khusus untuk meload data berdasarkan id_pegawai tertentu*/ IF pchProc = ‘R’ THEN SELECT id_pegawai, nama, foto FROM pegawai WHERE id_pegawai = ‘1’; END IF; /*Khusus untuk melakukan insert data ke table pegawai*/ IF pchProc = ‘N’ THEN INSERT pegawai (nama, foto) SELECT pvcNama, pmbFoto; END IF; END$$ DELIMITER; Berikut adalah yang harus kita buat di Visual Basic 6 ‘Tambahkan variable global pada ...
Baca selengkapnya

Jawaban UTS MK. Sistem Operasi

Gambar
1. Jelaskan perbedaan antara sistem operasi dan program aplikasi. Sistem operasi atau OS merupakan sebuah perangkat lunak yang tertanam  atau terinstal pada suatu komputer yang bertanggung jawab untuk mengatur sumber daya(listrik) terhadap perangkat keras lainnya dan sebagai pengatur input output. Operating System diumpamakan sebuah rumah/tempat diinstal nya program-program komputer(application program) sehingga tanpa operating system program aplikasi tidak akan dapat berjalan. Program aplikasi merupakan kumpulan beberapa prosedur-prosedur dan algoritma yang dibuat untuk melaksanakan tugas tertentu yang nantinya akan digunakan untuk membantu melaksanakan pekerjaan penggunanya. 2. Jelaskan apa yang disebut open source dan berikan contoh sistem operasi yang menggunakan sistem tersebut (open source) Sistem operasi open source adalah sistem operasi yang kode sumbernya dibuka bebas oleh pengembangnya sehingga bisa dipelajari, diubah, dikembangkan, dan disebarluaskan...
Baca selengkapnya

Sistem Operasi

Pertanyaan: Apakah buffering, main storage dan overlay itu? B uffering Buffering yaitu proses menunggu pengisian/download video/audio dari internet, biasanya terjadi pada saat membuka video di website atau SmartPhone. Main Storage Main Storage adalah memori yang berfungsi sebagai penampung data, instruksi/progaram dari input device untuk dilanjutkan ke CPU (Central Processing Unit) dan juga tempat untuk menampung data/hasil kerja dari CPU sebelum dilanjutkan ke Output Unit, namun bersifat sementara waktu selama pengolahan berlangsung. sumber: https://brainly.co.id/tugas/8577234 Overlay Overlay merupakan sebuah proses/teknik pemrograman yang berfungsi membagi program yang besar menjadi bagian yang kecil sehingga dapat dimuat secara parsial ke dalam suatu page memori yang berukuran kecil. Pertanyaan: Mengapa apa sistem operasi Windows lebih rentan terkena virus? " Mengapa system operasi Windows lebih rentan terhadap virus ketimbang system operasi lainnya, berikut al...
Baca selengkapnya