代理中操作SQL数据库（增、删、改）

   Dim session As New notessession                '定义notes会话
   Dim ADOCon As Variant
   Dim rs As Variant
   Dim OALink As String
   OALink = session.GetEnvironmentString("Directory",True)
   OALink = "Provider=SQLOLEDB.1;Password=数据库密码;Persist Security Info=True;User ID=数据库用户（一般是sa）;Initial Catalog=数据库名;Data Source=数据库地址（IP）"
   Set ADOCon = CreateObject("ADODB.Connection")
   ADOCon.Open(OALink) '打开连接远程数据库
   If ADOCon.State = 1  Then   '判断是否连接成功
    SQL=“写相关的SQL语句(增、删、改、查)”
    ADOCon.Execute(SQL) '执行SQL语句
   End If

 

-----------------------如果需要得到从SQL中得到的返回值加入以下代码------------------

 '定义结果集
 Set rs_things = CreateObject("ADODB.Recordset")   ‘rs_things叫什么无所谓是自己定义的

 Dim Num_things As Integer
 Num_things = rs_things.recordCount      '计算所查询出的数据条数

If rs_things.EOF = False Then
   
   nf  = rs_things.fields("Chr_nf").value   ’nf的值为从sql表中获取相应字段的值

   yf   = rs_things.fields("Chr_yf").value   ’yf的值为从sql表中获取相应字段的值

   rs_things.MoveNext   '执行下一条的意思，一般用在for循环里面

end if

Set rs_things = Nothing   ‘意思为：释放资源，这句话一般都需要写的

rs_things.close   ’关闭结果集，这句话一般都需要写的，不写也不报错