Не пойму в чем секрет...

@Tigerchen · Регистрация: 19.12.2007

Студворк — интернет-сервис помощи студентам

Народ !
Прога выбирает инфу из текстового файла, ищет соотв. записи в базе данных, и найдя, вносит изменения в записи. Работаю через DAO 3.6
Не догоняю: оператор openRecordset.FindFirst strCriteria а равно и прочие типа Find... не хочут работать, а заместо работы выдается Syntax Error, хотя никакого еррора нет точно.
Помогите, где здесь может быть собака зарыта ?

Вечно благодарен.

Если можно, посоветуйте литературку по DAO 3.6 и где ее взять в электронном виде.

@Tigerchen · 14.01.2008, 13:45 **[ТС]**

Я сразу присел на Аксесс 2к, с 97 не работал, только один раз пришлось базу конвертить с 2000 под 97.
Про версию DAO: какая у меня подрублена, ту и ищу. Хрен его знает, сколько их и чем они отличаются (я еще почти совсем 0 в VBA, сам мог убедиться).
На аглицком разбираться влом, хотя когда припекло, пришлось колупаться в аглицком хелпе под 2000. Правда, ничего особо полезного там не нашел, и как ты справедливо заметил, глючит он со страшной и непреодолимой силой. А самое главное, нет связного описания, то есть если я совсем в первый раз смотрю на VBA, то я хочу с самого начала разобраться что зачем и что куда, а короткие справочные сведения мне потом уже понадобятся. Поэтому и прошу ссылки на электронные книги или печатные издания. На библиотечных серверах уже все облазил - или совсем ничего или совсем для 'чайников', которые даже Аксесс запустить не могут.
Насчет глючности самого 2000 не знаю, не сравнивал, мне пока нравится.
Если не трудно, то намыль хотя бы и на аглицком.
Кстати, у меня почему-то тот адрес на MSDN виснет и отрубает Netscape напрочь...

14.01.2008, 14:00

Адрес для мыла?
Предпочтительный архиватор? (zip/rar/arj/lha/tar.gz)
Да, в 97 нашел описание DAO на русском - в пакет включать?

@Tigerchen · 14.01.2008, 14:20 **[ТС]**

Архиватор по фигу, лучше, конечно, zip/ rar/ ace. Распакую любой архив. Любое описание, тем более на русском включай.
Мыло: smil2d01@uni-trier.de
Спасибо огромное !!!

14.01.2008, 14:48

Ушло.
Пак на 1 мег, надеюсь, что твой п/я выдержит

16.01.2008, 10:09

В догонку :
http://vb-studio.boom.ru/articles/dao.htm

@Tigerchen · 16.01.2008, 17:09 **[ТС]**

2 Ghost:
Спасибо огромное ! Ежели чем могу помочь - мыль.

08.03.2011, 12:54

!

15.05.2011, 09:42

Рассмотрим строку
rst.FindFirst 'ЭлектроннаяПочта = ' ' + strmail + ' ' '
Здесь возникнет ошибка, если сама переменная strmail будет в себе содержать значек апострофа ('). Например, в английских (французских) именах людей, этот значек содержится и при поиске его нужно учитывать. Как избежать ошибки?

18.05.2011, 08:37

rst.FindFirst ''ЭлектроннаяПочта = ' '' + KonvertirovatOdnuKavy4kuVDve(strmail) + '' ' ''

Функцию расписывать? Или сам напишешь?

18.05.2011, 20:17

Не надо, спасибо

Вот, собственно, эта функция:
ХорошаяСтрока=Zamena(Строка_содержит_них ороший_апостроф, Chr(39), Chr(145))

Function Zamena(TXT As String, Find As String, Optional Replace As String) As String
Dim B As Single
B = 1
Zamena = TXT
Do
B = InStr(B, Zamena, Find)
If B > 0 Then
Zamena = Left(Zamena, B - 1) & Replace & Right(Zamena, Len(Zamena) - B - Len(Find) + 1)
Else
Exit Do
End If
Loop
End Function

19.05.2011, 14:12

Как вариант. Но можно и ' переводить в '' - у меня в свое время работало. На самом деле ) - прочти статью http://www.relib.com/articles/article.asp?id=240
может - пойдешь таким путем. В этом случае кавычки на рояле не играют.

19.05.2011, 14:13

' переводить в '+', где + - выкинуть )

24.05.2011, 02:08

Кстати - только что скачал почту и обратил внимание на функцию - лентяй вы, батенька ) рекурсией пользуетесь )

Новые блоги и статьи Все статьи Все блоги /
Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .	Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .
Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .

@Tigerchen 0 / 0 / 0 Регистрация: 19.12.2007 Сообщений: 13

	Не пойму в чем секрет... 08.01.2008, 18:49. Показов 4581. Ответов 32 Метки нет (Все метки) Народ ! Прога выбирает инфу из текстового файла, ищет соотв. записи в базе данных, и найдя, вносит изменения в записи. Работаю через DAO 3.6 Не догоняю: оператор openRecordset.FindFirst strCriteria а равно и прочие типа Find... не хочут работать, а заместо работы выдается Syntax Error, хотя никакого еррора нет точно. Помогите, где здесь может быть собака зарыта ? Вечно благодарен. Если можно, посоветуйте литературку по DAO 3.6 и где ее взять в электронном виде. 0

@Tigerchen 0 / 0 / 0 Регистрация: 19.12.2007 Сообщений: 13
	14.01.2008, 13:45 [ТС]
	Я сразу присел на Аксесс 2к, с 97 не работал, только один раз пришлось базу конвертить с 2000 под 97. Про версию DAO: какая у меня подрублена, ту и ищу. Хрен его знает, сколько их и чем они отличаются (я еще почти совсем 0 в VBA, сам мог убедиться). На аглицком разбираться влом, хотя когда припекло, пришлось колупаться в аглицком хелпе под 2000. Правда, ничего особо полезного там не нашел, и как ты справедливо заметил, глючит он со страшной и непреодолимой силой. А самое главное, нет связного описания, то есть если я совсем в первый раз смотрю на VBA, то я хочу с самого начала разобраться что зачем и что куда, а короткие справочные сведения мне потом уже понадобятся. Поэтому и прошу ссылки на электронные книги или печатные издания. На библиотечных серверах уже все облазил - или совсем ничего или совсем для 'чайников', которые даже Аксесс запустить не могут. Насчет глючности самого 2000 не знаю, не сравнивал, мне пока нравится. Если не трудно, то намыль хотя бы и на аглицком. Кстати, у меня почему-то тот адрес на MSDN виснет и отрубает Netscape напрочь... 0

Ghost
	14.01.2008, 14:00
	Адрес для мыла? Предпочтительный архиватор? (zip/rar/arj/lha/tar.gz) Да, в 97 нашел описание DAO на русском - в пакет включать?

@Tigerchen 0 / 0 / 0 Регистрация: 19.12.2007 Сообщений: 13
	14.01.2008, 14:20 [ТС]
	Архиватор по фигу, лучше, конечно, zip/ rar/ ace. Распакую любой архив. Любое описание, тем более на русском включай. Мыло: smil2d01@uni-trier.de Спасибо огромное !!! 0

Ghost
	14.01.2008, 14:48
	Ушло. Пак на 1 мег, надеюсь, что твой п/я выдержит

Ghost
	16.01.2008, 10:09
	В догонку : http://vb-studio.boom.ru/articles/dao.htm

@Tigerchen 0 / 0 / 0 Регистрация: 19.12.2007 Сообщений: 13
	16.01.2008, 17:09 [ТС]
	2 Ghost: Спасибо огромное ! Ежели чем могу помочь - мыль. 0

Trofimov_ReX
	15.05.2011, 09:42
	Рассмотрим строку rst.FindFirst 'ЭлектроннаяПочта = ' ' + strmail + ' ' ' Здесь возникнет ошибка, если сама переменная strmail будет в себе содержать значек апострофа ('). Например, в английских (французских) именах людей, этот значек содержится и при поиске его нужно учитывать. Как избежать ошибки?

Ghost
	18.05.2011, 08:37
	rst.FindFirst ''ЭлектроннаяПочта = ' '' + KonvertirovatOdnuKavy4kuVDve(strmail) + '' ' '' Функцию расписывать? Или сам напишешь?

Trofimov_ReX
	18.05.2011, 20:17
	Не надо, спасибо Вот, собственно, эта функция: ХорошаяСтрока=Zamena(Строка_содержит_них ороший_апостроф, Chr(39), Chr(145)) Function Zamena(TXT As String, Find As String, Optional Replace As String) As String Dim B As Single B = 1 Zamena = TXT Do B = InStr(B, Zamena, Find) If B > 0 Then Zamena = Left(Zamena, B - 1) & Replace & Right(Zamena, Len(Zamena) - B - Len(Find) + 1) Else Exit Do End If Loop End Function

tomik
	08.03.2011, 12:54
	!

Ghost
	19.05.2011, 14:12
	Как вариант. Но можно и ' переводить в '' - у меня в свое время работало. На самом деле ) - прочти статью http://www.relib.com/articles/article.asp?id=240 может - пойдешь таким путем. В этом случае кавычки на рояле не играют.

Ghost
	19.05.2011, 14:13
	' переводить в '+', где + - выкинуть )

Ghost
	24.05.2011, 02:08
	Кстати - только что скачал почту и обратил внимание на функцию - лентяй вы, батенька ) рекурсией пользуетесь )