Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Поиск в базе данных

Автор: ArtNeoX 8.2.2006, 23:33

Код


' поиск по номеру
Select Case Button.Key
Case Is = "cmdFindNumber"
On Error Resume Next
Data1.Recordset.FindFirst "X01 = '" & Trim(Text240) & "'"
If Data1.Recordset.NoMatch Then MsgBox "Запрашиваемая информация не найдена.", vbOKOnly + vbExclamation, "Внимание"
End Select

Если строка текстовая (в свойствах файла mdb файла) находит запрашиваемый номер введенный в поле Text240 из ячейки X01 базы данных
Если строка числовая (в свойствах файла mdb файла) запрашиваемый номер не находит, даже не выдает ошибку.

В чем проблема? может нужно заменить команду Trim на другую?

Автор: Exception 8.2.2006, 23:37

Конечно, не ищет.
Если поле не текстовое, апострофы вокруг текста (то есть числа) надо убрать.

Автор: Akina 9.2.2006, 10:10

Цитата(ArtNeoX @ 9.2.2006, 00:33

)

может нужно заменить команду Trim на другую?

Наоборот, добавь CStr$:

Код


Data1.Recordset.FindFirst "X01 = '" & Trim(CStr$(Text240)) & "'"