HOLA AMIGOS, ESPERO ME PODAIS AYUDAR?¿?, TENGO ESTO
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand
com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (Pts *(" & TxtPorcentaje.Text & "/100),2) where NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF"
' com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (Pts *(" & TxtPorcentaje.Text & "/100),2) where 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"))
'com.Parameters.AddWithValue("@id", (DgTotales..Cells(1).Value))
adapt.SelectCommand = com
conexion.Open()
Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
conexion.Close()
FUNCIONA DE VICIO...LO DEJO POR SI ALGUIÉN LO QUIERE USAR, PERO MI PREGUNTA ES...COMO PUEDO HACER PARA NO EJECUTARLO ... QUE SIMPLEMENTE EL RESULTADO LO PONGA EN UN TEXTBOX PERO QUE NO MODIFIQUE NADA DE NADA...QUE TODO QUEDE COMO ESTABA ANTES DE EJECUTARLO?