FoxPro/Visual FoxPro - Indexar cursor..??

   
Vista:

Indexar cursor..??

Publicado por Ramon (81 intervenciones) el 23/09/2010 19:00:32
Hola buenas dias.. tengan ustedes...
quisiera me dieran una idea de como hacer lo siguiente:
Estoy tratando de Migrar mis DBF a Mysql..y estoy moviendo toda la aplicación pero me he topado con la INDICES de archivos... ya que las busquedas las realizo con el SEEK...

¿¿¿ SE PODRA INDEXAR UN CURSOR..?? ... o como se podrá indexar...??, ya que solo requiero mover cierta parte de el inicio de mis forms....

antes tenia asi en el init del form... despues de haber abierto la tablas con una rutina en un archivo de funciones...

local xcampo
select mytabla
ser order to campox
seek(Alltrim(xCampo))
If ! Eof()
Continuar
Else
MessageBox('el codigo ya fue agregado con anterioridad...)
xCampo=0
Return 0
Endif

****************************************************
Ahora lo tengo así.
local xCampo
cBusca='Select * from mytabla','mytabla')
SqlExec(Con,cBusca,'myTabla')
Select myTabla
Locate for Alltr(xCampo)=Alltr(Campox)
If ! Eof()
Continuar
Else
MessageBox('el codigo ya fue agregado con anterioridad...)
xCampo=0
Return 0
Endif
********************************************
pero no se podrá hacer así....
local xCampo
cBusca='Select * from mytabla','mytabla')
SqlExec(Con,cBusca,'myTabla')
Select myTabla &&&Este Es un cursor que deseo indexar...
set Order to xCampo &&Aqui quiero cambiar... ya que no existe esto en cursor...
Locate for Alltr(xCampo)=Alltr(Campox)
If ! Eof()
Continuar
Else
MessageBox('el codigo ya fue agregado con anterioridad...)
xCampo=0
Return 0
Endif
********************************************
o Emplear Algo así...
cBusca='Select * from mytabla order by xcampo','mytabla')
SqlExec(Con,cBusca,'myTabla')
Select myTabla

pero aqui deseo serguir usando el SEEK
*****************************************
Muchas Gracias Amigos
Emplear
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Indexar cursor..??

Publicado por Edgar Zambrano (31 intervenciones) el 23/09/2010 20:07:16
antes lo tenias asi
---------------------------------
local xcampo
select mytabla
ser order to campox
seek(Alltrim(xCampo))
If ! Eof()
Continuar
Else
MessageBox('el codigo ya fue agregado con anterioridad...)
xCampo=0
Return 0
Endif

ahora aplicalo asi:
---------------------------------
local xcampo
select mytabla
index on campox tag campox && crea un indice en el cursor
ser order to campox
seek(Alltrim(xCampo))
If ! Eof()
Continuar
Else
MessageBox('el codigo ya fue agregado con anterioridad...)
xCampo=0
Return 0
Endif

listo con esto corriges tu error
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar