【vfp开源代码栏目提醒】:网学会员vfp开源代码为您提供自动更新odbc.prg参考,解决您在自动更新odbc.prg学习中工作中的难题,参考学习。
CLEAR
LOCAL cConnString,oCursor as CursorAdapter,aErrors[1]
cConnString="driver=SQL Server;server=ccb-zhj;database=Northwind;uid=sa;pwd=;trusted_connection=no"
oCursor=NEWOBJECT("CursorAdapter")
WITH oCursor
.AllowDelete=.T.
.AllowInsert=.T.
.AllowUpdate=.T.
.Alias="curCustomer"
.BufferModeOverride=5 &&表缓冲模式
.DataSource=SQLSTRINGCONNECT(cConnString) &&连接句柄
.DataSourceType="ODBC" &&连接类型
.SelectCmd="SELECT CustomerID,CompanyName,ContactName FROM Customers WHERE Country='Brazil'"
.KeyFieldList="CustomerID"
.Tables="Customers" &&设置数据源表
.UpdatableFieldList="CustomerID,CompanyName,ContactName"
.UpdateNamelist="CustomerID Customers.CustomerID,"+;
"CompanyName Customers.CompanyName,ContactName Customers.ContactName"
.SendUpdates=.T.
.ConflictCheckType=3 &&冲突检测类型
ENDWITH
IF oCursor.CursorFill()
BROWSE &&打开浏览窗口,可以从中修改记录
IF TABLEUPDATE(.T.)=.F. &&发送更新,保存修改
=MESSAGEBOX("更新失败!",0+48,"提示")
ENDIF
ELSE
AERROR(aErrors)
=MESSAGEBOX(aErrors[2])
ENDIF