FoxPro/Visual FoxPro - AS/400

 
Vista:

AS/400

Publicado por Nattanahel Chaves (13 intervenciones) el 10/02/2003 20:26:30
Use el comando SQLCONNECT y el SQLEXEC para obtener información de un archivo en un AS/400. Así..

Store Sqlconnect('QGPL', '') to Conexion QGPL es el nombre del ODBC
IF Conexion <= 0
MESSAGEBOX('No se puede conectar', 16, 'Error de conexión')
ELSE
= sqlexec(Conexion, "select * from PLDAT.Cvlregl2 where Cvlregl2.QL = " + ls_cedula, "MiCursor")
ls_fec_Nac=MiCursor.qlacdx
ENDIF

En la penúltima línea el programa me dice que no se encuentra el alias "MiCursor" ¿Qué puedo estar haciendo mal?
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:AS/400

Publicado por Israel (65 intervenciones) el 10/02/2003 21:07:22
hola

cambia la linea del sqlexec por la que te corregi y veras que funciona

= sqlexec(Conexion, "select * from PLDAT.Cvlregl2 where Cvlregl2.QL = ?ls_cedula", "MiCursor")

saludos

israel
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