Programalama > VISUAL BASIC

forma bi tane data nesnesi bi tane de list kutusu ekleyin.


Private Sub Form_Activate()
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
List1.AddItem (Data1.Recordset![mallar])
Data1.Recordset.MoveNext
Loop
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\sabit.mdb"
Data1.RecordSource = "tbl_stok"
End Sub


'''''''sunasoft@hotmail.com
''''''''www.sezginweb.com