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

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

LiloZhu

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

阅读量3.2k

点赞数

分类专栏： VBScript / JavaScript 文章标签： sql server csv table input file date

本文链接：https://blog.csdn.net/zwxrain/article/details/5625452

版权

VBScript / JavaScript 专栏收录该内容

16 篇文章 0 订阅

订阅专栏

'----------------------------------------------------
'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