处理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上搜索但我没有找到任何东西.

如果导入失败,我还想阻止访问创建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

参考:
错误集合(DAO)
错误对象(DAO)
Schema.ini文件(文本文件驱动程序)