Cara Isi Combobox atau listbox menggunakan Class, isi diambil dari Database Dalam Visual Basic 2005/2008

Tuesday, November 16, 2010

Teman-teman apakah kita sering menggunakan Class dalam VB .Net. Class bukan hanya untuk memberikan perintah Simpan,Ubah,Hapus tetapi juga kita bisa mengisi Combobox lewat kelas agar Sourcecode kita rapi. mungkin ketika kita mau mengisi Combobox kita kesulitan harus Coding kembali di Formnya dan tanpa di selesaikan di Class secara langsung.

Pastikan kita sudah paham tentang koneksi ke databse disini menggunakan database SQl Server, table barang Dan cara koneksinya di Menu Utama Jika ada yang menggunakan Microsoft Acses maka hanya ganati saja Oledb mungkin teman-teman sudah tau.

Buat koneksi terlebih dahulu

Buat 1 Form dengan nama form_utama lalu ketikan sourcode seperti berikut ini

Imports System.Data.SqlClient

Imports System.Data

Public Class Form_Utama

Public myConnection As New SqlConnection '

Private Sub Form_Utama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

myConnection = New SqlConnection("server=(local); UID=sa; PWD=; database=example")

myConnection.Open()

Form_login.Show()

Catch ex As Exception

MsgBox("Tidak Dapat Koneksi KeServer")

End Try

End Sub

End Class

Buat satu Class dengan Coding Seperti Berikut Ini

Misal kita mau combobox disi dengan kode barang

Imports System.Data.sql

Imports System.Data

Imports System.Data.SqlClient

Public Class class_brg

Public isi_cmb_brg As New ComboBox

Public Sub isi_kd_bank_di_combobox()

isi_cmb_kd_brg.Items.Clear()

Dim rdr As SqlDataReader

Dim cmd As New SqlCommand

Dim sql As String

sql = "select kd_brg from barang"

cmd = New SqlCommand(sql, Form_Utama.myConnection)

rdr = cmd.ExecuteReader

While rdr.Read = True

isi_cmb_brg.Items.Add(rdr("kd_brg").ToString)

End While

rdr.Close()

End Sub

End Class

Buat 1 Form dan tambahkan object Combobox

Saetelah itu buat source code seperti berikut ini klik di formnya

Imports System.Data.sql

Imports System.Data

Public Class FRM_TS_SPB

Dim kls_brg as new class_brg

Private Sub Form_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

kls_brg. isi_cmb_kd_brg

For i As Integer = 0 To kls_brg. isi_cmb_brg.Items.Count - 1

ComboBox1.Items.add(kls_brg. isi_cmb_brg.Items(i).ToString)

Next

End Sub

End class

Selamat mencoba semoga berhasil




2 comments:

djiesoft team said...

jika menggunakan datasource lebih cepat bos prosesnya.

Agus sutisna said...

ohh...bisa di kasih contohnya ga gan (djiesoft team)