Visual Basic.NET - Error en modificación

 
Vista:
sin imagen de perfil
Val: 9
Ha disminuido su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error en modificación

Publicado por Pinky (110 intervenciones) el 23/12/2009 15:42:28
Hola amigos del foro, disculpe que los moleste nuevamente pero soy nuevo en VB.Net, tengo un problema al momento de modificar los datos, a continuación muestro el código que estoy utilizando.
Protected Sub CMDMODIFICAR_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMDMODIFICAR.Click
Dim sql2 As New SqlClient.SqlCommand("UPDATE Proveedores set Nombre_Proveedor='" + TXTNOMBRE.Text + "',Direccion_Proveedor='" + TXTDIRECCION.Text + "',Actividad_Proveedor='" + TXTACTIVIDAD.Text + "',Fax_Proveedor='" + TXTFAX.Text + "',Comuna_Proveedor='" + TXTCOMUNA.Text + "',Ciudad_Proveedor='" + TXTCIUDAD.Text + "',Contacto_Proveedor='" + TXTCONTACTO.Text + "',Fono_Proveedor='" + TXTFONO.Text + "',Mail_Proveedor='" + TXTMAIL.Text + "' where Rut_Proveedor = " & TXTRUT.Text, conn)

Try
sql2.ExecuteNonQuery()
MsgBox("Datos modificados satisfactoriamente", MsgBoxStyle.Information, "Sistema")
Catch ex As Exception
MsgBox(ex.Message)
End Try
Nuevo()
End Sub
hago mención que en una sola linea declaro los campos que se pueden modificar, el error esta en el ejecutar la modificación dice lo siguiente "incorrect syntax near'130'", lo otro habrá otra posibilidad de declarar los campos de otra forma y no en una sola linea, favor de ayudarme desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:Error en modificación

Publicado por kdlc (69 intervenciones) el 23/12/2009 21:17:40
Dim sSQL as string = _
"UPDATE Proveedores set Nombre_Proveedor='" & TXTNOMBRE.Text & "',Direccion_Proveedor='" & TXTDIRECCION.Text & "',Actividad_Proveedor='" & TXTACTIVIDAD.Text & "',Fax_Proveedor='" & TXTFAX.Text & "',Comuna_Proveedor='" & TXTCOMUNA.Text & "',Ciudad_Proveedor='" & TXTCIUDAD.Text & "',Contacto_Proveedor='" & TXTCONTACTO.Text & "',Fono_Proveedor='" & TXTFONO.Text & "',Mail_Proveedor='" & TXTMAIL.Text & "' where Rut_Proveedor = " & TXTRUT.Text

Debug.print sSQL '<-- pon un breakpoint aqui y revisa que tu sSQL este bien construido...

Dim sql2 As New SqlClient.SqlCommand(sSQL, conn)

Saludos Compadrito...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar