Mar
17 de Marzo del 2004

Hola a todos .. espero alguien me pueda ayudar ... necesito crear un boton de b煤squeda en donde introdusca una letra y me vaya buscando las posibles coincidencias y cuando le marque el correcto muestre en el formulario... algo como esto Boton de comando -->form grande
en el evento click
do miform
llamaras al chiquito te aparecera el for
tendra un cuadro de texto y un boton aceptar donde en el boton aceptar le pondras la base donde buscaras que sera

select mibase
set order to miindice
seek clave
if found()
thisform.releas cierras formchiquito
scater menvar coges valares de campos
do miformprincipal llamas al form principal
.txtClave=m.clave despliegas campos
.txtConcepto=m.concepto
else
wait "clave no encontrada"
endif
bcSalir.setfocus

pero con instrucciones de SQL porque no me acepta el Seek ni el Set Order To.. cuando los utilizo aparece el mesaje que dice "La tabla no tiene orden de indice establecido" si pueden enviarme las variaciones de c贸digo les estar铆a muy agradecida, Saludos.
MaR.

tigrefox
17 de Marzo del 2004

Mira Mar, sea con seek o SQL funciona igual, ese error debe ser porque desde cuando hare la base de dsatos no le indicas que tiene archivos indices, ej, use XXXXX index SSSSS,DDDDD, o como lo uses.

En el Text Control usa el evento KEYPRESS para hacfer la busqueda, con una variable p煤blica defiida el inicio del programa CADENA, ej:
en el evento KEYPRESS:
cadena = cadena + Chr(NKeyCode)
* Va generando la expresion de busqueda
Seek Cadena
If found()
mostrar informacion
Endif
o

Select * From base where campo = cadena Into Cursor buscar
* igual sencillo no ==

De toidas formas q este c贸digo hay que validarle mucho por que debo saber como estas mostrando la inforamci贸n etc,

Escribeme.