Добрый вечер,

Есть txt файл. Разделитель табуляция.
Не могу настроить импорт из него данных.

Строка:
CurrentProject.Connection.Execute "INSERT INTO testMe (iDate) " & _
"SELECT f5 " & _
"from [" & flNameFull & "] in '" & idir & "' [Text;HDR=NO]; "

Типы полей совпадают.

При разделителе "," работает на ура.

Помогите плз.

Спасибо.

guest_rusimport,

Спасибо

А не подскажите как мне обновить данные в таблице беря данные из текста?

Таблица opershare, поле для обновления ClrComm,
Текстовый файл - "E61.txt", в нем поле f15,
У таблицы и данных из текстового файла есть одинаковые поля opershare.tradeNo=f2.

Заранее СПАСИБО

Если знаете, то мне бы конструкцию типа:

CurrentProject.Connection.Execute "INSERT INTO opershare (TradeNo) " & _
"SELECT f2" & _
"from [" & E61 & "] in '" & idir & "' [Text;HDR=NO] " & _
"where (f5 <> Null);"
Только на UPDATE

Konst_One,

таблицу opershare

Konst_One,

На самом деле всё сложнее.

Есть два txt файла. В них разные данные но одно поле совпдает (f2)

Я через insert into из одного фала txt загоняю данные в таблицу opershare в которой более 40 полей,

и мне нужно в ней обновить два поля (я для примера указал одно) из друго txt файла,
где я знаю что поле для обновления (в txt файле) f15, а поле f2 в обоих файлах (txt) одинаковы и следовательно в opershare
оно уже есть с именем tradeNo.

Вроде так.

Konst_One,

Вот код - не работает. Пишет синтаксическая ошибка.



CurrentProject.Connection.Execute "UPDATE opershare " & _
"SET [opershare]![ClrComm] = A.f15 from opershare inner join [E61.txt] in 'D:' [Text;HDR=NO] as A " & _
"WHERE ([opershare]![tradeNo] = A.f2));"

opershare - таблица в программе
E61.txt - источник данных для обновления

Где промахнулся?

Konst_One,

istr = "INSERT INTO dbo_Kot (iA,iB, iC) " & _
"SELECT f3, f5, f17 from [E61.txt] in 'D:' " & _
" [Text;HDR=NO] where ((f3<#08/30/2011#) and (f4 not like ""A%"")) ;"
СurrentProject.Connection.Execute istr

Придумал не я. На форуме подсказали.

Работает на ура из Access.

А переделать запрос на UPDATE - мозгов не хватает.

Konst_One,

CurrentProject.Connection.Execute "UPDATE opershare " & _
"SET [opershare].[ClrComm] = [A].[f15] from opershare inner join [E61.txt] in 'D:' [Text;HDR=NO] as A " & _
"ON [opershare]![tradeNo] = [A].[f2];"

Исправил. Всё равно ругается.

Konst_One,

Dim SQL As String

SQL = "UPDATE OperShare " & _
"SET OperShare.ClrComm = A.f15 " & _
"FROM OperShare inner join [EQM06_20120614.csv] in 'D:' [Text;HDR=NO] as A " & _
" ON OperShare.tradeNo = A.f2"

CurrentProject.Connection.Execute SQL

Вот я вроде бы всё исправил. Если туплю, то сорри.

Линковать никак, ибо операция ежедневная и каждый день новая таблица.

Скрин ошибки выложить?

Konst_One,

Понял сейчас ещё раз побробую.

Konst_One,

Вот, сделал всё как Вы сказали.

Код:

Dim SQL As String

SQL = "UPDATE T " & _
"SET OperShare.ClrComm = A.f15 " & _
"FROM OperShare T inner join [EQM06_20120614.csv] in 'D:' [Text;HDR=NO] as A " & _
" ON T.tradeNo = A.f2"

CurrentProject.Connection.Execute SQL

Ошибка:

В файле.

Dima1974_1,

Да линковать я умею. Я могу и через tempTable сделать.

Просто очень хотелось понять как можно UPDATE на прямую сделать, наподобии как меня научили INSERT INTO делать.

Konst_One,

Таже самая ошибка. :(

Dima1974_1,

Маркирует слово FROM

Konst_One,

Интересно а FROM opershare T - подразумевается, что данные из opershare или в opershare обновляем данные?

И почему T будет подразумевать таблицу opershare?

Dima1974_1,

А профи по access(у) не прорекомендуешь, а то я намертво застрял, хоть через доб. таблицы делать...