VBS Get Sql Server Table Data and Export to CSV File...

最新推荐文章于 2021-02-22 06:30:43 发布

iteye_20835

最新推荐文章于 2021-02-22 06:30:43 发布

阅读量61

点赞数

文章标签： SQL Server SQL

'----------------------------------------------------
'Author: Lilo.Zhu
'Creation Date: 2010-05-26
'Description: Get MES Hyperion and Export to CSV File
'-----------------------------------------------------
Dim Input
Input = InputBox("Enter your Export File Name:" & vbCrLf & vbCrLf & "Eg:" & vbCrLf & vbCrLf &"\\dg2pcXXX\ShareFolder\")
If Input <>"" then
set conn = CreateObject("ADODB.Connection")
conn.open _
"Provider=SQLOLEDB;Data Source=dr_mesdb;" & _
"Trusted_Connection=Yes;Initial Catalog=InsiteProdDG;" & _
"User ID=sqlreport;Password=sqllqs;"

set rs = conn.execute("SELECT * FROM WIPDOLLAR_Hyperion_view")
csvText = rs.getString(2,,",",VBCrLf)
rs.close: set rs = nothing
conn.close: set conn = nothing

Dim l_sn
l_sn=Replace(Now,"-","")
l_sn=Replace(l_sn,":","")
l_sn=Replace(l_sn," ","")

set fso = CreateObject("Scripting.FileSystemObject")
set fs = fso.CreateTextFile(Input& l_sn &".csv", true)
fs.writeline(csvText)
fs.close: set fs = nothing
set fso = nothing
End if