51Testing软件测试论坛

标题: qtp 连接SQL和连接MYSQL 是否一样 [打印本页]

作者: lhjtc8257 时间: 2009-7-7 20:19
标题: qtp 连接SQL和连接MYSQL 是否一样
qtp 连接SQL和连接MYSQL 是否一样?

作者: Jun_Li 时间: 2009-7-7 20:27
SQL
1.本地没有创建数据源的方式
DRIVER=SQL Server;SERVER=数据库IP地址;UID=用户名

WD=密码;APP=Microsoft Office 2003;WSID=本地主机名;DATABASE=数据库名
实例：
DRIVER=SQL Server;SERVER=10.160.11.10;UID=sa

WD=sa;APP=Microsoft Office 2003;WSID=RJHLJUN;DATABASE=dcwork
2.本地已创建数据源的方式
DSN=数据源名称;UID=用户名

WD=密码;APP=Microsoft Office 2003;WSID=数据库的主机名;DATABASE=数据库名
实例：
DSN=LocalServer;UID=sa

WD=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

MYSQL格式：(本地需要安装MYSQL ODBC DRIVER)
Dim Cnn
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString ="DATABASE=testmysql;DSN=192.168.1.63;OPTION=0

WD=123456

ORT=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=用户名

WD=密码;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

FC=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

FC=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

作者: mylaurel 时间: 2009-7-7 23:53
thanks,study

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)