Comboboxta Veritabanındaki Verilerin Gösterimi

Combobox nesnesinde Nortwind veritabanında bulunan Customers tablosundaki CustomerID sütunundaki dataların gösterimini sağlayacağız.

Şekil 1

Form1.vb

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

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

        Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Northwind.mdb;")

        Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select CustomerID,CompanyName,ContactName,Address,City From Customers", baglan)

        Dim ds As DataSet = New DataSet()

        baglan.Open()

        da.Fill(ds)

        'Tabloyu alıyoruz.

        Dim dt1 As Data.DataTable

        dt1 = ds.Tables(0)

        'Tablodaki CustomerID sütunundaki

        'verileri combobox a aktarıyoruz.

        For Each dr As DataRow In dt1.Rows

            ComboBox1.Items.Add(dr.Item("CustomerID"))

        Next

        baglan.Close()

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN.