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)Yukarıdaki vb6 kodlarını vb 210' da nasıl yapabiliriz..
Teşekkürler....
