0
点赞
收藏
分享

微信扫一扫

VFP调用Sql Server的删除语句(通用类)!



* ----------------------------------------------------------------------- \\ sql_delete

m_sql="delete FROM sys_menu where id=?n_id" && \\ sql语句 where role_id
m_dbf='menu' && \\ 临时表名称
m_name='菜单表' && \\ 表提示说明
m_info=1 && \\ 是否有提示信息
DO cx\sql_delete
thisform.retu

SELECT menu
DELETE



* -------------------------------------------------------------------------- \\ 从数据库menu中,调入一级菜单数据

m_retu=0

IF SQLEXEC(gnMyLogHandle,m_sql) = -1
m_retu=1
AERROR( laError )
MESSAGEBOX( '读取数据库错误提示:' + ALLTRIM(STR(laError[ 1 ])) + CHR( 13 ) +laError[ 2 ])
ENDIF

STRTOFILE(m_sql ,"c:\sql.TXT")

IF m_retu=1

MESSAGEBOX(m_sql)
STRTOFILE(m_sql ,"c:\Error.TXT")
MESSAGEBOX('请注意:系统在【删除】数据【'+m_name+'】时,发生错误,请检查网络是否畅通或与系统管理员联系!'+m_message,48,m_message1)
RETURN

ENDIF

IF m_info=1

MESSAGEBOX('删除记录成功!请返回!'+m_message,48,m_message1)
m_info=0
ENDIF




举报

相关推荐

0 条评论