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

VB技巧问答10000例 VB技巧问答10000例

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>