问自己今天是否比明天进步了 !

Qtp 连接数据库 (My sql 方法 )

上一篇 / 下一篇  2011-10-26 10:28:35 / 个人分类:QTP学习

’这个是建立在机器上已经安装了my sql 驱动 ,在管理工具中已经建立了数据源基础上 !

Dim  Cnn 
Set  Cnn= CreateObject("ADODB.connection")
Cnn.open="DATABASE=databasename;DSN=数据源名称;OPTION=0;PWD=demo12;PORT=3306;SERVER=serverIp;UID=root"

If Cnn.State=0 Then

Reporter.ReportEvent micFail,"testing","fail"
 else
 Reporter.ReportEvent micPass,"testing","successful"
 
End If 

 

RS.OPEN   SQL,CONN,A,B  
A:   ADOPENFORWARDONLY(=0)   只读,且当前数据记录只能向下移动  
ADOPENSTATIC(=3)   只读,当前数据记录可自由移动  
ADOPENKEYSET(=1)   可读写,当前数据记录可自由移动  
ADOPENDYNAMIC(=2)   可读写,当前数据记录可自由移动,可看到新增记录  

B:   ADLOCKREADONLY(=1)   默认值,用来打开只读记录  
ADLOCKPESSIMISTIC(=2)   悲观锁定  
ADLOCKOPTIMISTIC(=3)   乐观锁定  
ADLOCKBATCHOPTIMISTIC(=4)   批次乐观锁定  

rs是记录集对象,open是其方法,sql是自定义的sql语句,conn是已打开的数据库连接。后面的1,3,就如楼上所说,是记录集的游标和锁类型。


ADLOCKPESSIMISTIC(=2)   悲观锁定   当记录集打开的时候将其锁定
ADLOCKOPTIMISTIC(=3)   乐观锁定     当记录集的update事件触发时锁定

 


TAG:

 

评分:0

我来说两句

Open Toolbar