Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/07/2008, 17:19
Analyzer
 
Fecha de Ingreso: febrero-2005
Mensajes: 37
Antigüedad: 20 años, 2 meses
Puntos: 0
VB 2005 + MySQL Editar datos

Buenas gente:
Como veis sigo a vueltas con vb 2005 + mysql, otros se que se echarían para atrás y pasarían a usar SQL, pero creo que es lo que más me motiva que hay poquita información y se complican algo más las cosas.

Os cuento el problema que me surge ahora:

Tengo un DatagridView que al hacer doble click en una de las filas me abre un formulario con los datos de un cliente.

Para cargar los datos en el formulario, lo hago de la siguiente manera:

Código:
editarcliente.TextBoxNombre.Text = DataGridView1.Rows(e.RowIndex).Cells(9).Value.ToString()
 editarcliente.Show()
Esto lo tengo dentro de la propiedad DataGridView1_CellDoubleClick

Ahora al abrir el formulario:

Tengo un botón para guardar los datos y el código del mismo es el siguiente:

Código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Creamos la conexión con el servidor
        Dim oConexion As New MySqlConnection()
        oConexion.ConnectionString = "Server=localhost;Database=pruebas;Uid=probador;Pwd=probando"
        Dim da As MySqlDataAdapter = New MySqlDataAdapter()
        Dim cmd As MySqlCommand
        ' Create the SelectCommand.
        cmd = New MySqlCommand("SELECT * FROM clientes WHERE id_cliente=@id ", oConexion)
        cmd.Parameters.Add("@Nombre", MySqlDbType.VarChar, 50)
        cmd.Parameters.Add("@Clave", MySqlDbType.VarChar, 45)
        da.SelectCommand = cmd
        ' Create the UpdateCommand.
        cmd = New MySqlCommand("UPDATE clientes SET Nombre=@Nombre, Clave=@Clave WHERE id_cliente=@id_cliente", oConexion)
        cmd.Parameters.Add("@Nombre", MySqlDbType.VarChar, 50)
        cmd.Parameters("@Nombre").Value = TextBoxNombre.Text
        cmd.Parameters.Add("@Clave", MySqlDbType.VarChar, 45)
        cmd.Parameters("@Clave").Value = TextBoxClave.Text
        cmd.Parameters.Add("@id_cliente", MySqlDbType.Int16)
        cmd.Parameters("@id_cliente").Value = TextBox1.Text


        da.UpdateCommand = cmd
    End Sub
Al pulsar el botón no muestra ningún tipo de error, pero tampoco hace nada... Tal vez estoy ya algo saturado, pero no encuentro forma ya de solventarlo. Si se os oscurre alguna idea, os lo agradecería.