[attachment=22075 yazdı: sokrates11 pid='123164' dateline='1423956375']Merhabalar. VB6'da Bir Sözlük Programı projesi oluşturdum. Şimdi bu projemi VB 2010' taşımak istiyorum. Ancak epey fark var ikisi arasında.
Sorum Şu: accsess veri tabanından kod ile menüde "Aktif Sözlük Seç" menüsüne verileri nasıl getirebilirim.


vb6 kodları:

Kod:

baGlan
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from aktif", veritabani, adOpenDynamic, adLockOptimistic
sayi = rs.RecordCount


If rs!aktifmi = True Then
aktif = rs!Caption
End If

   
Dim i As Integer
       For i = 1 To sayi * 2
           Load mnuSubitem(i)
           
           If (i Mod 2) = 0 Then
               mnuSubitem(i).Caption = "-"
           Else
               
               mnuSubitem(i).Caption = rs.Fields(3).Value
               rs.MoveNext
               
           End If
           
           
       Next
mnuSubitem(0).Visible = False
Unload mnuSubitem(sayi * 2)

Veritabanı ve Form Yapısı



Yukarıdaki vb6 kodlarını vb 210' da nasıl yapabiliriz..
Teşekkürler....