请问：如何将ACCESS数据的一个字段导出到文本文件。急急急急急急急！

Question

dim fs 
Set fs = CreateObject("Scripting.FileSystemObject")
Set TxtFile = fs.OpenTextFile("YourFileName", ForAppending, true,0)
sql="select 字段1 from your_table"
数据库连接.....
set rs=adocn.execute sql
do while not rs.eof
txtfile.writeline rs("字段")
loop
rs.close
adocon.close
set rs=nothing
set adocon=nothing
txtfile.close
fs.close
set txtfile=nothing
set fs=nothing

Answer 1

你的代码还有点问题set  rs=adocn.execute  sql  
我的意思是通过combobox控件选择导出字段，然后用datagrid或richtextbox控件显示出来，最后导出字段。

Answer 2

你应该多给点分问题1:  使用SQL语句是效率最高的一种方法SELECT * INTO [Text;DATABASE=文件路径].[文件名] FROM [表名]问题2:Private Sub DBGrid1_HeadClick(ByVal ColIndex As Integer)
    
    If st = True Then'ST是一个全局变量 是我定义的标记
    DBGrid1.HoldFields
        Data1.RecordSource = mysql & "Order By " & DBGrid1.Columns(ColIndex).DataField
        On Error Resume Next
        Data1.Refresh
        DBGrid1.ReBind
        Else
        DBGrid1.HoldFields
        Data1.RecordSource = mysql & "Order By " & DBGrid1.Columns(ColIndex).DataField & " DESC "
        On Error Resume Next
        Data1.Refresh
        DBGrid1.ReBind
        End If
     
        st = Not st
  End Sub