VB.net koduna çevirmek hakkında
Tarih
21/12/2013 20:34
Konu Sahibi
alican60
Yorumlar
7
Okunma
2062
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



alican60
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
116
29/12/2012
0
Tokat
-
Bugün,01:17
Çözüldü 
Aşağıdaki kodu VB.net koduna nasıl çevirebilirim,yardımcı olabilirmisiniz.

Visual Basic Code
Sub Baglanti()
    baglan = CreateObject("adodb.connection")
    baglan.Open "provider=microsoft.jet.oledb.4.0;data source="kayıt.mdb"
    End Sub

Visual Basic Code
 Private Sub ComboBox100_Change()
    Call guncelle(100)
    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
24
25
  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

Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
(21/12/2013, 20:34)alican60 Adlı Kullanıcıdan Alıntı: 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.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


alican60
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
116
29/12/2012
0
Tokat
-
Bugün,01:17
Ö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.
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
(21/12/2013, 22:43)alican60 Adlı Kullanıcıdan Alıntı: Ö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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


alican60
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
116
29/12/2012
0
Tokat
-
Bugün,01:17
Ö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.


Ek Dosyalar
.rar   VB.NET-SORU.rar (Dosya Boyutu: 94,26 KB / İndirme Sayısı: 7)
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
(22/12/2013, 00:19)alican60 Adlı Kullanıcıdan Alıntı: Ö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 Img-cray
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ü ListView1 Listeleme Hakkında drummers 7 1.824 23/05/2015, 12:45 alpeki99
Çözüldü ExecuteReader Fonksiyon Hakkında drummers 2 1.670 30/09/2014, 08:54 drummers
Çözüldü reportviewer hakkında umutakkaya 4 1.505 29/09/2014, 10:24 alpeki99
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.280 04/05/2014, 16:31 umutakkaya
Çözüldü Access Bağlantı Class Hakkında drummers 1 1.967 20/09/2013, 10:07 alpeki99


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