VFP调用Sql Server的查询话语（通用类）_VFP

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