robot连接mysql_robot连接mysql - autocar - 51Testing软件测试网 51Testing软件测试网-软件测试人的精神家园...
這是使用TestDirector數(shù)據(jù)庫(kù)的一個(gè)例子。
首先在控制面板的ODBC中新建一個(gè)DSN,選擇SQL Server連接,名字是td_test(這個(gè)可以自己隨便取),連接服務(wù)器選擇你TD庫(kù)保存的DB服務(wù)器名稱(chēng)。連接你想要查詢(xún)的庫(kù)名,我這里是gpt_gogs_db,登錄名是td,密碼tdtdtd(在TD中新建一個(gè)project時(shí),數(shù)據(jù)庫(kù)默認(rèn)所有者為td,密碼為tdtdtd),這里僅兩不要使用權(quán)限過(guò)大的用戶(hù),因?yàn)樵?/p>
開(kāi)始編寫(xiě)腳本了:
======================================================================
Sub Main
Dim Result As Integer
Dim connect as long
Dim outputstr,query as string
Dim out(1 to 2,1 to 16) as
variant
'這里定義一個(gè)二維數(shù)組,第一維表示數(shù)據(jù)庫(kù)中查詢(xún)結(jié)果中的行,第二維表示查詢(xún)結(jié)果中的列,可以看到這里可以一次查詢(xún)并存儲(chǔ)兩行兩列dim retcode as variant
dim i as integer
'Initially Recorded:2005-7-18
22:16:12
'scrīpt Name: sqltest
connect =
SQLOpen("DSN=td_test;UID=td;PWD=tdtdtd",outputstr)
'注意這里各個(gè)參數(shù)和等號(hào)及等號(hào)后面賦值是緊跟著的,沒(méi)有空格,因?yàn)槿绻锌崭竦脑?huà)連接的時(shí)候連空格也算上'這樣的話(huà)連接的時(shí)候就會(huì)提示選擇DSN或是輸入用戶(hù)名,密碼query = "select bg_bug_id,bg_status from bug where
bg_subject='113'"
'最好在查詢(xún)分析器中執(zhí)行一下這條語(yǔ)句call SQLExecquery(connect,query)
call SQLRetrieve(connect,out())
msgbox out(1,1)
msgbox out(2,1)
msgbox out(1,2)
msgbox out(2,2)
'顯示保存的結(jié)果'??? next
call sqlclose(connect)
End Sub
=================================================================================
這里尤其注意那個(gè)設(shè)置二維數(shù)組的地方,這個(gè)二維數(shù)組可以一次存儲(chǔ)多個(gè)查詢(xún)結(jié)果,其結(jié)構(gòu)就類(lèi)似SQL Server中查詢(xún)分析器查詢(xún)后的結(jié)果。
如果我生明了兩個(gè)二維數(shù)組即可保存不同的查詢(xún)結(jié)果。
其讀取查詢(xún)內(nèi)容的函數(shù)也應(yīng)該重點(diǎn)看看。
如果想要返回不同的查詢(xún)語(yǔ)句結(jié)果,應(yīng)該這樣寫(xiě):
=================================================================================
SubMain
Dim
Result As Integer
Dim
connect as long
Dim
outputstr,query1,query2 as string
Dim
out1(1 to 2,1 to 1) as variant
Dim
out2(1 to 2,1 to 1) as variant
'這里定義一個(gè)二維數(shù)組,第一維表示數(shù)據(jù)庫(kù)中查詢(xún)結(jié)果中的行,第二維表示查詢(xún)結(jié)果中的列,可以看到這里可以一次查詢(xún)并存儲(chǔ)兩行兩列
dim
retcode as variant
dim
i as integer
'Initially Recorded:2005-7-18? 22:16:12
'scrīpt Name: sqltest
connect = SQLOpen("DSN=td_test;UID=td;PWD=tdtdtd")
'注意這里各個(gè)參數(shù)和等號(hào)及等號(hào)后面賦值是緊跟著的,沒(méi)有空格,因?yàn)槿绻锌崭竦脑?huà)連接的時(shí)候連空格也算上
'這樣的話(huà)連接的時(shí)候就會(huì)提示選擇DSN或是輸入用戶(hù)名,密碼
query1 = "select bg_bug_id,bg_status from bug where bg_subject='113'"
'最好在查詢(xún)分析器中執(zhí)行一下這條語(yǔ)句
query2 = "select bg_bug_id,bg_severity from bug
where bg_subject='113'"
'不同的查詢(xún)語(yǔ)句
call SQLExecquery(connect,query1)
call SQLRetrieve(connect,out1())
'執(zhí)行完查詢(xún)語(yǔ)句后賦值給一個(gè)二維數(shù)組,切記!
call SQLExecquery(connect,query2)
call sqlretrieve(connect,out2())
msgbox out1(1,1)
msgbox out1(2,1)
msgbox out2(1,1)
msgbox out2(2,1)
'顯示保存的結(jié)果
'
next
call sqlclose(connect)
End Sub
總結(jié)
以上是生活随笔為你收集整理的robot连接mysql_robot连接mysql - autocar - 51Testing软件测试网 51Testing软件测试网-软件测试人的精神家园...的全部?jī)?nèi)容,希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇: mysql da_DA面板如何管理Mys
- 下一篇: flask查询mysql数据展示_fla