|
gold_85 的 QTP手动连接SQL Server/DB2/Oracle数据库的方法 Quicktest professional 各种库据库的联接方法，手动指定SQL语句的写法。 一、SQL Server格式(本地无需安装SQL Server) connectionstring(连接字符串): 1.本地没有创建数据源的方式 DRIVER=SQL Server;SERVER=数据库IP地址;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=本地主机名;DATABASE=数据库名 实例： DRIVER=SQL Server;SERVER=10.160.11.10;UID=sa;PWD=sa;APP=Microsoft Office 2003;WSID=RJHLJUN;DATABASE=dcwork 2.本地已创建数据源的方式 DSN=数据源名称;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=数据库的主机名;DATABASE=数据库名 实例： DSN=LocalServer;UID=sa;PWD=sa;APP=Microsoft Office 2003;WSID=RJDCWORKTEST;DATABASE=dcwork 3.SQL语句实例(从数据库表HR_LANGUAGE_TYPE中，查询字段语言名称LANGUAGE_NAME，条件语言名称＝中文，按语言名称升序排序结果) source(SQL语句): SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME FROM dcwork.dbo.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME='中文') ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME 二、DB2格式：(本地至少安装DB2 Run-Time Client Lite) connectionstring(连接字符串): 1.本地没有创建数据源的方式 DRIVER={IBM DB2 ODBC DRIVER};UID=用户名;PWD=密码;MODE=SHARE;DBALIAS=数据库名; 实例： DRIVER={IBM DB2 ODBC DRIVER};UID=db2admin;PWD=db2admin;MODE=SHARE;DBALIAS=DCWORK; 2.本地已创建数据源的方式 DSN=数据源名称;UID=用户名;PWD=密码;MODE=SHARE;DBALIAS=DCWORK; 实例： DSN=DWCORKDB2;UID=db2admin;PWD=db2admin;MODE=SHARE;DBALIAS=DCWORK; 3.SQL语句实例 source:SQL语句 SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME FROM DB2ADMIN.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME='中文') ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME 三、Oracle格式：(本地需要安装Oracle ODBC DRIVER) connectionstring(连接字符串): 1.本地没有创建数据源的方式 DRIVER={Oracle in OraHome92};SERVER=数据库服务名;UID=用户名;PWD=密码;DBQ=数据库名;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O; 打开QTP 1.insert--checkpoint--database checkpoint 2.在弹出来的窗口选择第二项 specify SQL ....,然后点下一步,再点create 自己创建一下ODBC,如果能链通ORACLE,那在QTP回放应该没有问题 我的是LINUX AS4+ORACLE 10G 在QTP中的脚本是 Dim Cnn Set Cnn = CreateObject("ADODB.Connection") Cnn.ConnectionString ="DRIVER={Oracle in OraClient10g_home1};SERVER=TEST;UID=system;PWD=test;DBQ=TEST;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;" Cnn.Open If Cnn.State = 0 Then Reporter.ReportEvent micFail, "testing", "连接数据库失败" else Reporter.ReportEvent micPass, "testing", "连接数据库成功" end if 回放是通过的! 先确定你的ODBC能否正确连通先! 四 MYSQL格式：(本地需要安装MYSQL ODBC DRIVER) Dim Cnn Set Cnn = CreateObject("ADODB.Connection") Cnn.ConnectionString ="DATABASE=testmysql;DSN=192.168.1.63;OPTION=0;PWD=123456;PORT=0;SERVER=192.168.1.63;UID=root" Cnn.Open If Cnn.State = 0 Then Reporter.ReportEvent micFail, "testing", "连接数据库失败" else Reporter.ReportEvent micPass, "testing", "连接数据库成功" end if 2.本地已创建数据源的方式 DSN=数据源名称;UID=用户名;PWD=密码;DBQ=数据库名;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0; 实例： DSN=dcworkoracle;UID=DCWORK;DBQ=DCWORK;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0; 3.SQL语句实例 source:SQL语句 SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME FROM DCWORK.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME='中文') ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME 五 access Set Conn = CreateObject("ADODB.Connection" ) str="Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=c:/db1.mdb" Conn.open str Set Rs = CreateObject ("ADODB.Recordset" ) |
|
|
