FoxPro/Visual FoxPro - Ayuda con Seek

Hola buenos dias a todos los programadores...
Para comentarles ke ya presente mi proyecto y si no ha sido con la ayuda de todos ustedes no habria sabido que hacer...pero de antemano me fue muy bien... Gracias....

Bueno despues de agradecerles... tengo una pequeña duda... he notado que en otros lenguajes como el Clipper, Dbase etc... la utilización del comando SEEK es mucho mas poderoso que el LOCATE para buscar registros en una Tabla indexadas.. por lo que he leido el comando SEEK se usa asi:

**** en Clipper***
store 0 to nVaR1
use Tabla index xCampo
@2,2 get nVaR1
Read
SEEK(nVaR1) &nVaR1 es xCampo
if ! Eof()
Hacer esto si no es fin de tabla
Else
Hacer esto otro si es fin de tabla
Endif

¿¿ COMO SE USARIA EL VFP9....??

Saludos desde Monterrey, N. L. Mexico
L O L Y....

selec tabla
seek alltrim(cVariable) order tag campo_indexado
if found()
messagebox("Encontrado")
else
messagebox("No encontrado")
endif

Select Mi_tabla.dbf
set order to clave
x1=Thisform.txt_clave.value
seek x1
If Found()
**Condición si encontró algo
else
**Condicion si NO encontro algo
endif

Suerte

Muchas Gracias Amigos... son bien lindos...Voy a ponerlo en practica...

si no es mucho pedir... donde podría encontrar un Tutorial de VFP9.

Saludos desde
Monterrey, N. L. Mexico.

www.portalfox.com
www.codefox.net
www.masfoxpro.com

Mi estimada regia, Espero que sea lo que necesites:

http://www.lawebdelprogramador.com/cursos/vf/index2.php


Si bien es cierto, puede ser de version 6 o anterior a vfp9. Pero las funciones básicas son las mismas, es decir, que si aprendes en version anterior a vfp9 no cambia mucho...(VFP6 en adelante)


Saludos desde
Nvo Laredo, Tam. México

Muchas Gracias Amigos... son muy amables... que gusto me da que haya gente como ustedes... y que bueno que existe una web como esta que te ayudan bastante...

saludos...
L O L Y.....!

aún existe Clipper?
la última vez que abrí un prg de aquel lenguaje fue hace 15 años
wow

pero yendo al caso
en fox es así:

********************
use tabla order numero && no uses index, los IDXs son historia, usa los CDXs
@2,2 get nNumero default 0 && aquí mismo inicializamos a cero
read
if seek(nNumero) && esta función devuelve un valor lógico pues
* ganaste
else
* sigue intentando
endif
********************

al abrir una tabla de la forma como lo hice líneas arriba
entendemos que previamente hemos creado un índice de la siguiente forma:

use tabla && entendemos también que abrimos en modo exclusivo
index on numero tag numero

así creamos una entrada o clave de ordenación al cual llamamos etiqueta de índice, con el nombre numero y ordenado por el campo numero, en este caso el nombre de la etiqueta lleva el mismo nombre que el campo

ahora lo de modo exclusivo es otro tema, tiene que ver con el tratamiento de tablas en una red, pero de eso ya es tema para otro capítulo el cual aquí no es necesario aún

pero la cosa podría ser también así:

use tabla
index on numero tag pelota

lo primero puede ser el nombre de un campo o la combinación de ellos si se tratara de campos alfanuméricos, etc; y lo segundo será el nombre de la entrada o clave de ordenación de modo que posteriormente podamos llamarlo y establecer la ordenación para la tabla

así entonces se crea y de manera automática un archivo de igual nombre que la tabla pero con extensión cdx y un archivo cdx puede contener tantas entradas o nombres de etiquetas cada una con un tipo de ordenación diferente para nuestra tabla; a diferencia de un archivo idx que se crea con un:

index on numero to pelotita

creando un archivo pelotita.idx por cada regla de ordenación a establecer

personalmente soy caprichoso por naturaleza y si te vas a dedicar a programar será siempre un terrible defecto

el index on ... to ... solía usarse hace algún tiempo pero como todo avanza apareció el index on ... tag..., y desde entonces todo es mejor, más rápido y más eficiente

y pero como todo avanza ahora existe vfp9
y entonces todo es mejor ahora y los programadores ya no... existen

jeje es bromita

hay mucho por recorrer y sólo un pequeño consejo
echando a perder se aprende

pero como yo soy optimista cambiaría eso por
aprender haciendo

Prueba esto:
LOAD
USE mi_tabla IN 0 ORDER xcampo
*****
VALIDAR
IF SEEK(campo_busqueda)
* encontro registro
ELSE
* No encontro registro
ENDIF