【vfp开源代码栏目提醒】:网学会员为广大网友收集整理了,adocommand.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) &&打开连接
oCmd=CREATEOBJECT("ADODB.Command")
oCmd.ActiveConnection=oConn
oCmd.CommandText="SELECT * FROM Customers WHERE Country=? AND CustomerID=?" &&参数化
查询命令
oCmd.Parameters.Append(oCmd.CreateParameter("cCountry",129,1,10,"Brazil")) &&直接为cCountry指定了参数值Brazil
oCmd.Parameters.Append(oCmd.CreateParameter("cCustomerID",129,1,10)) &&未指定参数值
oCmd.Parameters("cCustomerID")="FAMIA" &&指定cCustomerID的参数值
oRs=oCmd.Execute()
DO WHILE NOT oRs.EOF
?oRs.Fields(0).Value+SPACE(10)
??oRs.Fields("Country").Value
oRs.MoveNext
ENDDO