VB6 : cara cepat membaca data

Posted on September 24, 2014. Filed under: Teknologi Informasi, VB6 |

Dear all, berikut tutorial singkat khususnya programming menggunakan Visual Basic 6 atau disingkat VB saja
VB adalah bahasa pemrograman visual berbasis desktop / form, sehingga umumnya program2 yg dibuat olehnya berupa Form2 yg berjalan di sistim operasi Microsoft Windows.

 

awalnya VB dibuat dengan bahasa Basic dan ditujukan untuk windows 95/98, dan sempat tidak berjalan / mengalami sedikit kendala di windows 7 service pack 1. Microsoft pun kabarnya sempat akan menyuntik mati VB 6, namun karena banyaknya petisi online yg meminta agar VB dihidupkan kembali, karena berhubung banyaknya program2 baik kecil maupun skala enterprise di-develop oleh VB6 akhirnya Windows 8 kembali full support VB.

VB classic memiliki kesamaan dan perbedaan dengan VB.NET dan VB.NET sendiri sudah berevolusi cukup banyak mulai dari awalnya .NET 2003 , 2005, 2008, 2010 sampai saat ini yaitu VB 2012. tentunya dengan berbagai fitur baru yg sangat melimpah.

namun saat ini saya hanya akan membahas VB Classic yaitu VB6, karena program VB ini bisa dibilang cukup sederhana dan yg PALING SANGAT TERPENTING adalah KECEPATANNYA !, ya betul saudara2, sudah saya rasakan sendiri. bedanya dengan VB.NET, meskipun katanya PC jaman sekarang sudah sangat kencang / cepat karena canggih (sudah sampai Core i7) namun saat men-DEBUG atau istilah kerennya Trace, kecepatan & kesimpelan VB6 masih tidak bisa dikalahkan oleh .NET terbaru sekalipun.

dan saat program dirunning pun, umumnya lebih cepat, mengapa ? ada beberapa faktor yg menjadi penyebab, diantaranya :
1. tidak menggunakan IL (intermediate language) atau bahasa perantara, beda dengan .NET yg jika di-compile akan menjadi IL dulu lalu menjadi .EXE, VB jika dicompile akan langsung menjadi bahasa mesin (.exe) akibatnya computer langsung membaca tanpa harus menterjemahkan terlebih dahulu.
hal ini juga menjadi keuntungan VB 6 karena jika men-crack / decompile .exe maka paling mentok cuma dapet Form nya , sementara code nya berantakan,

beda jika .NET jika tidak di-Encyrpt , maka Class-class.dll yg dicrack akan muncul semua code2 yg pernah kita buat. Dimana hal ini pernah saya lakukan terhadap bekas karyawan yg saya gantikan posisinya, dia membuat program program ASP.NET dengan class.dll yg tidak dia Encrypt dan dia tidak memberikan sourcenya, sementara saya harus melanjutkan pengembangannya, mau tidak mau / suka tidak suka demi keuntungan perusahaan maka saya harus membongkar programnya😦

oklah, kok jadi ngawur / OOT gitu :P  langsung saja to the point
ada beberapa cara mengakses data dengan VB 6 namun saya hanya menggunakan yg paling stabil & cepat saja yaitu dengan ADO (ActiveX Data Object)

cara untuk membaca data menggunakan metode ADO VB 6 adalah :

pertama, add reference dulu berupa library MSADO.dll ke dalam project yg anda buat.
lalu buat form misalnya Form1.frm
lalu tekan F7 untuk masuk ke code-behind nya
Sub Tes ()
‘1. buat Connection String
Dim MainDB As String
MainDB = “Server=myServerAddress;Database=myDataBase;User Id=myUsername;Password=myPassword;
‘2. deklarasikan variabel recordset
Dim RS As New ADODB.Recordset
Set RS = New ADODB.Recordset
‘3. masukan SQL
Dim sql As String
sql = ” SELECT * FROM TABLENAME ”
‘4. buka RS , menggunakan read only dan locking read saja biar cepat
RS.open sql, MainDB, AdOpenForwardOnly, AdLock ReadOnly

‘5. jika RS tidak menghasilkan ada maka keluar dari Sub / Procedure / Function
If RS.EOF Then Exit Sub

‘6. selanjutnya terserah anda😀
‘untuk membaca semua isi tabel bisa melakukan perulangan dengan While.. Wend, For .. Next , atau Do.. Loop. sy lebih suka menggunakan For Next karena sy bisa langsung tahu sudah record ke berapa perulangan terjadi, jika while maka harus di-Immediate dulu untuk melihat nilai i nya.
Dim i%  ‘sama artinya dengan Dim i As Integer
For i = 1 To RS.RecordCount

MsgBox RS.Fields(0)
MsgBox RS!nama_kolom_dari_tabel

RS.MoveNext
Next i

End Sub

MainDB harus diatur sesuai dengan konfigurasi database server anda ya ?🙂
silahkan panggil sub Tes dari program Main anda atau di event Form_Load(), seharusnya jalan🙂 jika tidak, mungkin ada yg salah😀

Form_Load()

Call Tes

End Sub

Terima Kasih sudah membaca:mrgreen:

Make a Comment

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Liked it here?
Why not try sites on the blogroll...

%d blogger menyukai ini: