Búsqueda Progresiva
Publicado por Carlos (1 intervención) el 25/09/2002 15:19:49
Hola, quisiera saber como se hace para hacer una búsqueda progresiva con un textbox y un dropdownlist, es decir, quiero que mientras el usuario escriba la palabra (SIN PRESIONAR ENTER) se vaya seleccionando el item más parecido en el dropdownlist. Yo lo hice de la siguiente manera, pero tengo que darle ENTER para que funcione y a veces da un error con el dropdownlist de algo de selección múltiple o algo así, no recuerdo.
Agradecería la ayuda………………………………………….
GRACIASSSSSSSSS!!!!!!!!!!!!!!
Este es el código:
Private Sub txtalimenticios_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtalimenticios.TextChanged
Conexión.Open()
txtalimenticios.Text = UCase(txtalimenticios.Text)
StrComando = "Select * From Productos Where tipo_prod='ALIMENTICIOS' and des_prod Like '" & txtalimenticios.Text & "%' Order By des_prod"
Comando = New OleDbCommand(StrComando, Conexión)
Lector = Comando.ExecuteReader
Lector.Read()
If Lector.Item("des_prod") = "" Then
lblmensaje.Text = "HOLA"
Else
ValorCampoL = Lector.Item("des_prod")
ddlalimenticios.Items.FindByText(ValorCampoL).Selected = True
End If
Lector.Close()
Conexión.Close()
End Sub
Agradecería la ayuda………………………………………….
GRACIASSSSSSSSS!!!!!!!!!!!!!!
Este es el código:
Private Sub txtalimenticios_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtalimenticios.TextChanged
Conexión.Open()
txtalimenticios.Text = UCase(txtalimenticios.Text)
StrComando = "Select * From Productos Where tipo_prod='ALIMENTICIOS' and des_prod Like '" & txtalimenticios.Text & "%' Order By des_prod"
Comando = New OleDbCommand(StrComando, Conexión)
Lector = Comando.ExecuteReader
Lector.Read()
If Lector.Item("des_prod") = "" Then
lblmensaje.Text = "HOLA"
Else
ValorCampoL = Lector.Item("des_prod")
ddlalimenticios.Items.FindByText(ValorCampoL).Selected = True
End If
Lector.Close()
Conexión.Close()
End Sub
Valora esta pregunta


0