Код VBA - импорт текстового файла в таблицу доступа - с условием

Question

Мне нужно импортировать текстовый файл в таблицу Access, но используя условия импорта в TXT-файле.

Ниже приведен код VBA. Он работает только тогда, когда вы не используете предложение WHERE, потому что запрашиваете ввод параметра. Я думаю, что проблема заключается в отсутствующей спецификации формата поля.

Какие корректировки вы рекомендуете? Мы ценим любые предложения.

TEXT FILE - Teste.txt

1;24;433;43;5 
2;436;424;43;24 
3;5454;656;656;555 
4;545;545;0;0 
5;65465;756;0;0 

Мой код VBA Access:

Sub MyTableImport() 

    Dim sqlStr As String 

    sqlStr = "SELECT * INTO NewTable " 
    sqlStr = sqlStr & " FROM [Text;HDR=Yes;FMT=Delimited;Database=C:\Temp].Teste.txt " 
    sqlStr = sqlStr & " WHERE field4 <> '0' AND field5 <> '0';" 

    DoCmd.SetWarnings False 
    DoCmd.RunSQL sqlStr 
    DoCmd.SetWarnings True 

End Sub 

Answer 1

Я использовал Schema.ini подход, as Fionnuala suggested, подобное тому, что было в одном из более ранние версии вашего вопроса.

С вашей Teste.txt исходного файла, а Schema.ini и запроса ниже, это результат для Новая_таблица. Все пять полей текста Тип данных:

Это C: \ Temp \ Schema.ini:

[Teste.txt] 
ColNameHeader=False 
Format=Delimited(;) 
Col1="field1" Text 
Col2="field2" Text 
Col3="field3" Text 
Col4="field4" Text 
Col5="field5" Text 

И это запрос, который создается Новая_таблица:

SELECT t.field1, t.field2, t.field3, t.field4, t.field5 
INTO NewTable 
FROM [Text;HDR=No;FMT=Delimited;Database=C:\Temp].[Teste.txt] AS t 
WHERE (((t.field4)<>'0') AND ((t.field5)<>'0'));