【vfp开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了vfp开源代码-ADOLink.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=oConn.Execute("SELECT * FROM Customers")
DO WHILE NOT oRs.EOF
?oRs.Fields(0).Value
oRs.MoveNext
ENDDO
?oRs.Fields.Count
oRs.MoveLast
oConn.Close
oRs.Open()