retcode = SQLClose(connection)
End Sub
SQLError功能函數
可以用來接收做ODBC函數調用時發生的多條錯誤的詳細信息。為最近ODBC函數調用和連接返回錯誤信息。
SQLError ( destination() )
語法: 參數 解釋
destination() 兩維數組的每行包含一個錯誤。名稱參數是必要的,必須是變量的數組。
注解
沒有返回值。域: 1) 表示ODBC錯誤類型/下級分類的字符串, 2)表示數據源錯誤編碼的數字值, 3)表示錯誤的文本信息。
如果沒有錯誤從先前的ODBC函數調用發生,則0被返回到調用者數組的(1,1)里。如果數組不是2維的或不支持上面提到的三個域,則一個錯誤信息被返回到調用者數組的(1,1)里。 SQLError Example
This example forces an error to test SQLError function.
sub main
'' Declarations
Dim connection As long
Dim prompt as integer
Dim retcode as long
Dim errors(1 To 3, 1 To 10) as Variant
Dim outputStr as String
'' Open the datasource
connection = SQLOpen("DSN=SBLTESTW
文章來源于領測軟件測試網 http://www.kjueaiud.com/