14/08/2011, 17:39
|
| | Fecha de Ingreso: noviembre-2010 Ubicación: madrid
Mensajes: 478
Antigüedad: 13 años, 11 meses Puntos: 5 | |
Respuesta: Update en un textbox arreglado
a = CInt((Val(row.Cells(11).Value)))
Textpruebafinal.Text = CStr(a)
com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = ('" & Textprueba.Text & "') Where IdComanda = (" & a & ") and NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF"
com.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
com.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))
adapt.SelectCommand = com
conexion.Open()
com.ExecuteNonQuery()
conexion.Close() |