Consulta avanzada

Consulta Avanzada

Imports System.Data.OleDb
Public Class FrmBusqueda
Dim strConexion, strOrden As String
Dim dtaPersona As New OleDbDataAdapter()
Dim dTable As New DataTable()Dim dtsPersona As New DataSet()

Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
dtsPersona.Reset()strConexion = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = C:\Projects\HE-SAOG\BD HE-SAOG ACTUALIZADA.mdb"
If RadioButton1.Checked = True Then
strOrden = "SELECT * FROMT_INFORMACION_USUARIOS WHERE CC = '" & TextBox1.Text & "'"
Else
If RadioButton2.Checked = True Then
strOrden = "SELECT * FROM T_INFORMACION_USUARIOS WHERE NOMBRE = '" &TextBox1.Text & "'"
Else
If RadioButton3.Checked = True Then
strOrden = "SELECT * FROM T_INFORMACION_USUARIOS WHERE APELLIDO = '" & TextBox1.Text & "'"End If
End If
End If
dtaPersona = New OleDbDataAdapter(strOrden, strConexion)
dtaPersona.Fill(dtsPersona)
dgvPersona.DataSource =dtsPersona.Tables(0)
End Sub

Private Sub FrmBuscar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos enla tabla '_BD_HE_SAOG_ACTUALIZADADataSet.T_INFORMACION_USUARIOS' Puede moverla o quitarla según sea necesario.Me.T_INFORMACION_USUARIOSTableAdapter.Fill(Me._BD_HE_SAOG_ACTUALIZADADataSet.T_INFORMACION_USUARIOS)
'TODO: esta línea de código carga datos en la tabla 'PRUEBA_CONEXIONVBNETDataSet.T_INFORMACION_USUARIOS' Puede moverla o quitarla según sea necesario.Me.T_INFORMACION_USUARIOSTableAdapter.Fill(Me._BD_HE_SAOG_ACTUALIZADADataSet.T_INFORMACION_USUARIOS)
strConexion = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = C:\Projects\HE-SAOG\BD HE-SAOG...