軟件測試開發技術SQABasic數據庫命令

       Dim destination As String

　　Dim retcode As Long

　　Dim query as String

　　Dim outputStr as String

　　Dim filename as String

　　Dim columnDelimiter as String

　　''''

　　'''' Open the connection

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

　　'''' Execute the query

　　''''

　　query = "select * from customer"

　　retcode = SQLExecQuery(connection,query)

　　'''' Place the results of the previous query in the file named by

　　'''' filename and put the column names in the file as the first row.

　　'''' The field delimiter is %

　　''''

　　[NextPage]

　　filename = "c:\myfile.txt"

　　columnDelimiter = "%"

　　retcode = SQLRetrieveToFile(connection:=connection,destination:=filename, columnNames:=1,columnDelimiter:=columnDelimiter)

　　retcode = SQLClose(connection)

　　End Sub

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