Guardar registros

[gnzsoloyo]

Pues probemos:

Código vb:

Private Sub Agregar1()
        Dim oStrCx As String = "Database=Pacientes;Data Source=localhost;User Id=root;Password=utan;"
        Dim sql As String = "SELECT * FROM generales"
        Dim oComm As String = "Insert into generales (fecha, apellidos, nombres, ocupacion, recomendado) values ('" & TextBox18.Text & "','" & TextBox2.Text & "'," & TextBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
        Dim cad As New MySqlConnection(oStrCx)
        cad.Open()
        Dim cmd As New MySqlCommand(sql, cad)
        Dim dr As MySqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
        Try
            cmd = New MySqlCommand(oComm, cad)
            cmd.ExecuteNonQuery()
        Catch ex As MySqlException
            MessageBox.Show("Error MySqlException: " & ex.Message)
            Return
        Catch ex As Exception
            MessageBox.Show("Error Exception: " & ex.Message)
            Return
        End Try
    End Sub