VFP调用Sql Server的查询语句（通用类）！

* ----------------------------------- \\ sql_select

m_sql="SELECT * from sys_menu" && \\ sql语句
m_dbf='menu1' && \\ 临时表名称
m_name='菜单表' && \\ 提示表描述
do cx\sql_select
thisform.retu

SELECT menu1
GO top

* ----------------------------------- \\ 另一个调用程序

IF USED("&m_dbf")
USE IN &m_dbf
ENDIF

m_retu=0

IF SQLEXEC(gnMyLogHandle,m_sql,m_dbf) = -1
m_retu=1
AERROR( laError )
MESSAGEBOX( '读取数据库错误提示：' + ALLTRIM(STR(laError[ 1 ])) + CHR( 13 ) +laError[ 2 ])
ENDIF
* ------------------------------------------------------- \\ 检查是否出错

IF m_retu=1
MESSAGEBOX(m_sql)
STRTOFILE(m_sql ,"c:\Error.TXT")
MESSAGEBOX('请注意：系统在【读取】数据【'+m_name+'】时，发生错误，请检查网络是否畅通或与系统管理员联系！'+m_message,48,m_message1)
RETURN
ENDIF