Notes连接SQL Server与执行SQL语句

1. 首先创建连接字符串。要指明服务器的名字或IP地址、用户名称、用户密码、数据库命称。

2. 创建ADOBC连接对像

3. 执行SQL语句

 

例子：

Dim objCon as Variant

Dim strCon as String

Dim strQuery as String

 

strCon = | Driver={SQL Server}; Server= 服务器名字或地址;uid= 用户名;pwd= 用户密码;Database= 数据库名字 　|

 

Set objCon = CreateObject("ADODB.Connection")

objCon.Open(strCon)

''以下执行SQL语句

strQuery = 这里填你的SQL词句

objCon.Execute(strQuery)

 

'如果是Select语句，还要创建一个Recordset对象

Dim objRS as Variant

Dim strValue as String

Call objRS.Open(strQuery,objCon,0,1)

'对每个结果做处理

If Not objRS.EOF Then
   objRS.MoveFirst
   While Not objRS.EOF    
          strValue = objRS.Fields(" 列名").Value

          objRS.MoveNext
   Wend
End If

 

转载于:https://blog.51cto.com/subform/281607