|
请大家帮忙看一下
问题描述:DB2数据库版本是8.2,已经在ODBC中建立了数据源,而且可以成功连接数据库。
现通过QTP9.2 连接DB2数据库,系统报错
方法一:本地已经创建数据源的的方式
连接字符串: "DSN=TEST;UID=***PWD=***;MODE=SHARE;DBALIAS=TEST;"
错误提示:指定的初始化字符串不符合 OLE DB 规定
方法二:本地没有创建数据源的的方式
连接字符串: "Driver={IBM DB2 ODBC DRIVER};DBALIAS=TEST;UID=***; PWD=***;"
错误提示:[Microsoft][ODBC 驱动程序管理器] 驱动程序的 SQLAllocHandle on SQL_HANDLE_ENV 失败,
并且,在出现该错误提示后,再运行QTP脚本,则程序就一直运行,无法结束任务,必须强制退出
程序代码如下:
Option Explicit
Dim objConn 'CONNECTION对象实例
Dim strConnString '连接字符串
Dim objRst '对象实例
'1. 建立CONNECTION对象实例
Set objConn = CreateObject("ADODB.CONNECTION")
'2. 建立连接字符串
'strConnString = "DSN=TEST;UID=***; PWD=***;MODE=SHARE;DBALIAS=TEST;"
strConnString = "Driver={IBM DB2 ODBC DRIVER};DBALIAS=TEST;UID=***; PWD=***;"
'3. 用OPEN方法建立与数据库连接
objConn.Open strConnString
If objConn.State = 0 Then
Reporter.ReportEvent micFail, "Testing Database Connection", "连接数据库失败"
Else
Reporter.ReportEvent micFail, "Testing Database Connection", "连接数据库成功"
End If
'4. 关闭数据库连接并释放对象实例
objConn.Close
Set objConn = Nothing
[ 本帖最后由 milo.jiang 于 2007-11-5 11:31 编辑 ] |
|