Visual studio con phpmyadmin

[aspiazu]

Buenas .Tengo que realizar un trabajo de visual studio y tengo algunos problemas.


El primero:
-Tengo un registro hecho,donde guardo en una base de datos el usuario dni tlf ect...Tengo hecho un ComboBox que me muestra de la base de datos los cursos que hay y al meterle el codigo para que guarde tambien el curso me da fallo.


Este es el codigo que tengo:

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Try
           If txtcontraseña.Text = txtconfirmar.Text Then
               conexion.ConnectionString = "data source=localhost;user id=root; password='' ;database=colegiopbl"
               conexion.Open()
               Dim comando As New MySqlCommand("INSERT INTO `alumnos`(nombre,apellido,dni,telefono,Contraseña,curso) VALUES ('" & txtnombre.Text & "','" & txtapellido.Text & "','" & txtdni.Text & "','" & txttelefono.Text & "','" & txtcontraseña.Text & "'," & cbcurso.Text & "')", conexion)
               comando.ExecuteNonQuery()
               MsgBox("Tus datos se han guardado correctamente")
               Dim b As New AplicacionAlumnos
               b.Show()
               Me.Finalize()
               conexion.Close()
           Else
               MsgBox("Las contraseñas no coinciden")

           End If

       Catch ex As Exception
           MsgBox(ex.Message)

       End Try






El segundo fallo que tengo:

Tengo un login hecho,donde pones el usuario lo guardo en una variable que la tengo declarada en un modulo como publica,y luego esa variable la uso para que me haga una consulta y me muestre los datos del usuario que a entrado,mostrandome sus notas ,asignaturas ect...La variable se llama variable jaja

Este es el codigo

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       Try
           conexion.ConnectionString = "data source=localhost;user id=root; password='' ;database=colegiopbl"
           conexion.Open()
           Dim consulta As String
           consulta = "select A.nombre, E.Nota, S.NombreAsignatura, T.Trimestre from expedientes E inner join alumnos A on E.NombreAlumno=A.Idalumnos inner join asignatura S on S.idasignatura=E.Asignatura inner join trimestre T on T.idTrimestre=E.Trimestre where A.nombre= '" & Module1.variable & "'"
           adaptador = New MySqlDataAdapter(consulta, conexion)
           datos = New DataSet
           adaptador.Fill(datos, "trimestre,expedientes,alumnos,Asignatura")
           DataGridView1.DataSource = datos
           DataGridView1.DataMember = "trimestre,expedientes,alumnos,Asignatura"
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub
End Class





Y ya por ultimo tengo 2 combobox que quiero concatenar,depende que elijas en el primero,el segundo mostrara una cosa o otra y no tengo ni idea de como hacerlo.

Este es el codigo que tengo para rellenar el primer combobox


   

Código (vbnet) [Seleccionar] Expandir

Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       Try
           conexion.ConnectionString = "data source=localhost;user id=root; password='' ;database=colegiopbl"
           conexion.Open()
           Dim consulta As String
           consulta = "SELECT *FROM curso"
           adaptador = New MySqlDataAdapter(consulta, conexion)
           datos = New DataSet
           datos.Tables.Add("curso")
           adaptador.Fill(datos.Tables("curso"))
           cbcurso.DataSource = datos.Tables("curso")
           cbcurso.DisplayMember = "NombreCurso"
           conexion.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try


   End Sub



Aqui os dejo los link de mega de mi programa nose cual de los 2 ira asique dejo los 2
en la carpeta esta el programa y fuera la base de datos de phpmyadmin
https://mega.nz/#F!H1cglQ6Q
https://mega.nz/#F!H1cglQ6Q!yTzNJxiIDbb86iZ5CRcThA

si pide clave de cifrado
yTzNJxiIDbb86iZ5CRcThA


Mod: Los códigos deben ir en etiquetas GeSHi, tema movido a .NET