¹ØÓÚvbÄ£¿éº¯ÊýµÄµ÷Óã¬Çë¸ßÊÖ½â´ð

Çë¿´¿´ÒÔϵ¼³öÎı¾ÎļþµÄÄ£¿éº¯Êý£¬ÎÒÓ¦¸ÃÔõôÔÚ°´Å¥µã»÷ʼþÖÐʵÏÖµ÷Óá£

Option Explicit

Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String)
        Dim rs As New ADODB.Recordset
        Set rs = New ADODB.Recordset
        Dim i As Long
        Dim WritStr As String
        Dim Fid As Long
        Dim lngCount As Long              ' ¼ÆÊý¡£

        If TextFileName = "" Then TextFileName = App.Path & "\" & TableName & ".txt"
        If objConn.State = 0 Then objConn.Open
        rs.Open "select * from " + TableName, objConn

        Fid = FreeFile
        rs.MoveFirst
        Open TextFileName For Output As #Fid
          WritStr = ""
          For i = 0 To rs.Fields.Count - 1
              WritStr = WritStr & "" & rs.Fields(i).Name & ","
          Next
          Prin