QTP要进行数据库检查点之前,需要先连接数据库:
1.在控制面板-管理工具-数据源(ODBC)创建数据源。(windows要先安装相应的odbc驱动包)
2.在qtp中创建连接。
'定义一个变量
Dim Cnn
'创建一个ADODB对象,赋值给这个变量
Set Cnn =CreateObject("ADODB.Connection")
'连接指定的数据库,用户名密码和数据源名称(Data Source就是步骤一创建的数据源名称)根据实际环境填写
Cnn.ConnectionString="Provider=OraOLEDB.Oracle.1;Persist Security Info=False;UserID=mibs;Password=mibs;Data Source=mibs71" ' oracle
Cnn.ConnectionString="Provider=MSDASQL.1;Password=db2inst1;Persist Security Info=True;User ID=db2inst1;Data Source=39_xbankred" ' db2
这次的主题就是上面的这个连接字符串,我为了找到这个连接字符串,发费了我半天时间,后来找到了一个很好的方法,就是让它自动生成连接字符串,这样就不怕因为数据库的不同,连接字符串也不同了。方法如下:
1.新建一个文件,取名a.udl,后瑞是udl就行
2.双击打开该文件,弹出如下图
3.选择数据源名称,输入数据库用户和密码,点击确定按钮,就自动生成连接字符串了。
或者你如果没有事先建立数据源的话,也可以从【提供程序】开始,然后一步一步的按提示信息进行操作,最后测试一下是否能连接成功,然后点击确定按钮,就自动生成了。
这样做的好处就是,效率高,而且一定能连接成功。并且适合各种数据库的连接。