none
¿Como buscar un dato en un TextBox en VB 6.0? RRS feed

  • Pregunta

  • 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

    domingo, 21 de noviembre de 2010 0:04

Todas las respuestas

  • 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

    domingo, 21 de noviembre de 2010 1:08
  • 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
    martes, 23 de noviembre de 2010 20:42
  • 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

     

    viernes, 26 de noviembre de 2010 1:55