取出数据,写到文本文件. Open "f:\abc.txt" For Output As #1 Print #1, LCase("写入的内容") '你可以做一个循环,不断地执行这句,可以写入其它数据 Close #1
不好意思,Print #1, LCase("写入的内容"),里面的内容是你数据库的所有内容,你用一个循环将所有数据附给一个变量,如 dim strTemp as string strtemp="你数据库的所有内容"Open "f:\abc.txt" For Output As #1 Print #1, LCase(strtemp) Close #1
我是把所有的数据赋给一个变量 Print #1,变量我不清楚我的方法在数据量比较大的时候,会什么样
不用循环,可以用getstring把recordset转化为字符串。dim rst as recordset ....... Open "f:\abc.txt" For Output As #1 Print #1, rst.getstring(2,,",", vbCrLf) Close #1
Open "f:\abc.txt" For Output As #1
Print #1, LCase("写入的内容") '你可以做一个循环,不断地执行这句,可以写入其它数据
Close #1
dim strTemp as string
strtemp="你数据库的所有内容"Open "f:\abc.txt" For Output As #1
Print #1, LCase(strtemp)
Close #1
Print #1,变量我不清楚我的方法在数据量比较大的时候,会什么样
.......
Open "f:\abc.txt" For Output As #1
Print #1, rst.getstring(2,,",", vbCrLf)
Close #1