vfp + sql server

11/04/2005 - 17:41 por antonio | Informe spam
Amigos:
tengo el siguiente codigo para hacer un select a una tabla
de sql server

Conectar = SQLSTRINGCONNECT(m.cCadConnDSN)

TEXT TO lcsqltexto noshow
SELECT * FROM pundcam WHERE correla !=
<<m.correla>>
ENDTEXT

=SQLEXEC(conectar,lcsqltexto,"VERpresu")

nTemp = conectar
IF nTemp < 1
=MESSAGEBOX("La consulta no devolvió nada")
ELSE
WAIT "ntemp: "+ALLTRIM(STR(ntemp)) WINDOW nowait
BROWSE
ENDIF

***************************
* que estoy haciendo mal?
no me muestra el browse

Preguntas similare

Leer las respuestas

#1 Esparta Palma
11/04/2005 - 18:30 | Informe spam
Y cómo lo vamos a adivinar si no nos dices el mensaje de error?
Algo que quizás está fallando es que no haces TEXTMERGE en el bloque
TEXT TO. Por otro lado siempre, pero *siempre* debes de revisar que es
lo que te devuelve las funciones SPT para de éste modo, en caso de que
te devuelvan un valor menor a cero, utilizar AERROR() para saber que hacer:


IF conectar > 0
TEXT TO lcSQLtext NOSHOW TEXTMERGE
SELECT * FROM pundcam WHERE
correla != <<m.correla>>
ENDTEXT

IF SQLexec(conectar,lcSQLText,"VERpresu")
BROW
ELSE
IF AERROR(laError) > 0
Messagebox("Error al ejecutar":+laError[2])
ENDIF
ENDIF
ELSE
IF AERROR(laError) > 0
Messagebox("Error al conectar:"+laError[2])
ENDIF
ENDIF

Más información al respecto:

Crear Aplicaciones Cliente-Servidor con Visual FoxPro
http://www.panoramabox.com/GoPub.as...bj"03

¿Utilizar Vistas Remotas o SQL Pass Through (SPT) para
Cliente-Servidor?
http://www.panoramabox.com/GoPub.as...bj"32

eFrontEnd, Proyecto de Ejemplo Cliente-Servidor con Visual FoxPro
http://www.panoramabox.com/GoPub.as...bj"34

eBook Gratuito: SQL: A Practical Introduction (reseña y descarga)
http://www.panoramabox.com/GoPub.as...bj"35

Consultas de mas de 256 cars. a el servidor remoto (SPT y TEXT..
ENDTEXT)
http://www.panoramabox.com/GoPub.as...bj"09

Conectar a DBMS sin crear DSN (técnica DSNLess)
http://www.panoramabox.com/GoPub.aspx?IdObj05

Uso de AERROR() para errores ODBC
http://www.panoramabox.com/GoPub.aspx?IdObj!81

Espero te sirva.

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
México D.F.
MoBlogs!
http://weblogs.golemproject.com/esparta/
http://www.espartha.com/blog/


antonio wrote:
Amigos:
tengo el siguiente codigo para hacer un select a una tabla
de sql server

Conectar = SQLSTRINGCONNECT(m.cCadConnDSN)

TEXT TO lcsqltexto noshow
SELECT * FROM pundcam WHERE correla !=
<<m.correla>>
ENDTEXT

=SQLEXEC(conectar,lcsqltexto,"VERpresu")

nTemp = conectar
IF nTemp < 1
=MESSAGEBOX("La consulta no devolvió nada")
ELSE
WAIT "ntemp: "+ALLTRIM(STR(ntemp)) WINDOW nowait
BROWSE
ENDIF

***************************
* que estoy haciendo mal?
no me muestra el browse
Respuesta Responder a este mensaje
#2 antonio
13/04/2005 - 21:09 | Informe spam
gracias Esparta, ya pude resolver con aerror que no sabia
como implementarlo.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida