Sentencia UPDATE.!.. No funciona :(

[DavidNovato]

Buenos dias, Gente! jaja

Aqui tngo un problemita con una sentencia update.. les dejo el codigo para que lo chequeen y puedad ayudarme a encontrar el problema .

Código vb:

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim actualizado As New MySqlCommand
        Dim cantidaddis As String = TextBox2.Text
        Try
            actualizado.Connection = conexion
            actualizado.CommandText = ("UPDATE producto SET cantidad_disponible=" & Convert.ToDouble(cantidaddis) & "WHERE id_producto=" & Convert.ToDouble(cboproducto2.SelectedValue.ToString) & "")
            conexion.Open()
            actualizado.ExecuteNonQuery()
            MsgBox("El registro fue actualizado", MsgBoxStyle.Exclamation)
        Catch ex As MySqlException
            MsgBox("No se logró actualizar el registro", MsgBoxStyle.Critical)
        End Try
 
 
    End Sub
 

Al darle al Boton se ejecuta el Catch es As MySqlExeception.. :S

PD: Trabajo cn WindowsForms y BD Mysql

[AndyDroid]

Hola

Primero, esta sentencia tiene la palabra WHERE pegada a tu cantidad doble

Código vb:

actualizado.CommandText = ("UPDATE producto SET cantidad_disponible=" & Convert.ToDouble(cantidaddis) & "WHERE id_producto=" & Convert.ToDouble(cboproducto2.SelectedValue.ToString) & "")
 

Dale un espacio para que se delimite:

Código vb:

actualizado.CommandText = ("UPDATE producto SET cantidad_disponible=" & Convert.ToDouble(cantidaddis) & " WHERE id_producto=" & Convert.ToDouble(cboproducto2.SelectedValue.ToString) & "")
 

segundo, me parece(no las he utilizado) que las cantidades double's van con apostrofe... es decir(en el SET y en el filtro WHERE)

Código vb:

actualizado.CommandText = ("UPDATE producto SET cantidad_disponible='" & Convert.ToDouble(cantidaddis) & "' WHERE id_producto='" & Convert.ToDouble(cboproducto2.SelectedValue.ToString) & "'")
 

[DavidNovato]

Hey.! Muchas Gracias ya funciona correctamente.!! Saludos...

[DavidNovato]

Buenas..! tengo otro problema con el mismo tema...

Aqui le dejo el codigo que tngo (funciona correctamente), lo cambie un poco al primero q postie xq lo coloque en otro forms y el anterior m daba error.. pero repito este codigo funciona correctamente.

Código vb:

Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim actualizado As New MySqlCommand
        Dim NombreCliente As String = txtmnc.Text
 
        Try
            actualizado.Connection = conexion
            actualizado.CommandText = ("UPDATE cliente SET nombre='" + NombreCliente + "' WHERE id_cliente=" + cbocliente3.SelectedValue.ToString)
            conexion.Open()
            actualizado.ExecuteNonQuery()
            MsgBox("El registro fue actualizado", MsgBoxStyle.Exclamation)
        Catch ex As MySqlException
            MsgBox("No se logró actualizar el registro", MsgBoxStyle.Critical)
        End Try
 

Mi duda es: Como hago para realizar otra sentecnia UPDATE, ya que en el forms es d modificacion.. y tngo que modificar 2 tablas distintas..

La otra linea seria esta :

Código vb:

("UPDATE sede SET nombre='" + NombreSede + "' WHERE id_sede=" + cbosede3.SelectedValue.ToString)
 

He intentado d todo, algunos intentos daban error.. y otros se ejecuataba el Catch ex As MySqlException
MsgBox("No se logró actualizar el registro", MsgBoxStyle.Critical

[AndyDroid]

La verdad no entendí qué es lo que necesitas hacer... pero te puede servir que en el mensaje de error agregues ex.Message

Código vb:

MsgBox("No se logró actualizar el registro." & vbCrLf & "Error: " & ex.Message, MsgBoxStyle.Critical
 

[DavidNovato]

Lo que quiiero es realizar varios update.!!

[AndyDroid]

Así???

Código vb:

Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim actualizado As New MySqlCommand
        Dim NombreCliente As String = txtmnc.Text
 
        Try
            Dim strSQL As String = "UPDATE cliente SET nombre='" + NombreCliente + "' WHERE id_cliente=" + cbocliente3.SelectedValue.ToString & "; UPDATE sede SET nombre='" + NombreSede + "' WHERE id_sede=" + cbosede3.SelectedValue.ToString
            actualizado.Connection = conexion
            actualizado.CommandText = (strSQL)
            conexion.Open()
            actualizado.ExecuteNonQuery()
            MsgBox("El registro fue actualizado", MsgBoxStyle.Exclamation)
        Catch ex As MySqlException
            MsgBox("No se logró actualizar el registro", MsgBoxStyle.Critical)
        End Try
 

[DavidNovato]

Sii justo algo asi.. pero sigue ejecutandose el Catch

[AndyDroid]

Has esto:

1.- Checa que la sentencia que se ejecuta en tiempo real, tiene valores y los que quieres(no haya campos vacios)

Mansa un msgbox con la variable strSQL para que veas que las sentencias UPDATE esten bien antes de que se ejecute

2.- Revisa cual es el error que te envia la excepcion, eso ayuda mucho

[DavidNovato]

El error que m envia es este.. " Unknown column 'System.Data.DataRowView' in 'Where clause'..

Y las sentencias funcionan bien.. porq si substituyo un sentencia con otra las 2 hacen el cambio en la base de datos... El problema esta al momento de ponerlas als 2 juntas.. o de tratar que se ejecuten las 2.. m entiendes?

[cv9955]

Usando Parametros evitas muchos de estos problemas, y para el caso que dos update juntos tene en cuenta el uso de TRANSACCIONES, o manejalo con procedimientos almacenados del lado servidor

[cristiantorres]

En efecto lo mas adecuado seria usar procedimientos almacenados o transacciones

[DavidNovato]

Que quieren decir cn eso??? :S