VBS查询数据库然后写入到文本文件
浏览数：15 /
时间：2015年06月12日
TextExportFile = "sExportFile.txt"
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=FILENAME.mdb; jet oledb:database password=abcdef"
‘Here the strSQL can be a SQL sentense or a Stored procedure
strSQL = "execute psv_main_clone"
rs.Open strSQL, cn, 3, 3
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(TextExportFile, True)
a = rs.GetString
f.WriteLine a
f.Close
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
