powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Можно ли организовать поиск по гипертексту?
7 сообщений из 7, страница 1 из 1
Можно ли организовать поиск по гипертексту?
    #32117262
нужно сделать что-то в этом духе:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
        Dim db As DAO.Database, rst As DAO.Recordset
        Dim intRtn As Integer

        Set db = CurrentDb
        Set rst = db.OpenRecordset( "table" , dbOpenDynaset)
        rst.FindFirst  "Website] = "  "" & Me.URL & "  """            ' << несоотв.типов '
        If Not rst.NoMatch Then
            MsgBox  "ok" 
            ' ... '
        rst.Close


на сей код - ассеss выдаёт несоответствие типов.
Как нужно оформить запрос?
...
Рейтинг: 0 / 0
Можно ли организовать поиск по гипертексту?
    #32117313
Тот же вопрос относительно поля мемо:
как правильно организовать запрос и возможно ли это?
...
Рейтинг: 0 / 0
Можно ли организовать поиск по гипертексту?
    #32117499
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rst.FindFirst "Website] = '" & Me.URL & "'" ' << несоотв.типов '
т.е. используй ' вместо "
...
Рейтинг: 0 / 0
Можно ли организовать поиск по гипертексту?
    #32117685
...
Рейтинг: 0 / 0
Можно ли организовать поиск по гипертексту?
    #32117689
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"По играй" с аргументами
Set rst = db.OpenRecordset("table", dbOpenDynaset)
Убери dbOpenDynaset

А что выдаст debug.print me!url ?
...
Рейтинг: 0 / 0
Можно ли организовать поиск по гипертексту?
    #32118540
Формат:
Текст_линка#URL#
...
Рейтинг: 0 / 0
Можно ли организовать поиск по гипертексту?
    #32118630
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Текст_линка#URL#

А поле Website] тоже хранит такой же текст (Текст_линка#URL#), если да
то проблема в #. В ## заключаются даты, а у тебя текст- отсюда и не соотвествие типов

Можно сделать следующее (для Акес2000/2002):

dim strTemp as string
strTemp=replace (Me.URL,"#","?",1,-1) 'заменим # на ?

' в strTemp будет типа: СуперСайт?http:\\www.ru?

'перепишем условие поиска на Like. Знак ? будет рассматриваться как один любой символ, что нам и надо

rst.FindFirst "Website] Like '" & strTemp & "'"

' т.е. будем искать rst.FindFirst "Website] Like 'СуперСайт?http:\\www.ru?'"
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Можно ли организовать поиск по гипертексту?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]