AccessTr.neT

Aşağıdaki kodu VB.net koduna nasıl çevirebilirim,yardımcı olabilirmisiniz.

Sub Baglanti()

    baglan = CreateObject("adodb.connection")

    baglan.Open "provider=microsoft.jet.oledb.4.0;data source="kayıt.mdb"

    End Sub

 Private Sub ComboBox100_Change()

    Call guncelle(100)

    End Sub

  Sub guncelle(nesne As Integer) ' comboboxtan comboboxa veri aktarma kodu ( bağlantılı combobox )

    On Local Error Resume Next

    Dim alan, s

    For i = 100 To 103

    If i <> nesne Then

    alan = Controls("ComboBox" & i).Tag

    s = "select " & alan & " from [Kayitlar] where not isnull(" & alan & ")"



    If ComboBox100.Text <> "" Then s = s & " and [TckimlikNo] like '" & ComboBox100.Text & "%'"

    If ComboBox101.Text <> "" Then s = s & " and [BabaAdi]    like '" & ComboBox101.Text & "%'"

    If ComboBox102.Text <> "" Then s = s & " and [Ogrencino]  like '" & ComboBox102.Text & "%'"



    s = s & " group by " & alan



    baglan = CreateObject("adodb.connection")

    rs = CreateObject("adodb.recordset")

    Call Baglanti()

    rs.Open(s, baglan, 1, 1)



    If rs.RecordCount > 0 Then

    Controls("ComboBox" & i).Column = rs.getrows

    End If

    End If

    Next i

    End Sub

(21/12/2013, 20:34)alican60 yazdı: [ -> ]Aşağıdaki kodu VB.net koduna nasıl çevirebilirim,yardımcı olabilirmisiniz.

Zaten vb.net kodu değilmi bu ?

Ne yapmak istiyorsun ou yaz, yardımcı olmaya çalışalım.

Ömür Bey bu kodu vb da kullanıyorum,comboboxlardan veri seçince diğer comboboxlara ilgili veriyi getirtiyorum ama vb.nette kullanamadım,yardımcı olursanız sevinirim.

(21/12/2013, 22:43)alican60 yazdı: [ -> ]Ömür Bey bu kodu vb da kullanıyorum,comboboxlardan veri seçince diğer comboboxlara ilgili veriyi getirtiyorum ama vb.nette kullanamadım,yardımcı olursanız sevinirim.

Hangi comboya veriyi nerden çekecen, çekilince ne yapmak istiyorsun. Yani olayı tam yaz veya mrnek ekle ona göre bakalım. Yazdıklarından bir soru cümlesi çıkmıyor...

Tek tek yaz yapalım

Örnek dosyayı ekledim,örnek dosyada filtreleme yapacak comboboxlar 3 tane(buna göre uyarlayacağım asıl projemde 12 tane).Aslında comboboxtan comboboxa veri aktarabiliyorum ama combobox sayısı asıl projemde 12 tane olunca kodlar karışıyor.

(22/12/2013, 00:19)alican60 yazdı: [ -> ]Örnek dosyayı ekledim,örnek dosyada filtreleme yapacak comboboxlar 3 tane(buna göre uyarlayacağım asıl projemde 12 tane).Aslında comboboxtan comboboxa veri aktarabiliyorum ama combobox sayısı asıl projemde 12 tane olunca kodlar karışıyor.

2012 kurulu değil bende