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.

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.