閉じる

カレントDBのテーブルからテキストファイルに書き出す。


    'カレントDBにDAOで接続する。

    Set wsDAO = DBEngine.Workspaces(0)

    Set dbDAO = CurrentDb()

    

　　	DimmySQL0 As String

    Dim　rs0_i As Long

　　mySQL0 = "SELECT *  " _

             & " FROM wa700Web1 " _

             & " ;"

    

    Set rs0 = dbDAO.OpenRecordset(mySQL0)

    rs0_i = 0

    

    'FreeFile値の取得(以降この値で入出力する)

    Dim FileNumber As Integer

    FileNumber = FreeFile

    

    ' 指定ファイルをOPEN(出力モード)

    ' wPASS1 は　書き出し先ファイル名　別途定義

    Open wPASS1 For Output As #FileNumber

    Do Until rs0.EOF

        rs0_i = rs0_i + 1

        

        Print #FileNumber, rs0!wa700dt

        

        rs0.MoveNext

    Loop

    ' 指定ファイルをCLOSE

    Close #FileNumber

    

    ' 終了の表示

    MsgBox "ファイル出力が完了しました。" & vbCr & _

        "レコード件数=" & rs0_i & "件"



    rs0.Close

    

    dbDAO.Close

    wsDAO.Close