Приведение данных в определенный вид

[Андрэич]

Сообщение от Emmelman

Currency - так и думал, что в этом проблема. Самое смешное, что, чтобы изменить название этого поля придется уговаривать ИТ

Эта пехота ИТ где работает -в банке? Как банк называется?
Возми Currency в квадратные скобки

Сообщение от Emmelman

А почему у меня в коде запрос не работает,ба, не пойму...буду еще смотреть

А почему у тебя запрос не работает - я даже говорить не хочу, а то тебя в краску бросит

[Emmelman]

Конфиденциальная информация :р, но поговорил с сотрудником,для кого делаю, ИТ-ов можно попросить изменить поле при выгрузке в текстовый файл,если что.

Вчера занимался созданием отчетов в программе и еще дела были,так что сейчас вот опять начну штудировать запрос, и походу я нубсак,если там такая ошибка xD постараюсь найти

[Emmelman]

скурвен запрос..

[Emmelman]

ИИИИИИИИИИИХХХХААААААААА! запрос полностью заработал,корректно!Вот окончательная версия запроса!

INSERT INTO Operations ( OPERATIONDATE, OPERATION_TIME, BRANCH_NAME, AMOUNT_OPERATION,
 DEBIT_ACCOUNT, DEBIT_ACCOUNT_OWNER_NAME, DEBIT_ACCOUNT_OWNER_ID, DEBIT_ACCOUNT_OWNER_STATUS,
 CREDIT_ACCOUNT, CREDIT_ACCOUNT_OWNER_NAME, CREDIT_ACCOUNT_OWNER_ID, CREDIT_ACCOUNT_OWNER_STATUS, EXPLANATION, 
BANK, ENTER_USER, APPROVE_USER, PRODUCT_NAME )

SELECT Format(DateValue(Format([OPERATIONDATE],"0000\.00\.00"))) AS expr1, OPERATION_TIME AS expr2, BRANCH_NAME AS expr3, AMOUNT_OPERATION AS expr4,
 DEBIT_ACCOUNT AS expr5, DEBIT_ACCOUNT_OWNER_NAME AS expr6, 
DEBIT_ACCOUNT_OWNER_ID AS expr7, DEBIT_ACCOUNT_OWNER_STATUS AS expr8, CREDIT_ACCOUNT AS expr9, 
CREDIT_ACCOUNT_OWNER_NAME AS expr10, CREDIT_ACCOUNT_OWNER_ID AS expr11, CREDIT_ACCOUNT_OWNER_STATUS AS expr12,
 EXPLANATION AS expr13, BANK AS expr14, ENTER_USER AS expr15, APPROVE_USER AS expr16, PRODUCT_NAME AS expr17
FROM [FX_Transfer_staff20121203#txt] IN 'C:\Documents and Settings\u1226430\My Documents\Education docs\Базы данных\ '[Text;format=TabDelimeted;HDR=Yes;CharacterSet=28595];

Теперь буду в код засовывать)

[Emmelman]

Огромное спасибо Андрэичу, не справился бы без него!
В таблице своей БД выставил,что OPERATIONDATE - это поле даты(типDate\Time), в спецификации импорта это же поле из файла имеет тип Char. \

В саму таблицу все заносится отлично - 03.12.2012,30.11.2012 итд и даже календарик как поп-ап появляется при наведении курсора, но появилась маленькая проблема. Форма,которая отображает всю таблицу,показывает в поле OPERATIONDATE - 41246, что это,откуда? как это убрать! Как сделать,чтобы была нормальная дата,а не этот шифр!

[Андрэич]

Поле Currency в запросе напиши в квадратных скобках, может и не надо будет его переделывать.

Если в твоей таблице-приёмнике тип поля Дата/Время (что есть правильно), то должно хватить и

DateValue(Format([OPERATIONDATE],"0000\.00\.00"))

(без ещё одного Format)

Возможно, что-то с форматом поля формы. Удали его и сделай по-новому.

(Так и не понял, откуда ты взял такое значение CharacterSet. Кинь ссылку)

[Emmelman]

Сделал поле CURRENCY в кв.скобках - все скушало видит поле,все заносит!
Про CharacterSet - вот выжимка из текста "Импорт/экспорт в MSAccess с использованием текстовых файлов" - это тот же,что ты кидал

Сообщение от Андрэич

Да, вот нашёл источник:
Работаем с текстовыми файлами

Пример содержимого короткой секции:
[Имя файла.txt]
ColNameHeader=True - Заголовок есть
Format=Delimited( - Разделитель полей ";", но символ может быть любой, кроме кавычек. Также может бать указан формат:
TabDelimited - разделитель Chr(9) (он же – vbTab),
CsvDelimited - разделитель "," (то же, что Delimited(,)),
FixedLength – поля фиксированной ширины (в этом случае спецификация должна включать описание полей).
CharacterSet=ANSI - Кодировка символов. Вместо ANSI можно указать 1251, а для DOS кодировки - OEM или 866. Допускается и Unicode.
MaxScanRows=0 - для определения типа полей при импорте драйвер анализирует несколько строк (по умолчанию - 25). При значении 0 – весь файл.
Этот параметр не нужен, если есть описание полей
DecimalSymbol=. - десятичный разделитель в числах
CurrencyDecimalSymbol=. - десятичный разделитель в деньгах (если отличается от числового)
NumberDigits=3 - количество десятичных разрядов в числах (по умолчанию - 2)
CurrencyDigits=4 - количество десятичных разрядов в деньгах (по умолчанию - 2)
CurrencySymbol=' ' - символы вылюты. При экспорте рекомендую пробел (так - надежнее), при импорте параметр лучше не использовать.
DateTimeFormat= - формат даты. Допускается любой формат, поддерживаемый JET. Если не указан или параметр отсутствует - полный формат даты/времени.

Ну,то,что идет после CharacterSet у меня нету)


Убрал один format из строчки - все работает,заносит,в таблице-приемнике дата отображается корректно, а форма,которая берет данные из таблицы отображает 41246,вот даже ща попытаюсь скрин приложить!
У меня на работе нет пэинта( поэтому запихнул скрин в ворд
BASE SCREEN.doc

[Emmelman]

все исправил,фууууух,в поле вывода в свойстве Format стояло @ - убрал и все заработало)

[Emmelman]

Нужна помощь! Опять с привидением вида информации в нужную форму! У меня есть дата - 30.11.2012, функцией я делаю с ней следующее преобразование - заменяю точки на слэш ("/") - 30/11/2012. И вот я хочу сделать конечное преобразование к виду - 2012/11/30, как такое провернуть?

UPDATE:
получилось,сделал так -
sdate1 = Format(date1, "yyyy/mm/dd")
sdate2 = Format(date2, "yyyy/mm/dd")
только / поменялись на точки, а хотелось бы,чтобы / остался

[Андрэич]

А так? (Что-то ничего поизящней в голову не лезет )

sdate2 = Replace(Format(date2, "yyyy/mm/dd"),"/",".")