2012-02-27 57 views

回答

1

查詢結果的格式是什麼?如果它是一個簡單的字符串,你可能可以做這樣的事情,或者你可能需要提取你需要的位。

下面是使用FileSystemObject寫一個字符串到一個文本文件中的代碼:

Const fsoForAppend = 8 

Dim objFSO 
Dim queryResult 

queryResult = 'OMG no results' 

Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 

'Open the text file 
Dim objTextStream 
Set objTextStream = objFSO.OpenTextFile("C:\path\to\logfile.txt", fsoForAppend) 

'Write the results to the textfile 
objTextStream.WriteLine queryResult 

'Close the file and clean up 
objTextStream.Close 
Set objTextStream = Nothing 
Set objFSO = Nothing 
+0

查詢從表中輸出數據,所以它的表格格式。此外,我沒有現有的文件打開和追加,我將不得不創建一個新的文件,並將查詢輸出寫入它。 – user793468 2012-02-27 17:09:46

+1

如果該文件不存在,以fsoForAppend模式打開它應該爲您創建它。 至於你的查詢結果,它可能是一個記錄集,所以最好的方法可能是循環它並輸出一行。 – managedheap84 2012-02-27 18:19:21