------------------------------------------------
Imports System.Data
Imports System.Data.OleDb
------------------------------------------------
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbConnection
a.ConnectionString = " Provider=Microsoft.JET.OLEDB.4.0; Data Source=C:mydatabase.mdb"
a.Open()
Dim b As New OleDb.OleDbDataAdapter(" select * from mydatabase", a)
Dim c As New DataSet
b.Fill(c, "mydatabase")
DataGridView1.DataSource = c.Tables("mydatabase")
End Sub
End Class
------------------------------------------------
Not: Kod İcerisindeki Uzantıları Kendinize Gore Duzeltmeyi Unutmayınız.
a.ConnectionString = " Provider=Microsoft.JET.OLEDB.4.0; Data Source=C:mydatabase.mdb" ( Arkadaşlar Burada Databasemizin Nerede Kayıtlı Olduğunu Gosteriyoruz. " mydatabase.mdb " benim kedi databasemin isimi )
Dim b As New OleDb.OleDbDataAdapter(" select * from mydatabase", a) [ Arkadaşlar Burada Databasemi Seciyoruz "mydatabase" Benim kendi databasemin adı ]
b.Fill(c, "mydatabase") [ databasemizi belirtiyoruz. "mydatabase" Benim kendi databasemin adı ]
DataGridView1.DataSource = c.Tables("mydatabase") [ burada tabloları secmek icin databasemizi belirtiyoruz bircok arkadaş c.tables'den sona database adını belirtmiyor boyle olunca program database bağlanıyor fakat okuması icin tablo atanmadığından dolayı boş gosteriyor ]
Herkese Kolay Gelsin Takıldığınız Yerde Belirtiniz.
__________________