¿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")