在 MS access 2013 中解析一个 txt 文件

Question

我有一个固定的 txt 文件，我试图根据特定位置的数据进行解析。

我需要遍历记录集并将其附加到 table。

我在尝试解析初始 txt 文件时遇到问题。

我正在使用 where Mid("AllData", 1, 2) = "BR"

我有下面的代码。我做错了什么？

Sub BR_Records()
On Error GoTo ErrorHandler

Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "TBL_AllData"

Set rs = CurrentDb.OpenRecordset(strSQL)

With rs
   
    If Not .BOF And Not .EOF Then
           
        .MoveLast
        .MoveFirst
                
        While (Not .EOF)
                    
            Debug.Print rs.Fields("AllData"); where.Mid("AllData", 1, 2) = "BR"
            
            .MoveNext
            
        Wend
        
    End If
    
    .Close

End With

ExitSub:
    Set rs = Nothing

    Exit Sub
ErrorHandler:
    Resume ExitSub
End Sub

Answer 1

试试这个：

With rs   
    If .RecordCount > 0 Then
        .MoveFirst                
        While Not .EOF
            If Mid(.Fields("AllData").Value, 1, 2) = "BR" Then                    
                Debug.Print .Fields("AllData").Value
            End If
            .MoveNext            
        Wend
    End If
    .Close
End With

在 MS access 2013 中解析一个 txt 文件

Parsing a txt file in MS access 2013

ms-access

ms-access-2013