ms-access - 处理 TransferText 错误

Question

我有一个 Access-2007 应用程序，我使用 Visual Basic 从文本文件导出/导入表格。

DoCmd.TransferText acExportDelim, "MySpec", "Table1", "c:\table1.txt", True

DoCmd.TransferText acImportDelim, "MypSpec", "Table1", "c:\table1.txt", True

我想捕获此方法可能引发的所有错误。我想要这个方法的错误号列表，我在 MSDN 上搜索但没有找到任何东西。

如果导入失败，我还想阻止 Access 创建 ImportErrors 表。

有什么想法吗？

Answer 1

如果你想预先测试数据，你可以使用SQL。

使用 schema.ini 文件并直接导入到 MS Access。一个 schema.ini 文件相当于一个规范。

[imp.txt]
ColNameHeader=False
Format=FixedLength
Col1=ID  Char Width 8
Col2=AName  Char Width 10
Col3=Mark Char Width 2

SQL

SELECT * INTO Imp FROM [Text;DATABASE=Z:\docs].[imp.txt]

在 VBA 中:

Dim db As Database
Set db = CurrentDB

sSQL = "SELECT * INTO Imp FROM [Text;DATABASE=Z:\docs].[imp.txt]"
db.Execute sSQL, dbFailOnError

引用文献:
Errors Collection (DAO)
Error Object (DAO)
Schema.ini File (Text File Driver)