Menampilkan isi tabel pada combobox dengan VB.Net

database yang digunakan yaitu database northwind.. sudah ada otomatis saat menginstall sql server..

tanpa banyak basa basi.. buatlah form seperti gambar dibawah dengan 1 buah combox, 1 buah button dan 1 buah label.


lalu buat coding di berikut :

Imports System.Data.SqlClient
Public Class Form1
Dim x As String
Private cnstr As String = "server=.;user=sa;password=123456;database=northwind"
'Private cnstr As String = "server=.;integrated security=true;database=northwind"

Private Function isian(ByVal sql As String) As DataSet
Dim ds As New DataSet
Dim da As SqlDataAdapter
Using cn As New SqlConnection(cnstr)
Try
cn.Open()
da = New SqlDataAdapter(sql, cn)
da.Fill(ds)
Catch ex As Exception
ds = Nothing
MsgBox(ex.Message)
End Try
End Using
Return ds
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.DataSource = isian("select * from categories").Tables(0)
ComboBox1.DisplayMember = "CategoryID"
ComboBox1.ValueMember = "CategoryName"
ComboBox1.SelectedValue = "CategoryName"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = (ComboBox1.SelectedValue)
End Sub
End Class

atau silahkan download di sini saja
jika membantu tolong di like atau share.. :)