MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Windows, Linux, настройка компьютера, программы и внутренности железного ящика, интернет и электронная коммерция.

Модератор: Valery

Аватара пользователя
Valery

DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск Великовод форума Водкомоторный сплав Лава 2016
Без группы
Без группы
Сообщения: 20423
На борту с: 07.02.2005
Награды: 5
Из: Тридевятое царство

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Valery » 18.06.2014 07:28

Сенкс! Заработало. :cool:
Descr - поле Memo. В нем - много русских букв. Вывод данных этого поля надо заключить в кавычки. Делаю так:
sqlstr = sqlstr & "Chr(34) & [Outboard engine].[Descr] & Chr(34) As [Descr], "

Получаю вывод содержимого этого поля в виде каких-то жуков:
䘨瘊ﲴ༾
Полусамопал: пластик + фанера = "Adrenaline" 5,6х2,1. По суше: Triumph Tiger 800, велосипед и Land Rover Defender.
Отдохнул – отчитайся, лучшее слово – дело.

Аватара пользователя
Спонсор раздела
Бизнес
Сообщения: 2017
На бору: 03.10.2005
Контакты:

Re: Важное сообщение

Сообщение Спонсор раздела » Пт дек 09, 2011 6:53 am

Аватара пользователя
Akwa

DVD-video Водномоторный выпуск Великовод форума
Водномоторник
Водномоторник
Сообщения: 772
На борту с: 29.10.2008
Награды: 2

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Akwa » 18.06.2014 07:31

чегото не так с кодировкой. мы эту фигню лудили для UTF Without BOOM.  что и в какой кодировке в этом поле - вопрос...

ну тут еще косяк.. надо так
sqlstr = sqlstr & Chr(34) & [Outboard engine].[Descr] & Chr(34) & " As [Descr], "

перезвони

Аватара пользователя
Valery

DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск Великовод форума Водкомоторный сплав Лава 2016
Без группы
Без группы
Сообщения: 20423
На борту с: 07.02.2005
Награды: 5
Из: Тридевятое царство

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Valery » 18.06.2014 07:46

Что-то чуть-чуть не того....
Полусамопал: пластик + фанера = "Adrenaline" 5,6х2,1. По суше: Triumph Tiger 800, велосипед и Land Rover Defender.
Отдохнул – отчитайся, лучшее слово – дело.

Аватара пользователя
Akwa

DVD-video Водномоторный выпуск Великовод форума
Водномоторник
Водномоторник
Сообщения: 772
На борту с: 29.10.2008
Награды: 2

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Akwa » 18.06.2014 07:55

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

Аватара пользователя
Valery

DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск DVD-video Водномоторный выпуск Великовод форума Водкомоторный сплав Лава 2016
Без группы
Без группы
Сообщения: 20423
На борту с: 07.02.2005
Награды: 5
Из: Тридевятое царство

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Valery » 19.06.2014 10:30

В общем почти все сделал - пипец там этих запятых в выводе - одну пропустишь и csv файл кривой получается, т.е. импорт идет с ошибками.


Как мне в вывод добавить сортировку по полю id:
ORDER BY [Outboard engine].Id

Код: Выделить всё

sqlstr = sqlstr & " from [Outboard engine] "
sqlstr = sqlstr & " WHERE [Outboard engine].[Код]=" & Chr(34) & [Forms]![Лодочные моторы - выбор]![Код] & Chr(34) & " AND [Outboard engine].Takt=" & str([Forms]![Лодочные моторы - выбор]![Takt])
Полусамопал: пластик + фанера = "Adrenaline" 5,6х2,1. По суше: Triumph Tiger 800, велосипед и Land Rover Defender.
Отдохнул – отчитайся, лучшее слово – дело.

Аватара пользователя
Akwa

DVD-video Водномоторный выпуск Великовод форума
Водномоторник
Водномоторник
Сообщения: 772
На борту с: 29.10.2008
Награды: 2

Re: MS Access 2003 - экспорт отчета в текстовый файл убрать пустые строки

Сообщение Akwa » 19.06.2014 06:35

просто:
sqlstr = sqlstr & " from [Outboard engine] "
sqlstr = sqlstr & " WHERE [Outboard engine].[Код]=" & Chr(34) & [Forms]![Лодочные моторы - выбор]![Код] & Chr(34) & " AND [Outboard engine].Takt=" & str([Forms]![Лодочные моторы - выбор]![Takt])
sqlstr = sqlstr & " ORDER BY [Outboard engine].Id"

Кто сейчас на форуме

Сейчас этот форум просматривают: CommonCrawl [Bot] и 0 гостей