Ayuda con cursor
Publicado por IDELSY (25 intervenciones) el 30/09/2015 19:35:56
Que tal amigos de este prestigioso foro
Tengo un problema y espero que puedan ayudarme como siempre lo han hecho.
Tengo una tabla en mysql y estoy intentando llevar registro a una tabla dbf usando un cursor como intermediario.
Esto es lo que tengo:
SQLEXEC(rc,"Select nombre,c1m1,c1m2,c1m3,c2m1,c2m2,c2m3,c3m1,c3m2,c3m3 from calificaciones AS caltem where codare = ?xcodare AND codgra = ?xcodgra AND anoesc = ?xanoesc AND aula = ?xaula AND codmat = ?xcodmat","mccalifi")
IF RECCOUNT() = 0
MESSAGEBOX("Busqueda sin exito","Aviso")
thisform.area.SetFocus
RETURN
ENDIF
SELECT mccalifi
SELECT CALTEM
APPEND FROM mccalifi
BROWSE
Espero puedan ayudarme y gracias por todo.
Tengo un problema y espero que puedan ayudarme como siempre lo han hecho.
Tengo una tabla en mysql y estoy intentando llevar registro a una tabla dbf usando un cursor como intermediario.
Esto es lo que tengo:
SQLEXEC(rc,"Select nombre,c1m1,c1m2,c1m3,c2m1,c2m2,c2m3,c3m1,c3m2,c3m3 from calificaciones AS caltem where codare = ?xcodare AND codgra = ?xcodgra AND anoesc = ?xanoesc AND aula = ?xaula AND codmat = ?xcodmat","mccalifi")
IF RECCOUNT() = 0
MESSAGEBOX("Busqueda sin exito","Aviso")
thisform.area.SetFocus
RETURN
ENDIF
SELECT mccalifi
SELECT CALTEM
APPEND FROM mccalifi
BROWSE
Espero puedan ayudarme y gracias por todo.
Valora esta pregunta


0