Skip to main content

AccessTr.neT


Adodc kontrol SQL kullanımı

Adodc kontrol SQL kullanımı

Çözüldü #1
Arkadaşlar; Visual Basic de Access veri tabanını kullanarak bir proje yapmaya çalışıyorum. Access te alandal isim li bir tablo ve tabloda da alan ve dal diye iki alan var. DataCombo1 de Alanları "SELECT T004_AlanDal.alanid FROM T004_AlanDal GROUP BY T004_AlanDal.alanid;" kodu ile gruplayarak aldırıyorum. DataCombo2 de de o alana ait dalları almak istiyorum ancak bir türlü aldıramadım. DataCombo2 ye ait Adodc ye nasıl bir Sql kodu yazmalıyım. Yardımlarınız için şimdiden teşekkürler.
Cevapla
Çözüldü #2
Sn:ynlmz
Yazdıklarınızdan pek birşey anlaşılmıyor lütfen örnek ekleyiniz.Eğer yapmak istediğiniz örneklersek bir tabloda iller diger tabloda o illere ait ilçeler gibi ise İl İlçe olarak artırsanız sitemizde örnekleri mevcut.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #3
Eğer doğru anladım ise combobox1 den bişey seçince combobox2 de ona bağlı verilerin listelenmesini isiyorsun. eğer öyle ise örnek kod şunlar

Private Sub ilDoldur1()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veritabanının ismi'")
Dim veriler As New DataTable("iller")
Dim adapter As New OleDbDataAdapter("select * from iller order by il_ad", baglanti)
adapter.Fill(veriler)
ComboBox1.ValueMember = "il_id"
ComboBox1.DisplayMember = "il_ad"
ComboBox1.DataSource = veriler
baglanti.Close()

End Sub
Private Sub ilcedoldur1()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veritabanının ismi'")
Dim veriler As New DataTable("iller")
Dim adapter As New OleDbDataAdapter("select * from ilceler where il_id=" & Me.ComboBox1.SelectedValue & " order by ilce_ad", baglanti)
adapter.Fill(veriler)
ComboBox2.ValueMember = "ilce_id"
ComboBox2.DisplayMember = "ilce_ad"
ComboBox2.DataSource = veriler
baglanti.Close()
End Sub


Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ilcedoldur1()
End Sub
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Sayın oğulcan sizin yazınıza cevap veremedim. Kusura bakmayın. Sayın drummers hocam size de ilginizden ve cevabınızdan dolayı çooook teşekkür ederim. Ellerine sağlık
Son Düzenleme: 19/12/2012, 00:19, Düzenleyen: ynlmz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task