Code:
Private Sub Form_Load()
Dim x As Integer
For x = 1 To 50
List1.AddItem x
Next
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DBQ=" & App.Path & "\db1.mdb;DefaultDir=" & App.Path _& " ;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Adodc1.RecordSource = "Tabela1"
Adodc1.Refresh
End Sub
Private Sub List1_Click()
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find Adodc1.Recordset.Fields(0).Name & "='" & List1.ListIndex + _1 & "'"
Form2.Label1.Caption = Adodc1.Recordset.Fields(1).Value
Load Form2
Form2.Show
End Sub
Moras napraviti bazu sa dve kolone.U prvu kolonu stavi redne brojeve od 1-50, a drugu popunis sa odgovarajucim podacima. Ja sam bazu nazvao "db1", a tabelu "Tabela1" (sto se iz prilozenog moze i videti).
[Ovu poruku je menjao krckoorascic dana 14.01.2007. u 21:53 GMT+1]