Realizar busqueda habilitando 3 campos (vb2010)

[vilfrack]

Hola bitbow, gracias por comentar.

te cuento que lo logre hacer.
lo que hice fue colocar 3 radion buton en cada campo te texto de manera que cuando le des click a un radio buton fuerces a la sentencia sql a que se ejecute por la sentencia correspondiente

aqui esta el codigo por si lo necesitas ;)

Sub buscar()
Dim n As Integer = 0
Dim query As String = "SELECT * FROM laptos WHERE codigo_lapto =" & TxtBserial.Text & ""
Dim QueryIp As String = "SELECT * FROM laptos WHERE ip ='" & TxtBIp.Text & "'"
Dim QueryIpIna As String = "SELECT * FROM laptos WHERE ip_inalambrica = '" & TxtBIpIna.Text & "'"
If RadioButton1.Checked Then
Dim cmd As New OleDb.OleDbCommand(query, cn)
Dim dr As OleDb.OleDbDataReader
cn.Open()
dr = cmd.ExecuteReader

If dr.Read Then
TxtSerial.Text = dr("codigo_lapto")
TxtIp.Text = dr("ip")
TxtIpIna.Text = dr("ip_inalambrica")
TxtNomEqui.Text = dr("Nombre_del_equipo")
TxtDominio.Text = dr("Dominio")
TxtNomUsa.Text = dr("Nombre_del_usuario")
TxtUbicacion.Text = dr("ubicacion")
TxtDepar.Text = dr("departamento")

TxtSo.Text = dr("so")
TxtOffice.Text = dr("office")
TxtRam.Text = dr("memoria")
TxtDd.Text = dr("dd")
TxtDvd.Text = dr("dvd")
TxtProcesador.Text = dr("procesador")
TxtBits.Text = dr("bits")
Txtaccesorio.Text = dr("accesorios")
Else
MsgBox("EL REGISTRO NO EXISTE")
End If
cn.Close()
End If
If RadioButton2.Checked Then
Dim cmd As New OleDb.OleDbCommand(QueryIp, cn)
Dim dr As OleDb.OleDbDataReader
cn.Open()
dr = cmd.ExecuteReader
If dr.Read Then
TxtSerial.Text = dr("codigo_lapto")
TxtIp.Text = dr("ip")
TxtIpIna.Text = dr("ip_inalambrica")
TxtNomEqui.Text = dr("Nombre_del_equipo")
TxtDominio.Text = dr("Dominio")
TxtNomUsa.Text = dr("Nombre_del_usuario")
TxtUbicacion.Text = dr("ubicacion")
TxtDepar.Text = dr("departamento")

TxtSo.Text = dr("so")
TxtOffice.Text = dr("office")
TxtRam.Text = dr("memoria")
TxtDd.Text = dr("dd")
TxtDvd.Text = dr("dvd")
TxtProcesador.Text = dr("procesador")
TxtBits.Text = dr("bits")
Txtaccesorio.Text = dr("accesorios")
Else
MsgBox("EL REGISTRO NO EXISTE")
End If
cn.Close()
End If

If RadioButton3.Checked Then
Dim cmd As New OleDb.OleDbCommand(QueryIpIna, cn)
Dim dr As OleDb.OleDbDataReader
cn.Open()
dr = cmd.ExecuteReader
If dr.Read Then
TxtSerial.Text = dr("codigo_lapto")
TxtIp.Text = dr("ip")
TxtIpIna.Text = dr("ip_inalambrica")
TxtNomEqui.Text = dr("Nombre_del_equipo")
TxtDominio.Text = dr("Dominio")
TxtNomUsa.Text = dr("Nombre_del_usuario")
TxtUbicacion.Text = dr("ubicacion")
TxtDepar.Text = dr("departamento")

TxtSo.Text = dr("so")
TxtOffice.Text = dr("office")
TxtRam.Text = dr("memoria")
TxtDd.Text = dr("dd")
TxtDvd.Text = dr("dvd")
TxtProcesador.Text = dr("procesador")
TxtBits.Text = dr("bits")
Txtaccesorio.Text = dr("accesorios")
Else
MsgBox("EL REGISTRO NO EXISTE")
End If
cn.Close()
End If
End Sub