QTP从数据库获取数据的例子

oftime999

做实验的时候需要把Cmd.activeconnection="Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;修改成自己计算机上的信息,用粗体表示了.用的是sql server数据库

Dim res,cmd,sql
Set Res=createobject("adodb.recordset")
Set Cmd=createobject("adodb.command")
Cmd.activeconnection="Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=192.168.0.69"
Cmd.CommandType = 1
sql="select emp_id,fname from dbo.employee"
Cmd.CommandText = sql
Set res = Cmd.Execute()
i=1

While not res.eof
                     logid =  res("emp_id").value
                    logname=res("fname").value   
                                        print logid
                                        pint logname
                                 
                                       
  i=i+1
                      res.movenext                  
wend
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing

walker1020

Thanks a lot

cute

网上的例子都是ODBC的,请教楼主JDBC的怎么连接,获取数据?
不懂JDBC,依葫芦画不出瓢来-_-#

cheryl

很好的例子，赞一个！

tiger_86

谢谢lz

log_1

谢了

angelia_liu

学习了,谢谢楼主

free1998

不错，赞一个

yuyunlu

还没到这个深度 支持一下

luxiuxiu1987

支持，先收藏

lyscser

用ORARLEDB.1是不是好些？

lyscser

之前有个大佬给出过各种连接数据库的不同写法
一、SQL Server格式(本地无需安装SQL Server)

connectionstring(连接字符串):

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

二、DB2格式：

(本地至少安装DB2 Run-Time Client Lite)

connectionstring(连接字符串):

1.本地没有创建数据源的方式

DRIVER={IBM DB2 ODBC DRIVER};UID=用户名;WD=密码;MODE=SHARE;DBALIAS=数据库名;

实例：

DRIVER={IBM DB2 ODBC DRIVER};UID=db2admin;WD=db2admin;MODE=SHARE;DBALIAS=DCWORK;

2.本地已创建数据源的方式

DSN=数据源名称;UID=用户名;WD=密码;MODE=SHARE;DBALIAS=DCWORK;

实例：

DSN=DWCORKDB2;UID=db2admin;WD=db2admin;MODE=SHARE;DBALIAS=DCWORK;

三、Oracle格式：(本地需要安装Oracle ODBC DRIVER)

connectionstring(连接字符串):

1.本地没有创建数据源的方式

DRIVER={Oracle in OraHome92};SERVER=数据库服务名;UID=用户名;WD=密码;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;FC=10;TLO=O;

实例：

DRIVER={Oracle in OraHome92};SERVER=DCWORK;UID=DCWORK;WD=DCWORK; DBQ=DCWORK;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;FC=10;TLO=O;

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; 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;FC=10;TLO=0;

lyscser

调存储过程的实例，不过连接方式可以参照上文修改，这里只是体现出有数据源的情况
Ø  无结果返回
Dim adoconn         'Connection Object
Dim adocomm      'Connection Command
Set adoconn  = CreateObject("ADODB.Connection")
Set adocomm = CreateObject("ADODB.Command")
adoconn.Open "DSN=cowstg;UID=user;WD=asdf4321;SERVER=cowstg"
adocomm.ActiveConnection = adoconn
adocomm.CommandType = 4
adocomm.CommandText ="practice"    '包名称
adocomm.Execute
Set adocomm = Nothing
Set adoconn = Nothing

Ø  有结果返回
Set con = CreateObject("ADODB.Connection")
con.open "DSN=QTP_PAS;SERVER=cowstg;UID=pascde;WD=****;"  
set   mycommand=CreateObject("adodb.command")   
mycommand.CommandType=4   
mycommand.CommandText="pas_cp_upload_pkg.get_invest_account"   
mycommand.Parameters.Append   mycommand.CreateParameter("memno",200,1,60,"MC*12")
mycommand.Parameters.Append   mycommand.CreateParameter("countype",200,1,60,"03")
mycommand.Parameters.Append   mycommand.CreateParameter("counsource",200,1,60,"01")
mycommand.Parameters.Append   mycommand.CreateParameter("taxtype",200 ,1,60,"02")
mycommand.Parameters.Append   mycommand.CreateParameter("fundid",200,1,60,"MC*21")
mycommand.Parameters.Append   mycommand.CreateParameter("balance",200 ,2,60)  
mycommand.Parameters.Append   mycommand.CreateParameter("status",200,2,60)  
set mycommand.ActiveConnection=con  
mycommand.execute  

msgbox   mycommand.Parameters("balance")
msgbox   mycommand.Parameters("status")