21/02/2012, 16:03
Private Sub Listele(ByVal Sql As String)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'") 'Veritabanımızın yerini belirtiyoruz.
Dim veriler As New DataTable("data")
Dim adapter As New OleDbDataAdapter(SQL, baglanti)
adapter.Fill(veriler) 'buradaki veriler oluşturduğumuz sanal tablo.
DataGridView1.DataSource = veriler 'veri tabanından gelen kayıtları DataGridView'e aktarıyoruz .
End Sub
Private Sub doldur()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
baglanti.Open()
Dim komut As New OleDb.OleDbCommand("SELECT firmaad FROM data ORDER BY firmaad", baglanti)
Dim oku As OleDb.OleDbDataReader
oku = komut.ExecuteReader()
baglanti.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
Listele("Select * from data inner join ortak on data.firmaad = ortak.datafirmaad")
doldur()
End Sub
Listele("Select * from data inner join ortak on data.firmaad = ortak.datafirmaad")
Bu kodlarla "data" ve "ortak" tablolarımı bağlayıp DataGridView1 de gösteriyorum. Benim isteğim bu koda ek olarak "kira" ekleyip DataGridView1 de göstermesi.
Teşekkürler...