下面的代码快速导出ado.recordset中的数据至文本文件: csv格式,一般的程序都能直接打开获导入(excel,access,sqlserver...)dim ExpData as string dim adoReport as adodb.recordset ........ adoReport.movefirst'写标题************** ExpData = adoReport.Fields(0).Name For I = 1 To adoReport.Fields.Count - 1 ExpData = ExpData & "," & adoReport.Fields(I).Name Next I ExpData = ExpData & Chr(10)'取数据,csv格式,只需一句:******************* ExpData = ExpData & adoReport.GetString(adClipString, , ",", Chr(10), ",")'两句话既可放入剪贴板,粘贴到excel等应用程序中去****************** Clipboard.clear Clipboard.SetText ExpData '存入csv文件,excel等应用程序可直接打开******************* dim strFileName as string strfilename = "c:\aaa.csv" '此处可用CommonDialog等生成文件名**** Open strFileName For Output As #1 Print #1, ExpData Close #1
你可以参考用GetString方法获取文本,放到文件里面去
csv格式,一般的程序都能直接打开获导入(excel,access,sqlserver...)dim ExpData as string
dim adoReport as adodb.recordset
........
adoReport.movefirst'写标题**************
ExpData = adoReport.Fields(0).Name
For I = 1 To adoReport.Fields.Count - 1
ExpData = ExpData & "," & adoReport.Fields(I).Name
Next I
ExpData = ExpData & Chr(10)'取数据,csv格式,只需一句:*******************
ExpData = ExpData & adoReport.GetString(adClipString, , ",", Chr(10), ",")'两句话既可放入剪贴板,粘贴到excel等应用程序中去******************
Clipboard.clear
Clipboard.SetText ExpData '存入csv文件,excel等应用程序可直接打开*******************
dim strFileName as string
strfilename = "c:\aaa.csv" '此处可用CommonDialog等生成文件名****
Open strFileName For Output As #1
Print #1, ExpData
Close #1
excle可以直接打开csv文件
access,sqlserver你找到他倒入数据的菜单或功能,都可以直接支持csv文件倒入
你还可以用记事本等文本编辑器直接打开
总之,文本文件是最通用的格式了
操作是在前台进行的.
它们的速度还可以呀.功能也不错