update no adminte comas

[guillebomtrasmiti]

hola amigos, ultimamente no encuentro muchas respuestas a mis preguntas, espero que hoy si, tengo un update que funciona de la siguiente manera, yo le pongo en un textbox lo que debe buscar en la grilla y en otro por que cifra sustituye lo que encuentra, el caso es que si por ejemplo pongo busca (1) y sustituyelo por (2), genial funciona de miedo, pero si le pongo busca 1,1 y sustituyelo por 1,2 me da error ...y es cuando pong una cifra por comas, sabeis por qué=?=
mi código

Public Sub remplazaeuros()
'Try
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = (" & TextRemplazar.Text & ") where NombreFormaPago <> ('TARJETA CREDITO') and Pts =ROUND (Pts <> (" & TextBuscar.Text & ")) 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()
Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
conexion.Close()
'Catch
'End Try
End Sub

[Ka0stj]

No te entendi muy bien, lo que estas buscando es actualizar más de un campo en una sola instrucción?

[guillebomtrasmiti]

me explico mejor, tengo un datagridview dónde cargo varios campos, pero me interesa poder buscar un campo y cambiarlo por otro, no si algún día utilizaste en access 2003 la opción de buscar y reemplazar ... pues si lo hiciste yo busco lo mismo, poder decirle a mi aplicación, busca en la grilla en la columna x el número por ejmplo 2 y remplazalo por el número 3...me expliqué ahora?

[Ka0stj]

Claro, con un simple Update te lo soluciona, es decir, UPDATA TuTabla SET Campo = NuevoValor WHERE CAMPO = ValorBuscado

[guillebomtrasmiti]

ka0stj gracias amigo, tengo que quitarme el sombrero, muchas gracias, me has arreglado lio de trabajo un abrazo...pongo el código por si a alguien le arreglo la vida

Public Sub remplazaeuros()
'Try
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = (" & TextRemplazar.Text & ") where Pts = (" & TextBuscar.Text & ") 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.UpdateCommand = com
conexion.Open()
Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
conexion.Close()
'Catch
'End Try
End Sub

[guillebomtrasmiti]

una pregunta, sabes por qué si pongo una coma me da este error?¿?

Error de sintaxis (coma) en la expresión de consulta '(1,5)'.

[Ka0stj]

Coma en que parte, en la consulta? de ser asi donde?

[guillebomtrasmiti]

arreglado, debe de ser con un punto 1.5 no 1,5 no se por que por que los euros son con coma, pero es lo que hay

[Ka0stj]

Excelente, de igual forma si en las cajas de texto quieres insertar con coma 14,5 lo puedes hacer y antes de enviarselo al update o a la consulta bueno en la parte donde te manda el error hacer un replace por un punto(.), es decir, TextRemplazar.Text.Replace(",",".")

Saludos!

[guillebomtrasmiti]

Public Sub remplazaProducto()
'Try
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Producto = (" & TextRemplazar.Text & ") where Producto = (" & TextBuscar.Text & ") 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.UpdateCommand = com
conexion.Open()
CStr(com.ExecuteScalar()).ToString()
conexion.Close()
'Catch
MessageBox.Show("Los productos no pueden contener comas P,dr...etc")
'End Try
End Sub

ahora quiero cambiar el nombre del producto y me pone este error al ejecutar;
no se han especificado valores para algunos de los parametros requeridos...sabeis pro qué?=

[guillebomtrasmiti]

muy bueno lo de replace, no lo conocía...joer cuanto sabes...muchas gracias por tus aportaciones

[Ka0stj]

Con respecto a tu problema si Producto es de tipo VARCHAR envialo de la siguiente manera:

com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Producto = ('" & TextRemplazar.Text & "') where Producto = ('" & TextBuscar.Text & "') and NombreFormaPago <> ('TARJETA CREDITO')and Fecha BETWEEN @FI AND @FF"

De la misma forma en que envias 'TARJETA CREDITO' con comillas simples.

[guillebomtrasmiti]

Oye muchas gracias por todo, acabo de terminar el proyecto gracias a tu último aporte, no lo hubiera sacado en la vida no sabía que había que poner comillas simples en los casos de varchar...muy amable pongo el código para quien le pueda ayudar...

Public Sub remplazaProducto()
Try
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Producto = ('" & TextRemplazar.Text & "') where Producto = ('" & TextBuscar.Text & "') 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.UpdateCommand = com
conexion.Open()
com.ExecuteScalar()
conexion.Close()
Catch
MessageBox.Show("Compruebe si los datos que ha introducido coínciden al completo con lo esperado")
End Try
End Sub

[Ka0stj]

No te preocupes en este foro todos aprendemos de todos.

Saludos!