Как экспортировать результат запроса в текстовый файл-

Question

Я Извлечение результатов запроса из базы данных с помощью этого VBS-код:

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

Теперь я хочу, чтобы получить этот результат экспортированного в текстовом-файл.

Как добиться этого с помощью qtp?

Answer 1

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)), чтобы получить отдельные столбцы из набора результатов. число - номер столбца, начиная с нуля.
Если вы не знаете, сколько столбцов используется для каждого цикла, как показано в приведенном выше коде.

(Простой пример для чтения/записи txt файла с vbscript: https://stackoverflow.com/a/2198973/4654008)

Answer 2

Использование .GetString(), вроде:

Set rsDB = objDBConn.Execute(strSQL) 
tsOut.Write rsDB.GetString(adClipString, , ",", vbCrLf, "Null") 

(Очевидно, что вам нужна открытая TextStream и Const определение adClipString)

Update WRT комментарий:

Sample code