Public class form1
Download as DOCX, PDF0 likes737 views
The document contains code for a form that allows users to filter and display data from a database table. It defines several methods that query the database based on different radio button selections to list apprentices by last name, first name, names starting with A, city, or gender. The queries return data to populate a data grid view for viewing the filtered results.
Public class form1
- 1. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:bases de datosRegistro.mdb" Dim conexion As New OleDb.OleDbConnection(cadenaConexion) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If RadioButton1.Checked = True Then ListarAprendicesAlfa() ElseIf RadioButton2.Checked = True Then ListarAprendicesporNombre() ElseIf RadioButton3.Checked = True Then ListarAprendicesquesuNombreseaporlaletraA() ElseIf RadioButton4.Checked = True Then ListarAprendicesporCiudad() ElseIf RadioButton5.Checked = True Then ListarAprendicesporGenero() End If End Sub Private Sub ListarAprendicesAlfa() Dim cadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:bases de datosRegistro.mdb" Dim conexion As New OleDb.OleDbConnection(cadenaConexion) Dim cmd As New OleDb.OleDbCommand(" ", conexion) cmd.CommandText = "SELECT * FROM TbGrupoAdsi ORDER BY Apellido" Dim da As New OleDb.OleDbDataAdapter(cmd) Dim ds As New DataSet da.Fill(ds, "TbAdsi") DataGridView1.DataSource = ds DataGridView1.DataMember = "TbAdsi" End Sub Private Sub ListarAprendicesporNombre() Dim cadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:bases de datosRegistro.mdb" Dim conexion As New OleDb.OleDbConnection(cadenaConexion) Dim cmd As New OleDb.OleDbCommand(" ", conexion) cmd.CommandText = "SELECT * FROM TbAdsi ORDER BY Nombre" Dim da As New OleDb.OleDbDataAdapter(cmd) Dim ds As New DataSet da.Fill(ds, "TbAdsi") DataGridView1.DataSource = ds DataGridView1.DataMember = "TbAdsi" End Sub Private Sub ListarAprendicesquesuNombreseaporlaletraA() Dim cadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:bases de datosRegistro.mdb"
- 2. Dim conexion As New OleDb.OleDbConnection(cadenaConexion) Dim cmd As New OleDb.OleDbCommand(" ", conexion) cmd.CommandText = "SELECT * FROM TbAdsi ORDER BY Nombre" Dim da As New OleDb.OleDbDataAdapter(cmd) Dim ds As New DataSet da.Fill(ds, "TbAdsi") DataGridView1.DataSource = ds DataGridView1.DataMember = "TbAdsi" End Sub Private Sub ListarAprendicesporCiudad() Dim cadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:bases de datosRegistro.mdb" Dim conexion As New OleDb.OleDbConnection(cadenaConexion) Dim cmd As New OleDb.OleDbCommand(" ", conexion) cmd.CommandText = "SELECT * FROM TbCiudad INNER JOIN TbAdsi ON TbCiudad.CiudadID = TbAdsi.CiudadID ORDER BY Descripcion" Dim da As New OleDb.OleDbDataAdapter(cmd) Dim ds As New DataSet da.Fill(ds, "TbAdsi") DataGridView1.DataSource = ds DataGridView1.DataMember = "TbAdsi" End Sub Private Sub ListarAprendicesporGenero() Dim cadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:bases de datosRegistro.mdb" Dim conexion As New OleDb.OleDbConnection(cadenaConexion) Dim cmd As New OleDb.OleDbCommand(" ", conexion) cmd.CommandText = "SELECT * FROM TbAdsi ORDER BY Genero" Dim da As New OleDb.OleDbDataAdapter(cmd) Dim ds As New DataSet da.Fill(ds, "TbAdsi") DataGridView1.DataSource = ds DataGridView1.DataMember = "TbAdsi" End Sub End Class