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

来源：互联网发布：企业协作软件编辑：程序博客网时间：2024/04/30 10:03

   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 ’关闭结果集，这句话一般都需要写的，不写也不报错