這是使用TestDirector數(shù)據(jù)庫的一個例子。

首先在控制面板的ODBC中新建一個DSN，選擇SQL Server連接，名字是td_test(這個可以自己隨便取)，連接服務(wù)器選擇你TD庫保存的DB服務(wù)器名稱。連接你想要查詢的庫名，我這里是gpt_gogs_db，登錄名是td，密碼tdtdtd(在TD中新建一個project時，數(shù)據(jù)庫默認所有者為td，密碼為tdtdtd)，這里僅兩不要使用權(quán)限過大的用戶，因為在

開始編寫腳本了：

======================================================================

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

'這里定義一個二維數(shù)組，第一維表示數(shù)據(jù)庫中查詢結(jié)果中的行，第二維表示查詢結(jié)果中的列，可以看到這里可以一次查詢并存儲兩行兩列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)

'注意這里各個參數(shù)和等號及等號后面賦值是緊跟著的，沒有空格，因為如果有空格的話連接的時候連空格也算上'這樣的話連接的時候就會提示選擇DSN或是輸入用戶名，密碼query = "select bg_bug_id,bg_status from bug where

bg_subject='113'"

'最好在查詢分析器中執(zhí)行一下這條語句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

=================================================================================

這里尤其注意那個設(shè)置二維數(shù)組的地方，這個二維數(shù)組可以一次存儲多個查詢結(jié)果，其結(jié)構(gòu)就類似SQL Server中查詢分析器查詢后的結(jié)果。

如果我生明了兩個二維數(shù)組即可保存不同的查詢結(jié)果。

其讀取查詢內(nèi)容的函數(shù)也應(yīng)該重點看看。

如果想要返回不同的查詢語句結(jié)果，應(yīng)該這樣寫：

=================================================================================

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

'這里定義一個二維數(shù)組，第一維表示數(shù)據(jù)庫中查詢結(jié)果中的行，第二維表示查詢結(jié)果中的列，可以看到這里可以一次查詢并存儲兩行兩列

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")

'注意這里各個參數(shù)和等號及等號后面賦值是緊跟著的，沒有空格，因為如果有空格的話連接的時候連空格也算上

'這樣的話連接的時候就會提示選擇DSN或是輸入用戶名，密碼

query1 = "select bg_bug_id,bg_status from bug where bg_subject='113'"

'最好在查詢分析器中執(zhí)行一下這條語句

query2 = "select bg_bug_id,bg_severity from bug

where bg_subject='113'"

'不同的查詢語句

call SQLExecquery(connect,query1)

call SQLRetrieve(connect,out1())

'執(zhí)行完查詢語句后賦值給一個二維數(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软件测试网-软件测试人的精神家园...的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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