sid
03 de Febrero del 2006

buenas!!! quisiera saber si alguien puede ayudarme con vb y acces! mi problema es el siguiente! no se como hacer para sumar un registro ya guardaddo en la base de datos!!! es decir! si tengo 5 cajas en existencia (guardadas en acces) y compreo 10 como hago para sumarlas a las otras 5.... muy agrdecido de antemano!!!!

Rosa
03 de Febrero del 2006

Este código actualiza tu campo de existencias con el valor que le pases:

Dim cn As ADODB.Connection
Dim cm As ADODB.Command

Set cn = New ADODB.Connection
With cn
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source = c:Datos.mdb"
End With
cn.Open

Set cm = New ADODB.Command
sql = "UPDATE Tabla SET Existencia = Existencia + " & Valor
Set cm.ActiveConnection = cn
cm.CommandType = adCmdText
cm.CommandText = sql
cm.Execute

Set cm = Nothing
cn.Close
Set cn = Nothing