如何将查询结果导出到txt文件

rookie 发表于 Dev

菜鸟

我正在使用此vbs代码从数据库中获取查询结果：

strSQL = "select * from EMP"
Set rsDB = objDBConn.Execute(strSQL)

现在，我想将此结果导出到txt文件中。

如何使用QTP做到这一点？

汤玛士

set database = createobject ("ADODB.connection")
connectionString = "Driver={SQL Server};Server=" + sql_server + ";Uid=" + sql_user + ";Pwd=" + sql_password + ";" 
database.ConnectionString = connectionString
database.Open

sql = "select * from [testdb].[dbo].[table1]"
set resultset = database.Execute(sql)

Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="c:\output.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)

Dim row, first_field
while not resultset.EOF

    row = ""
    first_field = true

    For Each field In resultset.Fields
        if (first_field = true) then
            row = field
            first_field = false
        else
            row = row & ";" & field
        end if
    Next ' field

    objFile.Write row & vbCrLf

    resultset.MoveNext
wend

objFile.Close

如果列数固定：
使用CStr（resultset（0））从结果集中获取单独的列。number是列的编号，从零开始。
如果您不知道有多少列使用如上代码所示的“每个循环”。

（使用vbscript读取/写入txt文件的简单示例：https : //stackoverflow.com/a/2198973/4654008）

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。