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

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

　　關鍵字：SQABasic 數據庫 命令

　　注解：

　　對于SQL SELECT返回結果集的欄數目;對于UPDATE, INSERT, 或 DELETE返回受語句作用的行的數目。任何其它SQL語句返回0。如果函數在指定數據源不能執行此查詢，或如果連接不可用，則返回為負的錯誤編碼。

　　如果SQLExecQuery被調用但連接上還有一些未處理結果，則這些等待結果被新的結果所代替。 SQLExecQuery Example

　　This example performs a query on the data source.

　　Sub main

　　'' Declarations''

　　Dim connection As Long

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

　　Dim retcode As long

　　Dim outputStr as String

　　Dim query as String

　　'' open the connection

　　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

　　'' first row of the array

　　retcode = SQLRetrieve(connection:=connection,destination:=destination,columnNames:=1,rowNumbers:=0,maxRows:=50, maxColumns:=6,fetchFirst:=0)

　　'' Get the next 50 rows of from the result set

　　retcode = SQLRetrieve(connection:=connection,destination:=destination,columnNames:=1,rowNumbers:=0,maxRows:=50, maxColumns:=6)

　　'' Close the connection

　　retcode = SQLClose(connection)

　　End Sub

　　SQLGetSchema功能函數

原文轉自：http://www.anti-gravitydesign.com