Skip to main content

AccessTr.neT


İl İlçe Seçiminde Hata

İl İlçe Seçiminde Hata

Çözüldü #1

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


Ek Dosyalar
 il.rar(643.97 KB)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
inceleyemiyorum ama bende şu şekilde 

Private Sub ilDoldur()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='access.mdb'")
Dim veriler As New DataTable("il")
Dim adapter As New OleDbDataAdapter("select * from tblil order by il", baglanti)
adapter.Fill(veriler)
cbIl.ValueMember = "id"
cbIl.DisplayMember = "il"
cbIl.DataSource = veriler
End Sub

Private Sub ilceDoldur()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='access.mdb'")
Dim veriler As New DataTable("ilce")
Dim adapter As New OleDbDataAdapter(String.Format("select * from tblilce where il_ID={0}", cbIl.SelectedValue.ToString), baglanti)
adapter.Fill(veriler)
cbIlce.DataSource = veriler
cbIlce.DisplayMember = "ilce"
End Sub

form load olayına il doldur yapacaksın yani combo1 combo1in SelectedIndexChanged olayınada ilcedoldur yapacaksın bende bu şekilde çalışıyor
Son Düzenleme: 30/01/2012, 00:14, Düzenleyen: goodfalles.
Cevapla
Çözüldü #3
cbIl
cbIlce

buralarda hata verdi
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
senin combo1 ve combo2 yi isimlerini değiştir

ve kendi Access dosyana göre değiştir alanları

 Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='KENDİDOSYAADINI.mdb'")
Dim veriler As New DataTable("il")
Dim adapter As New OleDbDataAdapter("select * from KEDNİTABLOADINI order by KENDİİLALANADINI", baglanti)
Cevapla
Çözüldü #5
tam hellerini yazayım : )
Private Sub doktorkayit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ilDoldur()
End Sub
Private Sub ilDoldur()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='access.mdb'")
Dim veriler As New DataTable("il")
Dim adapter As New OleDbDataAdapter("select * from tblil order by il", baglanti)
adapter.Fill(veriler)
cbIl.ValueMember = "id"
cbIl.DisplayMember = "il"
cbIl.DataSource = veriler
End Sub

Private Sub cbIl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbIl.SelectedIndexChanged
ilceDoldur()
End Sub

 Private Sub ilceDoldur()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='access.mdb'")
Dim veriler As New DataTable("ilce")
Dim adapter As New OleDbDataAdapter(String.Format("select * from tblilce where il_ID={0}", cbIl.SelectedValue.ToString), baglanti)
adapter.Fill(veriler)
cbIlce.DataSource = veriler
cbIlce.DisplayMember = "ilce"
End Sub
Cevapla
Çözüldü #6
Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task