Hola tengo un list box que cargo asi:
sql = "SELECT DISTINCT Item,Pos FROM Items_Acuerdos ORDER BY Item"
Rs.Open sql, cnn, adOpenDynamic, adLockOptimistic
Do While Rs.EOF = False
lista_item.AddItem Rs.Fields("Item")
Rs.MoveNext
Loop
en el campo POS, tengo el codigo correspondiente al item, y en el campo item la descripcion
mi problema es cuando quiero guardar lo que seleccionan :
yo tengo:
sql = "SELECT * FROM [Acuerdo_Deudas_Item]"
Rs.Open sql, cnn, adOpenDynamic, adLockOptimistic
For c = 0 To lista_item.ListCount
If lista_item.Selected(c) = True Then
Rs.AddNew
Rs!Item = lista_item.Columns(1,c)
Rs.Update
End If
Next c
pero no funciona, en que me estoy equivocando? ayuda please!
saluditos!
