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

来源:互联网 发布:3d效果图制作软件 编辑:程序博客网 时间:2024/06/05 04:28



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 procedurestrSQL = "execute psv_main_clone"rs.Open strSQL, cn, 3, 3Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.CreateTextFile(TextExportFile, True)a = rs.GetStringf.WriteLine af.Close

0 0
原创粉丝点击