如何解决将 TXT 导入 Access 时添加字段
我正在尝试在导入过程中将 3 个附加字段及其数据添加到 .txt 文件中。但我不知道如何做到这一点。这些字段之一将包含在 Combo5
组合框中引入的日期。另外两个,一个包含“Checked”,另一个包含“ArticleN5”。
谁能提供有关如何实现这一目标的任何说明?
先谢谢大家,
希望你们都平安。
这是我目前所拥有的:
Private Sub Command0_Click()
Dim Dates As String
Dim Path As String
Dates = Format(Me.Combo5,"yymmdd")
Path = "C:\Users\alex\Desktop\CGD\20200117\UCP" & Dates & "A_CGD.txt"
DoCmd.TransferText acImportFixed,"UcpyYMMDDA_CGD_Specs","teste",PATH,True
End Sub
解决方法
字段是否必须添加到 TXT 文件本身,或文件导入到的表中?如果您只需要将信息添加到表中的字段中,您可以在导入 TXT 后将表作为记录集打开并添加其他数据。
示例:
Dim rsData as DAO.Recordset
Set rsData = currentDB.openrecordset("TableName",dbtable)
rsData.Movefirst
Do While not rsdata.eof
with rsdata
.edit
.field("FieldName") = "Checked"
.field("FieldName") = comboboxvalue
.field("FieldName") = value
.update
end with
rsData.MoveNext
rsdata.close
这应该会让你接近
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。