如何将数据库中的内容按一定格式存到文本文件中.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 9 行

Open "test.txt" For Output As 1 
    Data1.Recordset.MoveFirst 
    Do While Not Data1.Recordset.EOF 
     Print #1, Data1.Recordset("字 段 1"); ", "; ' 不 换 行 
     Print #1, Format(Data1.Recordset("字 段 2"), "###.##") 
     Data1.Recordset.MoveNext 
    Loop 
    Close #1 
<END>