使用VBScript将数据库导出到csv

时间:2017-10-23 18:08:38

标签: database csv vbscript

我试图找到一个教程或片段来帮助我开始连接到我们的数据库并使用VBScript下载内容。我有以下代码,似乎有效:

<%@ Language=VBScript  CODEPAGE=65001 %>
<% Option Explicit %>
<%response.Buffer=true%>
<!-- #include file="connect.asp" -->

之后,我找到了1个代码示例,但是当我尝试运行它时,我得到500错误。老实说,我甚至不太确定这种语法的作用。任何帮助都有助于解释这一点。

<%
sql = "select *"
set resultset = connect.Execute(sql)
Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="c:\exportDB.csv"
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
%>

**修订 看来我们的开发服务器已经关闭了功能,这不允许我运行这些代码块和其他一些代码块。现在纠正了这一切,一切都按预期运行。

0 个答案:

没有答案