閉じる

テキスト読込　Open　Input




'-------------------------------------------------------------

' 指定されたパス名より、テキスト読込する。

'　読込データは120バイト固定長データ

'　出力先テーブル:tbl_OUTDT 　項目名 dt テキスト型　サイズ：120

'  g_SEQ_INPUT 返値　0:正常　　<>0:エラー

'-------------------------------------------------------------

Private Function g_SEQ_INPUT(strWPASS As String) As Long

On Error GoTo ERR_g_SEQ_INPUT



    g_SEQ_INPUT = 9

    

    '警告メッセージOFF

    DoCmd.SetWarnings False

    

    If Dir(strWPASS) = "" Then

        MsgBox "読込ファイルが見つかりません。"

        GoTo Exit_g_SEQ_INPUT

    End If

    

    Dim cn As ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim strTBL As String

    Dim inputDT As String

    

    

    '出力テーブル削除

    strTBL = "tbl_OUTDT"

    rs.Open strTBL, cn, adOpenKeyset, adLockOptimistic

    Do While rs.EOF = False

        rs.Delete

        rs.MoveNext

    Loop

    rs.Close

    

    

    'テキスト読込、書き出し

    rs.Open strTBL, cn, adOpenKeyset, adLockOptimistic

    Open strWPASS For Input As #1

    Do Until EOF(1)

        Input #1, inputDT

        

        rs.AddNew

        rs![dt] = Left(inputDT, 120)

        rs.Update

    Loop

    

    Close #1

    rs.Close

    

    

    

    '返値を0:正常にセット

    g_SEQ_INPUT = 0



    '警告メッセージON

    DoCmd.SetWarnings True

Exit_g_SEQ_INPUT:

    Exit Function

    



ERR_g_SEQ_INPUT:

    MsgBox ("g_SEQ_INPUT:" & Err.Number & " " & Err.Description)

    Resume Exit_g_SEQ_INPUT

    

End Function