軟件測試開源工具Rational Robot SQABasic數據庫操作相關命令[4]

       參數是必需參數。返回變量。

　　如果maxColumns或maxRows被缺省，數組大小被用來確定獲得的行列的最大數目，并返回整個結果集是一個嘗試。通過再次使用SQLRetrieve和把fetchFirst設置為0，額外行可以被獲得。如果maxColumns指定比結果中可用的更少的列，SQLRetrieve拋棄右邊結果列只到結果與指定大小相適合。

　　當columnNames是非0，數組的第1行將放置數據庫計劃(database schema)指定的列名稱。 當 rowNumbers是非0，行數目返回到destination()的第1列。SQLRetrieve將清空用戶的數組來獲得結果。

　　當fetchFirst 是非0，它將結果重新配置到第一行，前提是如果數據庫支持此功能。如果數據庫不支持此功能，結果設置 –1錯誤被返回。

　　如果結果集有比可以被destination()數組包含還多的行或比用maxRows請求還多的行，用戶可以重復調用SQLRetrieve只到返回值為0為止。 SQLRetrieve Example

　　This example retrieves information from a data source.

　　Sub main

　　'' Declarations

　　''

　　Dim connection As Long

　　Dim destination(1 To 50, 1 To 125) As Variant

　　Dim retcode As long

　　Dim query as String

　　Dim outputStr as String

　　connection = SQLOpen("DSN=SblTest",outputStr,prompt:=3)

　　''

　　'' Execute the query

　　query = "select * from customer"

　　retcode = SQLExecQuery(connection,query)

　　'' retrieve the first 50 rows with the first 6 columns of each row into

　　'' the array destination, omit row numbers and put column names in the

文章來源于領測軟件測試網 http://www.kjueaiud.com/