QTP连接数据库

 '=========================================================连接数据库取值=================================================================
  Dim Cnn,result ,resultstring
  Set Cnn=CreateObject("ADODB.Connection")
  Cnn.ConnectionString="DSN=Oracle;UID=popware;PWD=popware;DBQ=POPDB_NEW

;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;;"
  Cnn.Open
  If Cnn.state = 0 Then
   Reporter.ReportEvent  micFail ,"数据库连接:","连接失败"
  else
     Reporter.ReportEvent  micPass,"数据库连接:","连接成功"
  End If
  strsql="select VENDER_ID from  VENDER_SHOP where VENDER_ID=20921"
 
 '  strsql2="select count(*) from  VENDER_SHOP where VENDER_ID=10001"
  set Rs=CreateObject("ADODB.Recordset")
     Rs.Open strsql,Cnn,0,1
   result=Rs("VENDER_ID")
    '  msgbox typename (result)
   resultstring=cstr(result) '数值转换为字符串