Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='turkiye.mdb'") 'Veritabanımızın yerini belirtiyoruz.
Dim sorgu As New OleDbCommand("SELECT * FROM il ORDER BY il_id", baglanti)
Dim oku As OleDbDataReader = Nothing
baglanti.Open()
oku = sorgu.ExecuteReader()
ComboBox1.Items.Clear()
While oku.Read()
ComboBox1.Items.Add(oku("il_ad").ToString())
End While
oku.Close()
baglanti.Close()
Catch
MessageBox.Show("iller listelenemedi.")
End Try
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Try
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='turkiye.mdb'") 'Veritabanımızın yerini belirtiyoruz.
ComboBox2.Items.Clear()
Dim komuturundoldur As New OleDbCommand("SELECT * FROM ilce WHERE il_id like'" & (ComboBox2.SelectedIndex + 1) & "'", baglanti)
Dim oku As OleDbDataReader = Nothing
baglanti.Open()
oku = komuturundoldur.ExecuteReader()
While oku.Read()
ComboBox2.Items.Add(oku("ilce_ad").ToString())
End While
oku.Close()
baglanti.Close()
Catch
MessageBox.Show("Ylçeler Syralamady", "Hata", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Yukarıdaki kod ile Combobox1 e illeri alıyorum fakat Combobox2 ye illeri alamadım ve sebebinide anlamadım.
İştediğim Combobox1 den il seçilince Combobox2 de o ilin ilçelerinin listelenmesi
Teşekkürler
