【vfp开源代码栏目提醒】:网学会员在vfp开源代码频道为大家收集整理了adocursoradapter.prg提供大家参考,希望对大家有所帮助!
LOCAL oConn AS ADODB.Connection,cStrung AS Character,oRs AS ADODB.RecordSet,oCmd AS ADODB.Command
cString="Provider=SQLOLEDB.1;Data Source=ccb-zhj;Initial Catalog=Northwind;UID=sa;PWD=;Trusted_Connection=NO"
oConn=CREATEOBJECT("ADODB.Connection") &&建立连接对象
oConn.Open(cString) &&打开连接
oRs=CREATEOBJECT("ADODB.RecordSet")
oCmd=CREATEOBJECT("ADODB.Command")
oCmd.ActiveConnection=oConn
oCursor=CREATEOBJECT("CursorAdapter")
WITH oCursor
.AllowDelete=.T.
.AllowInsert=.T.
.AllowUpdate=.T.
.SendUpdates=.T.
.Alias="curCustomers"
.ConflictCheckType=3 &&检测更新冲突
.DataSourceType="ADO"
.DataSource=oRs
.SelectCmd="SELECT * FROM Customers WHERE Country=?lcVAR"
.DataSource.ActiveConnection=oConn
ENDWITH
lcVar="Brazil"
IF oCursor.CursorFill(.F., .F., 0,oCmd)
BROWSE
?TABLEUPDATE(.T.)
ELSE
AERROR(laErrors)
MESSAGEBOX(laErrors[2])
ENDIF