Qtp 连接数据库 （My sql 方法 ）

’这个是建立在机器上已经安装了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事件触发时锁定