¿Como buscar un dato en un TextBox en VB 6.0?

Question

Hola tengo un programa en el que tengo varias listas, esas listas ya están llenas, lo que necesito es buscar datos en cada una con algún método de búsqueda el código es algo así:

 

 

Private Sub CMD_BUSCAR_Click()

salir = False

CMD_GUARDAR = False

If NUMERO.Text <> " " Then

        For I = 1 To 10

            If NUMERO.Text = List2 Then

                Label6.Caption = "SI"

                Label7.Caption = I

                salir = True

                I = 21

            End If

            MsgBox ("buscando numero")

        Next

                If salir = True Then

                MsgBox ("NUMERO ENCONTRADO")

                Else

                MsgBox ("BUSQUEDA NO EXITOSA")

                End If

                End If

End Sub

 

 

La variable "I" es en donde se guarda la posición, solo que lo que quiero hacer es buscar en la lista no en un arreglo, es eso posible?, se que necesito usar algun metodo en donde dice List2.algo then

 

Gracias

Answer 1

Hola Jesús, estoy un poco confundido, porque el título es 'buscar en un textbox'. Sin embargo, trataré de ayudarte para ubicar un valor en un cuadro de lista o listbox.

Podemos recorrerlo y comparar el valor que buscas con cada valor del listbox; al encontrarlo, salimos del bucle, con la posición del mismo.

posicion=""

for i=0 to list2.listcount-1 ' le resto 1 porque el primer elemento está en posicion cero

if list2.list(i)=txtbuscar.text then

posicion=i

exit for

end if

next i

if posicion="" then

msgbox "no,no...no se encontró"

else

msgbox "esta en la posición " & i

end if

PD: escrito al pelo aqui en el editor del foro

Answer 2

Te conviene buscar con api si el listbox tiene bastantes items ya que el for tarda mas. http://www.recursosvisualbasic.com.ar/htm/listado-api/136-sendmessage-buscar-en-listbox.htm

Answer 3

yo tengo el codigo de busqueda si es que te sirve y de casualidad tu no te sabras el codigo para acer que se sumen los campos de una tabla es decir toda una columna lo necesito para acer un inventario

Private Sub cmdbuscar_Click()

Dim busca As Integer, criterio As Integer

busca = InputBox("QUE CLAVE ESTA BUSCANDO")

criterio = "CLAVE like'*" & busca & "*'"          aqui este codigo corre asi como esta solo cambia el campo de tu tabla que este seria clave es solo para texto

Data1.Recordset.FindFirst criterio

If Data1.Recordset.NoMatch Then

MsgBox ("NO SE ENCUENTRA")

Data1.Recordset.MoveLast

End If

End Sub