VFP调用Sql Server的更新语句（通用类）！
* ----------------------------------------------------------------------- \\ 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_idTRY * STRTOFILE(m_sql ,sssa)CATCHENDTRY 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