VFP调用Sql Server的取最大值（通用类）！-优快云博客

本文详细介绍了如何使用SQL查询获取指定表中某一字段的最大值，并提供了错误处理机制，确保数据读取的可靠性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    * ----------------------------------------------------------------------- \\ sql_max

	    m_dbf="sys_menu"  && \\ sql语句 
	    m_name=''
        m_max=0
        m_fields='sort'   && \\ 取最大值的字段
        m_while='where class=?m_class and bj=?m_bj'

	    m_name='菜单表'
	    DO cx\sql_max
        thisform.retu

    * ------------------------------------------------------------------------------------------- \\ 取最大值类
    
    m_sql='select MAX('+'&m_fields'+') as max from '+m_dbf+' '+m_while
    	
	m_retu=0
    STRTOFILE(m_sql ,"c:\sql.TXT")
	IF SQLEXEC(gnMyLogHandle,m_sql,'abcde') = -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
    SELECT abcde

    m_max=max