這是使用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)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。