VBS查询数据库然后写入到文本文件

最新推荐文章于 2024-09-22 07:00:00 发布

xinke453

最新推荐文章于 2024-09-22 07:00:00 发布

阅读量4.9k

点赞数

分类专栏：编程与测试

本文链接：https://blog.csdn.net/xinke453/article/details/23665403

版权

编程与测试专栏收录该内容

20 篇文章 0 订阅

订阅专栏

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