none
No puedo ingresar ningún registro en mi formulario RRS feed

Todas las respuestas

  • En la consulta debes poner más detalles del problema para no tener que adivinarlo.

    Supongo que te da un error al ejecutar el comando.
    A la cadena del insert into le falta un espacio antes de "Values" y en ella tienes que poner los parámetros en lugar de los textbox:

    comando = New MySqlCommand("Insert Into registro (Id, Nombre, Apellido, Cedula, Correo, Clave)" &
    " Values (@Id, @Nombre, @Apellido, @Cedula, @Correo, @Clave)"


    Saludos, Javier J

    lunes, 3 de febrero de 2020 7:13
  • Hola:

    Prueba con el siguiente codigo para insertar 1 registro en la tabla llamada registro

    Option Strict On
    Option Explicit On
    Imports MySql.Data.MySqlClient

        Private Sub btnXXX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXXX.Click
            Try
                Dim lsQuery As String = "INSERT INTO registro (id, nombre, apellido, cedula, correo, clave) VALUES (@id, @nombre, @apellido, @cedula, @correo, @clave)"
                Using lConexion As New MySqlConnection(TU_CADENA_DE_CONEXION)
                    lConexion.Open()
                    Using lComando As New MySqlCommand(lsQuery, lConexion)
                        lComando.Parameters.Add(New MySqlParameter("@id", TextBox1.Text))
                        lComando.Parameters.Add(New MySqlParameter("@nombre", TextBox2.Text))
                        lComando.Parameters.Add(New MySqlParameter("@apellido", TextBox3.Text))
                        lComando.Parameters.Add(New MySqlParameter("@cedula", TextBox4.Text))
                        lComando.Parameters.Add(New MySqlParameter("@correo", TextBox5.Text))
                        lComando.Parameters.Add(New MySqlParameter("@clave", TextBox6.Text))
                        lComando.ExecuteNonQuery()
                    End Using
                End Using
            Catch ex As Exception
                MessageBox.Show(Exp.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        End Sub

    Un saludo desde Bilbo
    Carlos
    lunes, 3 de febrero de 2020 15:37