+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Adodc kontrol SQL kullanımı (/konu-adodc-kontrol-sql-kullanimi.html)
Adodc kontrol SQL kullanımı - ynlmz - 15/12/2012
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.
Cvp: Adodc kontrol SQL kullanımı - ogulcan92 - 17/12/2012
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.
Cvp: Adodc kontrol SQL kullanımı - drummers - 18/12/2012
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
Cvp: Adodc kontrol SQL kullanımı - ynlmz - 18/12/2012
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