ya puedo seleccionar los elementos de busqueda el problema que tengo ahora es que si busco por identificacion perfecto me muestra los datos en el datagridview de la identificacion que estoy buscando pero si busco por ejemplo por nombre no me muestra nada, yo tengo dos tablas una de empleados y otra de Motivos_ausencias yo las relaciono con la identificacion estos son loscampos
tabla empleados campos: Identificacion,NombreEmpleado,PrimerApellido,SegundoApellido,Direccion,Telefono,Celular,Sexo,Cargo,Estado,Imailt
tabla Motivos_Ausencia campos: NombreCausa,FechaCausa,HoraCausa,Observaciones,Identificacion. lo que no se es que si tengo que utilizar el innerjoin en verdad todavia no se como utilizarlo en visualbasic.net aqui les muestro el codigo para que me hagan el favor y me ayuden con esto aqui les muestro el codigo si algo esta mal les agradesco y me avisan:
Private Sub Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar.Click
Dim da As New DataSet
If Cbobuscar.Text = "Identificacion" Then
conectar()
Dim cmd As SqlCommand = New SqlCommand
cmd.Connection = con
cmd.CommandText =
"SELECT * FROM Motivo_Ausencia" + _
" WHERE (Identificacion like '" & Trim(txtbuscar.Text.ToUpper) & "%')"
Dim dr As SqlDataReader = cmd.ExecuteReader()
Dim xcombo As DataTable = New DataTable
xcombo.Load(dr)
MotivoAusenciaBindingSource.DataSource = xcombo
seleccionado = xcombo
If Cbobuscar.Text = "NombreEmpleado" Then
conectar()
Dim cmd2 As SqlCommand = New SqlCommand
cmd2.Connection = con
cmd2.CommandText =
"SElECT * FROM Motivo_Ausencia " + _
"WHERE (NombreEmpleado Like '" & Trim(txtbuscar.Text.ToUpper) & "%')"
Dim dr2 As SqlDataReader = cmd.ExecuteReader()
Dim xcombo2 As DataTable = New DataTable
xcombo2.Load(dr2)
MotivoAusenciaBindingSource.DataSource = xcombo2
seleccionado = xcombo2
End If
If Cbobuscar.Text = "Causa" Then
conectar()
Dim cmd1 As SqlCommand = New SqlCommand
cmd1.Connection = con
cmd1.CommandText =
"SELECT * FROM Motivo_Ausencia" + _
" WHERE (NombreCausa like '" & Cbomot.Text.ToUpper & "%')"
Dim dr1 As SqlDataReader = cmd.ExecuteReader()
Dim xcombo1 As DataTable = New DataTable
xcombo1.Load(dr1)
MotivoAusenciaBindingSource.DataSource = xcombo1
seleccionado = xcombo1
End If
End If
End Sub
se me olvidaba tengo dos combox el combo que me escoje el tipo de busqueda yel otro es el de causas que muestra una serie de opciones las cual debo escojer el problema es que cuandoes escojo la opcion no me muestra nada en la grilla. espero que me este explicando bien y gracias por sus ayudas. que esten bien y que DIos los bendiga.