Динамический поиск по БД / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Динамический поиск по БД

9 сообщений из 9, страница 1 из 1

Динамический поиск по БД

#37631064

Юрий Ktjybljdbx

Гость

помогрите пожалуйста исправиться: среда Visual Basic БД Access метод подключения DAO
нужно следать динамический поиск "налету", использовал метод текстбокса для поиска "change"

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Text2.Text = Len(Text1.Text) '&#232;&#235;&#232; N=len(text2.text)
Data1.RecordSource = "tab"
Data1.Refresh
FindRecord = "Left([FAM],Val(Text2.Text)) = '" & Text1.Text & "'"    'ERROR: The Microsoft Jet database engine does not recognize "text2.text" as a valid field or expression
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst FindRecord
Label1.Caption = Data1.Recordset("IMIA")

помогите найти решение

...

Рейтинг:

0 / 0

25.01.2012, 15:59

| Ответить | Цитировать | Написать

Динамический поиск по БД

#37631085

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

ругается, что нет такого поля в таблице: Text2.Text
ну так его там и нет
надо использовать правильное имя поля
может быть это имелось ввиду?

Код: vbnet

FindRecord = "Left([FAM],Val(" & Text2.Text & ")) = '" & Text1.Text & "'"

...

Рейтинг:

0 / 0

25.01.2012, 16:05

| Ответить | Цитировать | Написать

Динамический поиск по БД

#37631099

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Val думаю тоже не будет работать. ТС хотел просто значение туда поместить.

Код: vbnet

FindRecord = "Left([FAM]," & Val(Text2.Text) & ") = '" & Text1.Text & "'"

...

Рейтинг:

0 / 0

25.01.2012, 16:13

| Ответить | Цитировать | Написать

Динамический поиск по БД

#37631120

Юрий Ktjybljdbx

Гость

большое спасибо заработало

...

Рейтинг:

0 / 0

25.01.2012, 16:20

| Ответить | Цитировать | Написать

Динамический поиск по БД

#37631148

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Konst_OneТС хотел просто значение туда поместить.А смысл тогда вообще в Val? Изначально же это строка.

...

Рейтинг:

0 / 0

25.01.2012, 16:28

| Ответить | Цитировать | Написать

Динамический поиск по БД

#37631175

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

он в текстбокс вводит число видимо

...

Рейтинг:

0 / 0

25.01.2012, 16:34

| Ответить | Цитировать | Написать

Динамический поиск по БД

#37631182

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

а иногда нет и получает ошибку на проверку val(). хотя, конечно, странно всё тут написано.

...

Рейтинг:

0 / 0

25.01.2012, 16:35

| Ответить | Цитировать | Написать

Динамический поиск по БД

#37631204

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Так и надо проверять, что это число ДО обработки, а не получать ошибку в процессе...

но это по уму... может это тестовая программа

...

Рейтинг:

0 / 0

25.01.2012, 16:42

| Ответить | Цитировать | Написать

Динамический поиск по БД

#37631207

Юрий Ktjybljdbx

Гость

просто я в текстбокс1 ввожу символы для поиска, и просто сначала я покарячески это написал, подсчёт числа букв в другой текстбокс, а потом из этого текстбокса извлекал это число.
а теперь исправил:

Код: vbnet

    FindRecord = "left([FAM]," & Len(Text1.Text) & ") = '" & Text1.Text & "'"

...

Рейтинг:

0 / 0

25.01.2012, 16:43

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Динамический поиск по БД

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=87&tid=2158122]:	0ms
get settings:	13ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	36ms
get topic data:	13ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	2ms
others:	12ms

total:	144ms