loading...

loading...

Share Kali ini masih sederhana , Dimana saya mau berbagi cara Menampilkan data dari database ke ComboBox Vb.net , Jadi Kawan tak perlu lagi insert2 data ke combobox secara manual lagi.

Hal Pertama Adalah buka Vb.Net dan buat Projectnya , kemudian buatlah designnya dan masukan toolbox2 nya. Saya asumsikan kawan sudah membuat itu.

do1 do2 do3

Ok Seperti Biasa saya selalu anjurkan kawan2 untuk membuat sebuah class atau modul untuk koneksi ke database dan membuat variabel public.

Kita buat Modul Koneksi dengan nama Mdl_Koneksi

Imports System.Data.Odbc
Imports System.Data.SqlClient
Module KONEKSI
Public conn As OdbcConnection
Public da As OdbcDataAdapter
Public ds As DataSet
Public cmd As OdbcCommand
Public dr As OdbcDataReader
Public str As String
Public Sub BukaDB()
Try
conn = New OdbcConnection("DSN=db_inventory_hosting;MultipleActiveResultSets=True")
If conn.State = ConnectionState.Closed Then
conn1.Open()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Module

#Ket : Koneksi saya menggunakan Odbc dimana ODBCnya saya koneksikan ke database MYSQL , untuk kawan2 silahkan buat dan implementasikan sendiri , intinya agar database bisa terkoneksi dengan vb

kemudian bikin lagi sub function dengan nama GetListCustomer karena saya mau menampilkan data customer dari database ke Combobox.

Sub GetListCustomer()
Call BukaDB()
cmd = New OdbcCommand("Select * from tbl_customer Where IsLock ='0' ", conn)
dr = cmd.ExecuteReader
CmbCustomer.Items.Clear()
Do While dr.Read
CmbCustomer.Items.Add(dr("CustomerName"))
Loop
End Sub

#Ket: Call BukaDB adalah Function Koneksi yang di buat pada mOdul
: CmbCustomer adalah Nama ComboBoxnya
: Do While dr.read kemudian cmbCustomer.items.add(dr(“CustomerName”)) Maksudnya dia melakukan Looping untuk memasukan data dari field CustomerName dan di masukan ke dalam CmbCustomer dengan cara looping.

kemudian kita buat Codingan untuk memanggil Function getListCustomer pada FormLoad , disini nama formnya Delivery Order ,

Private Sub DeliveryOrder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call GetListCustomer()
End Sub

Ok Coba runing Project kalian ,
Semoga Membantu

 

Cara Get Data From Database To ComboBox Vb.Net
Share This
FacebookTwitterGoogle+WhatsAppEmailPrintFriendly
loading...

Post navigation


Leave a Reply

Your email address will not be published. Required fields are marked *