搞掂!

netsky_lt

Dim Cnn
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString = "Provider=MSDAORA.1;User ID=XXX;Password=XXX;Data Source=DBSERVER;Persist Security Info=True"

Cnn.Open
If Cnn.State = 0 Then
     Reporter.ReportEvent micFail, "testing", "连接数据库失败"
else
     Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
End If

pcl2004_27

代码 修改如下
Dim Cnn  ' as adodb.connection
dim strLink  ' as string
strLink== "Provider=MSDAORA.1;User ID=XXX;Password=XXX;Data Source=DBSERVER;Persist Security Info=True"   ' 这么写可以更加灵活,将来i数据库移植，只要修改字符串就可以了
Set Cnn = CreateObject("ADODB.Connection")
cnn.open strLink  '打开连接

If Cnn.State = 0 Then
     Reporter.ReportEvent micFail, "testing", "连接数据库失败"
else
     Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
End If

‘注意这里，声明的对象需要释放掉，否则存在内存泄露问题
cnn.close
set cnn=nohting

suifengpiao

xue xisdlkfj2