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

Membuat Split File Zip Dengan 7-Zip

Gambar
Saya kesulitan apabila hendak mengupload file setup dari Aplikasi yang saya buat untuk saya email atau lain sebagainya. Karena layanan Internet yang saya miliki hanya dari kantor, yang mana user Internet-nya dibatasin untuk menDownload maupun mengUpload file. Selama itupula saya tidak dapat mengupload, membagi maupun mengirimkan file dalam jumlah besar. Namun sekarang sudah ada solusinya yaitu dengan mensplit file setup saya yang relatif besar (diatas 10 Mb). Saya menggunakan 7-Zip sebagai mesin pengkompresnya. Mungkin dengan WinRar juga bisa, namun untuk saat ini saya menggunakan 7-Zip. Langkahnya cukup simpel dan cepat, saya hanya melakukan beberapa klik dan klak saja dan File Zip split tercipta. Untuk melakukannya Pilih/ Sorot/ Seleksi File / Foldernya Klik Kanan/ Klak >> Pilih/ Sorot/ Seleksi 7-Zip Add to archieve Setting/Pilih Lokasi/ Folder untuk menyimpan file-nya Pilih Jenis/ Tipe Split pada Dropdown Split to Volume, bytes: Pilih Ok Apabila ingin dipasword maka masukkan/k
Baca selengkapnya

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

Pembuatan Function PowerBuilder

Gambar
Prakata : Tulisan atau artikel ini dimaksudkan bukan untuk mengajarkan kepada Anda yang membacanya, namun Kami sekedar menulis dengan maksud apabila Kami lupa akan cara pembuatan Function pada PowerBuilder, maka Kami dapat ingat kembali dengan melihat dan membaca tulisan Kami ini. Namun alangkah baiknya apabila bermanfaat bagi Anda-anda yang membacanya, tak sedikitpun terbersit niat bahwa “Kami adalah seorang master dalam bidang pemrograman”, Kami hanya mencoba menuangkan sedikit pengetahuan Kami untuk dibagikan kepada rekan-rekan yang mungkin masih awam terhadap pemrograman PowerBuilder. Definisi Function : ialah prosedur yang dapat memberikan suatu hasil balik ke program yang memanggilnya atau tidak meberikan hasil balik sama sekali. Hasil balik ini biasanya berupa suatu nilai yang dibutuhkan oleh bagian program yang memanggilnya. Apa yang membedakan pemrograman PowerBuilder dengan pemrograman lainnya?, hakikat sebuah pemrograman adalah sama, yang membedakan hanyalah bahasa
Baca selengkapnya