https://foro.gambas-es.org/viewtopic.php?f=3&t=4393&p=25025#p25025
-----------------------------------
nore
Viernes, 13 Febrero 2015, 16:22

Cómo Hacer Una Búsqueda Con Autocompletado
-----------------------------------
Necesito ayuda... plis  :sad: 
Estoy trabajando con un formulario con Gambas3 y MySQL para la base de datos. El formulario es para registrar datos de una persona e incluye un textbox donde el usuario debe introducir el nombre de la persona, eso va a una tabla llamada "personas", especificamente a un campo llamado "nombrepers". Ya conseguì hacer la conexión y guardar, pero quiero que el procedimiento "buscar" me permita devolver al formulario los datos de la persona guardada. Y la bùsqueda debo hacerla por el nombre, pero el usuario no siempre sabrà còmo se guardo exactamente ese nombre, por lo que debo usar el operador LIKE. Quisiera que el textbox u otra lista (no se què objeto podrìa usar) hiciera algo como un autocompletado. Es decir que si el usuario introduce la letra "M" en el textbox aparezca una lista con todos los nombres que existan y que comiencen con esa letra, y si sigue escribiendo "Ma" entonces aparezca en la lista solo los que comienzan por esas dos... y asì. He leìdo que debo hacer un bucle, lo intentè pero no lo estoy haciendo bien...Aquí va el código que estoy usando:

Public Sub nombrepersonas_KeyPress()

 Dim $strn As String 
 Dim $regn As Result
 Dim $strnom As String
  
 moduloconexion.moduloconexion
  $strn = ("Select nombrepers from personas where nombrepers like '" & nombrepersonas.Text & "'")
 $regn = moduloconexion.$conexion.Exec($strn)
        
 If ($regn.Count > 0) Then
     For $strn = 1 To $regn.Count
     $strnom = $regn!nombrepers
     ListBox.Add($strnom)
     $regn.MoveNext
     Next
Endif
moduloconexion.$conexion.close

Por favor, Qué estoy haciendo mal???  :roll:


