VFP调用Sql Server的更新语句（通用类）！

iszjw

* ----------------------------------------------------------------------- \\ sql_update
m_dbf1='sys_menu'          && \\ 更新表名
m_name=''
m_where='where id=?n_id'   && \\ 更新的条件
m_count=1  && \\ 更新个数
m_info=0   && \\ 是否有更新成功提示
x1='name'  && \\ 远程表字段
y1=mm_text && \\ 字段变量内容
SELECT menu
do cx\sql_update
thisform.retu
SELECT menu
REPLACE name WITH mm_text  && \\ 替换本地表内容


    * ------------------------------------------------------------------------------------------- \\ 更新数据库通用程序
m_up=''
f=0
DO whil f<m_count
f=f+1
ff=ALLTRIM(STR(f))
m_up=m_up+x&ff+"=?"+"y&ff"+','
ENDDO
m_up=SUBSTR(m_up,1,LEN(m_up)-1)
m_sql="update "+m_dbf1+" set "+m_up+" "+m_where  && \\ sql语句 where role_id

TRY
*   STRTOFILE(m_sql ,sssa)
CATCH
ENDTRY
m_retu=0
IF SQLEXEC(gnMyLogHandle,m_sql) = -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
* ------------------------------------------------------------------------------------------- \\ 检查是否出错
try
IF m_info=1
MESSAGEBOX('数据更新成功！请返回！'+m_message,48,m_message1,1000)
m_info=0
ENDIF
CATCH
ENDTRY