En una aplicación tengo 5 formularios (Teacher, group, hour, subject, classroom) que se relacionan con un sexto formulario donde estos confluyen (class).
El form class tiene 5 combobox, cada uno debe llenarse con los datos del combo id de la tabla correspondiente. Por ejemplo, el combobox "cbosubject" del form "class" debe contener los datos de combobox "idsubject" del form subject, de manera que si agrego o elimino un registro de "idsubject" este se agregue o se elimine de igual manera en "cbosubject".
He probado varios métodos y este me dio resultado:
Código:
Sub cargar()
Dim da As New OleDb.OleDbDataAdapter("Select *from Hours", cn)
Dim ds As New DataSet
da.Fill(ds, "Hours")
cbokhour.DataSource = ds.Tables("Hours")
cbokhour.DisplayMember = "IdHour"
no obstante, como necesito 5 combos y no uno, tengo que repetir el código, de esta forma:
Código:
Sub cargar()
Dim da As New OleDb.OleDbDataAdapter("Select *from Hours", cn)
Dim ds As New DataSet
da.Fill(ds, "Hours")
cbokhour.DataSource = ds.Tables("Hours")
cbokhour.DisplayMember = "IdHour"
End Sub
Sub cargar_Teacher()
Dim da As New OleDb.OleDbDataAdapter("Select *from Teachers", cn)
Dim ds As New DataSet
da.Fill(ds, "Teachers")
cbokteacher.DataSource = ds.Tables("Teachers")
cbokteacher.DisplayMember = "IdTeacher"
pero ahí surge un problema: dos subprocesos no pueden tener el mismo nombre, por lo tanto al segundo sub le puse "cargar_teacher()", pero, como le cambie el nombre, ya no cumple la función de cargar, de manera que si depuro el programa e ingreso al combobox "cbokteacher" este aparece en blanco"
Como soluciono este problema, necesito cargar los combos de la manera como lo hago con "cbokhour"
???
Gracias de antemano.