【vfp开源代码栏目提醒】:以下是网学会员为您推荐的vfp开源代码-ADOUpdate.prg,希望本篇文章对您学习有所帮助。
LOCAL oConn AS ADODB.Connection,cStrung AS Character,oRs AS ADODB.RecordSet
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") &&建立记录集合对象
oRs.Open("SELECT * FROM Customers WHERE CustomerID='FAMIA'",oConn,1,3,1) &&读取数据,建立游标
?oRs.Fields("CompanyName").Value
IF oRs.RecordCount=1
oRs.Fields("CompanyName").Value="人民邮电出版社"
oRs.Update
oRs.Requery()
?oRs.Fields("CompanyName").Value
ENDIF