软件测试开源工具Rational Robot SQABasic数据库操作相关命令[3]
关键字：SQABasic 数据库 命令
SQLGetSchema Example
This example opens the data source named "SblTest," gets the names in the ODBC data sources, and closes the connection.
Sub main
'' Declarations
Dim outputStr As String
Dim connection As Long
Dim prompt As Integer
Dim datasources(1 To 50) As Variant
Dim retcode As Variant
Dim action1 as Integer
Dim qualifier as String
prompt = 5
'' Open the datasource "SblTest"
connection = SQLOpen("DSN=SblTest", outputStr, prompt:=5)
action1 = 1 '' Get the names of the ODBC datasources
retcode = SQLGetSchema(connection:=connection,action:=1, qualifier:=qualifier, ref:=datasources())
'' Close the datasource connection
retcode = SQLClose(connection)
End Sub
SQLOpen 功能函数
建立一个到在connectStr里指定的ODBC数据源的连接并返回一个连接ID，并将完全的连接字符串赋予outputStr变量。如果连接不可用，返回ODBC错误的负数。
SQLOpen ( connectStr$ [ , outputStr$] [ , prompt%] )
语法： 参数 解释
connectStr$ 指定参数，必须参数。
outputStr$ 可选
prompt% 可选。Prompt指定何时驱动对话框出现。可选项：
文章来源于领测软件测试网 https://www.ltesting.net/