祝大家新年快樂，有任何問題可與我聯絡：
二、**方式：
(1)、
set con=createobject("adodb.connection")
conset="driver=;server=oracle;uid=llr;;pwd=llr;"
con.open conset
if con.state=0 then
msgbox"failed"
else
msgbox"pass"
end if
set con=createobject("adodb.connection")
conset="driver=;server=oracle;uid=llr;;pwd=llr;"
con.open conset
if con.state=0 then
msgbox"failed"
else
msgbox"pass"
end if
其中server是服務名，就是在系統的管理工具裡面進行配置的服務名，uid是使用者名稱，pwd是密碼。
(2)、
dim cnn
set cnn = createobject("adodb.connection")
cnn.connectionstring ="dsn=oracle;uid=llr;pwd=llr;dbq=oracle ;dba=w;apa=t;exc=f;fen=t;qto=t;frc=10;fdl=10;lob=t;rst=t;btd=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, "testing", "連線資料庫失敗"
msgbox "連線資料庫失敗"
else
reporter.reportevent micpass, "testing", "連線資料庫成功"
msgbox "連線資料庫成功"
end if
dim cnn
set cnn = createobject("adodb.connection")
cnn.connectionstring ="dsn=oracle;uid=llr;pwd=llr;dbq=oracle ;dba=w;apa=t;exc=f;fen=t;qto=t;frc=10;fdl=10;lob=t;rst=t;btd=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, "testing", "連線資料庫失敗"
msgbox "連線資料庫失敗"
else
reporter.reportevent micpass, "testing", "連線資料庫成功"
msgbox "連線資料庫成功"
end if
其中dsn：資料來源名稱，也是在系統的管理工具裡面的配置的服務名，uid是使用者名稱，pwd是密碼，dbq是資料庫名
~謝謝打賞~手機請長按~
贊 賞
qtp查詢mysql QTP如何連線 查詢資料庫
完整的連線指令碼 dim conn set conn createobject adodb.connection 建立資料庫例項 const connectionstring driver database test pwd root port 3306 server localhost uid r...
qtp查詢mysql QTP連線資料庫的乙個例項
定義乙個變數 dim cnn 建立乙個adodb物件，賦值給這個變數 set cnn createobject adodb.connection 連線指定的資料庫，使用者名稱密碼和資料來源名稱 data source就是步驟一建立的資料來源名稱 根據實際環境填寫 cnn.connectionstri...
QTP中針對不同型別語言編寫的計算器的測試指令碼
表達對語言支援的重要性，不同的物件需要不同的物件支援 1.vb dim calcstr calcstr inputbox please input calc calc 95 27 vbwindow form1 activate for i 1to len calcstr vbwindow form1...