Şekil 3
Form1.vb
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baglan As New OleDb.OleDbConnection
Dim adp As New OleDb.OleDbDataAdapter
Dim komut As New OleDb.OleDbCommand
Dim ds As New DataSet
baglan.ConnectionString = "PROVIDER= Microsoft.Jet.OLEDB.4.0;Data Source=personel.mdb"
baglan.Open()
komut.CommandText = "Select arge.id, arge.Ad, arge.Soyad, arge.Telefon, arge.Departman, satis.id, satis.Ad, satis.Soyad, satis.Telefon, satis.Departman From arge left join satis on arge.id = satis.id"
adp.SelectCommand = komut
komut.Connection = baglan
adp.Fill(ds, "arge")
DataGridView1.DataSource = ds.Tables("arge")
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
1 comments:
hocam 3 tabloyu nasıl bağlayacağız bu yöntemle 3 tablo bağlamaya çalıştığımda sürekli hata mesajı alıyorum ve sorunu çözemedim.
Yorum Gönder