如何解决在MS Access 2013中解析txt文件
我有一个固定的txt文件,我试图根据某个位置的数据进行解析。
我需要遍历记录集并将其追加到表中。
我在解析初始txt文件时遇到问题。
我正在使用其中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
解决方法
尝试一下:
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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。