¿Conectar varias tablas de access a Visual?

Hola, buenas.

Eh estado buscando por todos lados y no puedo hallar esta información, me encargaron para la universidad un programa que pueda al momento de captar un numero de matricula de un estudiante generar un documento, para evitar el problema de pasar una hoja y que cada uno se apuntase.

Estuve haciendo el programa pero son alrededor de 11 tablas de diferentes y pude conectar solo Una tabla con ella puedo editar, agregar, nuevos elementos y borrarlos todo desde el programa pero solo con una tabla, quisiera saber un forma de hacer esto pero con todas las tablas y como hacer una búsqueda en esta.

Les pongo parte del código donde se me permite editar, borrar y agregar nuevos datos.

Trate de poner un combo box para que de hay se seleccionara la tabla que se quisiera editar

y se mostrara en el datagridview pero no se si se pueda hacer eso.

cadena = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\usuario\Desktop\Base de Alumnos.accdb"


miconexion = New OleDbConnection(cadena)


BasedeAlumnosTableAdapter = New OleDbDataAdapter


BasedeAlumnosTableAdapter.SelectCommand = New OleDbCommand("SELECT * FROM 1TICH", miconexion)


alumnosDataSet = New DataSet


alumnosDataSet.Tables.Add("1TICH")


BasedeAlumnosTableAdapter.Fill(alumnosDataSet.Tables("1TICH"))


cb_tablas.DataSource = alumnosDataSet.Tables("1TICH")


cb_tablas.DisplayMember = "Nctrl"


dgv_edit.DataSource = alumnosDataSet.Tables("1TICH")


dgv_edit.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells


Me.BasedeAlumnosTableAdapter.UpdateCommand = New OleDbCommand


Me.BasedeAlumnosTableAdapter.UpdateCommand.CommandText = "UPDATE 1TICH SET Nombre = @nom, [Correo Electrónico] = @corr WHERE Nctrl = @nc"


Me.BasedeAlumnosTableAdapter.UpdateCommand.Parameters.Add("@nom", OleDbType.VarChar, 255, "Nombre")


Me.BasedeAlumnosTableAdapter.UpdateCommand.Parameters.Add("@corr", OleDbType.VarChar, 255, "Correo Electrónico")


Me.BasedeAlumnosTableAdapter.UpdateCommand.Parameters.Add("@nc", OleDbType.BigInt, 0, "Nctrl")


Me.BasedeAlumnosTableAdapter.UpdateCommand.Connection = Me.miconexion


Me.BasedeAlumnosTableAdapter.DeleteCommand = New OleDbCommand


Me.BasedeAlumnosTableAdapter.DeleteCommand = New OleDbCommand("DELETE FROM 1TICH WHERE Nctrl = @nc", Me.miconexion)


Me.BasedeAlumnosTableAdapter.DeleteCommand.Parameters.Add("@nc", OleDbType.BigInt, 0, "Nctrl")


BasedeAlumnosTableAdapter.InsertCommand = New OleDbCommand()
BasedeAlumnosTableAdapter.InsertCommand.CommandText = "INSERT INTO 1TICH ([Nctrl], [Nombre], [Correo Electrónico]) VALUES (@nc, @nom, @corr)"


BasedeAlumnosTableAdapter.InsertCommand.Connection = Me.miconexion
BasedeAlumnosTableAdapter.InsertCommand.Parameters.Add("@nc", OleDbType.BigInt, 0, "Nctrl")


BasedeAlumnosTableAdapter.InsertCommand.Parameters.Add("@nom", OleDbType.VarChar, 255, "Nombre")


BasedeAlumnosTableAdapter.InsertCommand.Parameters.Add("@corr", OleDbType.VarChar, 255, "Correo Electrónico")

Añade tu respuesta

Haz clic para o