如何将数据库的数据导入文本文件。高分请教

解决方案 »

  1.   

    取出数据,写到文本文件.
    Open "f:\abc.txt" For Output As #1 
    Print #1, LCase("写入的内容") '你可以做一个循环,不断地执行这句,可以写入其它数据
    Close #1
      

  2.   

    不好意思,Print #1, LCase("写入的内容"),里面的内容是你数据库的所有内容,你用一个循环将所有数据附给一个变量,如
    dim strTemp as string
    strtemp="你数据库的所有内容"Open "f:\abc.txt" For Output As #1 
    Print #1, LCase(strtemp) 
    Close #1
      

  3.   

    我是把所有的数据赋给一个变量
    Print #1,变量我不清楚我的方法在数据量比较大的时候,会什么样
      

  4.   

    不用循环,可以用getstring把recordset转化为字符串。dim rst as recordset
    .......
    Open "f:\abc.txt" For Output As #1 
    Print #1, rst.getstring(2,,",", vbCrLf)
    Close #1