Cita: Esto es lo que yo habia puesto originalmente pero no me funciono :(
Hola laulaurys, fijate bien porque no es igual, vos haces uso de
Rs!Item, esto no siempre funciona en Visual Basic 6, aunque si en Visual Basic para Aplicaciones, en VB6 tenes que sustituir eso por
Rs.Fields("Item").
Respecto a tu ultimo post porque no podes hacer rs.Open, ¿te da algun error o que?, yo te recomendaria que crees otro Recordset y que en ese hagas el SELECT que necesitas, se me ocurre esto:
Código:
sql = "SELECT * FROM [Acuerdo_Deudas_Item]"
rs.Open sql, cnn, adOpenDynamic, adLockOptimistic
For c = 0 To lista_item.ListCount
If lista_item.Selected(1) = True Then
rs.AddNew
rs.Fields("Id_Contratista") = id_proveedor
rs.Fields("ID_Siderca") = ID_Siderca
campo = lista_item.List(c)
Sql2 = "SELECT Pos FROM [Acuerdo_Deudas_Item] WHERE Item='" & campo & "'"
rs2.Open Sql2, cnn, adOpenDynamic, adLockOptimistic
rs.Fields("Item") = lista_item.Selected(1)
rs.Update
End If
Next c
rs.Close
Set rs = Nothing
rs2.Close
Set rs2 = Nothing Lo que cambia de tu codigo es lo que esta en Negrita.
