###############################################################################
[oledb]
; Everything after this line is an OLE DB initstring(此行下都是OLE DB的初始化语句)
Provider=MSDASQL.1 Password=db2 Persist Security Info=True;User ID=db2admin; Data Source=LOANCS
###############################################################################
也就是说“Provider=MSDASQL.1 Password=db2 Persist Security Info=True;User ID=db2admin;Data Source=LOANCS”就是数据库连接语句了,也就是我们需要的ConnectionString了。
例子如下:
Dim conn,res,strSql'定义变量
Set conn = CreateObject("ADODB.Connection")'创建连接
conn.ConnectionString ="Provider=MSDASQL.1 Password=db2 Persist Security Info=True;User ID=db2admin;Data Source=LOANCS"
conn.Open'开启连接
If conn.State = 0 Then
Reporter.ReportEvent micFail,"测试连接","数据库连接失败!"
conn.Close
Set conn = Nothing
Else
Reporter.ReportEvent micPass,"测试连接","数据库连接成功!"
End If
Set res = CreateObject("ADODB.RecordSet")'创建一个记录集对象
strSql="select * from loan.xt_czydl" '查询语句
res.Open strSql,conn
res.MoveFirst
Do