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:
jika menggunakan datasource lebih cepat bos prosesnya.
ohh...bisa di kasih contohnya ga gan (djiesoft team)
Post a Comment