Programalama > VISUAL BASIC

Dim baglanti
Dim oku

Private Sub Command1_Click()
For i = 1 To 12
Label1(i).Caption = oku("ad")
Picture1(i).Picture = LoadPicture(Label1(i))
oku.MoveNext
Next i
End Sub

Private Sub Form_Load()
On Error Resume Next
Set baglanti = OpenDatabase("veri.mdb")
Set oku = baglanti.OpenRecordset("select * from Tablo1")
oku.MoveFirst
For i = 1 To 12
Label1(i).Caption = oku("ad")
Picture1(i).Picture = LoadPicture(Label1(i))
oku.MoveNext
Next i
End Sub