İl İlçe Seçiminde Hata
Tarih
29/01/2012 23:07
Konu Sahibi
drummers
Yorumlar
6
Okunma
2240
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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


goodfalles
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
306
11/12/2008
İstanbul
Ofis 2007
17/11/2014,04:14
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
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
    

Visual Basic Code
1
2
3
4
5
6
7
8
9
  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
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
cbIl
cbIlce

buralarda hata verdi
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


goodfalles
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
306
11/12/2008
İstanbul
Ofis 2007
17/11/2014,04:14
Çözüldü 
senin combo1 ve combo2 yi isimlerini değiştir

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

Visual Basic Code
 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


goodfalles
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
306
11/12/2008
İstanbul
Ofis 2007
17/11/2014,04:14
Çözüldü 
tam hellerini yazayım : )

Visual Basic Code
Private Sub doktorkayit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 ilDoldur()
 End Sub

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
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
 

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


Visual Basic Code
1
2
3
4
5
6
7
8
 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


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü VB veri tabanı güncellemede hata hatice.haa 2 624 30/05/2015, 21:02 hatice.haa
Çözüldü Silme işleminde hata alıyorum cix06 2 2.058 29/08/2014, 11:30 cix06
Çözüldü ComboBox İl İlçe Seçimi drummers 1 2.359 22/07/2014, 22:06 drummers
Çözüldü Form2 içinde ComboBox4 (cinsiyet verisi) veri girdiğimde hata veriyor mtaser 1 1.102 25/06/2014, 17:54 alpeki99
Çözüldü komut nesnesi.ExecuteNonQuery() hata veriyor silme işlemi gerçekleşmiyor mtaser 3 2.011 19/06/2014, 09:58 mtaser


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya