Code:
Set rsDobavljaci = New Recordset
rsDobavljaci.Open "SELECT SifraDobavljaca,Naziv FROM Dobavljaci ORDER BY Naziv", db, adOpenDynamic, adLockOptimistic
If Not (rsDobavljaci.BOF And rsDobavljaci.EOF) Then
Do While Not rsDobavljaci.EOF
With lstSifraDobavljaca
.AddItem rsDobavljaci("Naziv")
.ItemData(.NewIndex) = rsDobavljaci("SifraDobavljaca")
End With
rsDobavljaci.MoveNext
Loop
End If
rsDobavljaci.Close
End Sub
Set rsDobavljaci = New Recordset
rsDobavljaci.Open "SELECT SifraDobavljaca,Naziv FROM Dobavljaci ORDER BY Naziv", db, adOpenDynamic, adLockOptimistic
If Not (rsDobavljaci.BOF And rsDobavljaci.EOF) Then
Do While Not rsDobavljaci.EOF
With lstSifraDobavljaca
.AddItem rsDobavljaci("Naziv")
.ItemData(.NewIndex) = rsDobavljaci("SifraDobavljaca")
End With
rsDobavljaci.MoveNext
Loop
End If
rsDobavljaci.Close
End Sub
Nakon toga vrednost (sifru dobavljaca) upisujem u textBox ovako:
Code:
txtSifraDobavljaca = lstSifraDobavljaca.ItemData(lstSifraDobavljaca.ListIndex)
txtSifraDobavljaca = lstSifraDobavljaca.ItemData(lstSifraDobavljaca.ListIndex)
Dakle, kako ovo izvesti u VB.Net-u?