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

最新推荐文章于 2022-10-11 16:56:06 发布

iteye_21199

最新推荐文章于 2022-10-11 16:56:06 发布

阅读量282

点赞数

文章标签：数据库

* ----------------------------------------------------------------------- \\ 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