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:
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
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
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