Accessteki sorguyu datagridview’de Gösterme Vb.Net

Accessteki sorguyu datagridview’de Gösterme Vb.Net

 

projemizin bin-debug klasöründe data isminde bir access(2007) dosyası oluşturuyoruz.yukarıdaki tabloyu oluşturup ogrbil isminde kaydediyoruz.  

Alan türleri

id–>otomatik sayı

ad-soyad-sınıf–>metin

 

Yukarıdaki sorguyu oluşturup sorgu isminde kaydediyoruz.Aşağıdaki formu oluşturuyoruz.

Not :  Eğer access dosyasını 2003’te oluşturuyorsanız Microsoft.Ace.Oledb.12.0 yerine Microsoft.Jet.Oledb.4.0 yazıyoruz.

 

[code lang=”vb”]Imports System.Data.OleDb ‘www.gorselprogramlama.com

Public Class Form1

Dim bag As New OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0;Data Source=data.accdb")

Dim kmt As New OleDbCommand() ‘www.gorselprogramlama.com

Dim dt As New DataTable()

Dim adtr As New OleDbDataAdapter()

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

kmt.Connection = bag ‘www.gorselprogramlama.com

kmt.CommandType = CommandType.StoredProcedure

kmt.CommandText = "sorgu"

Dim adtr As New OleDbDataAdapter(kmt)

bag.Open()

adtr.Fill(dt) ‘www.gorselprogramlama.com

dataGridView1.DataSource = dt

bag.Close()

End Sub

End Class’www.gorselprogramlama.com

[/code]

Dosyayı İNDİR