Diabolist adlı üyeden alıntı: mesajı görüntüle

değerli hocalarım, bunlar tablolarım..

bunların içersindede kolonlar var..
İlk olarak



bu kod ile combobox1 i DERSLER tablosunun DERSADI adlı kolonundan çektiriyorum bu işlem başarılı..

combobox2'ye de OgretimElemani adlı tablomdan ADI adlı kolonu çektirmek istiyorum.. Böyle gidicek bunu yapamadım

Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=Database\database.mdb") 
baglanti.Open() 

Dim komut As New OleDb.OleDbCommand("SELECT DERSADI FROM DERSLER", baglanti) 
Dim komut2 As New OleDb.OleDbCommand("SELECT OGRETIM FROM OgretimElemani", baglanti) 

Dim oku As OleDb.OleDbDataReader 
oku = komut.ExecuteReader() 

While oku.Read() 
ComboBox1.Items.Add(oku("DERSADI")) 
End While 

Dim oku2 As OleDb.OleDbDataReader 
oku2 = komut2.ExecuteReader() 

While oku2.Read() 
ComboBox2.Items.Add(oku("OGRETIM")) 
End While 

baglanti.Close()