Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Как организовать поиск в базе данных с помощью ... Добавлено: 07.04.04 20:39  

Автор вопроса:  Srg | Web-сайт: serg-comp.narod.ru

Кто знает, как организовать поиск в базе данных с помощью метода Recordset’a Find.

И с помощью какого объекта выводить изображение из базы данных, а то   Ole Conteiner, как в VB6 нет.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Scuder



ICQ: 143518458 

Вопросов: 12
Ответов: 37
  Профиль | | #1 Добавлено: 09.04.04 22:09

Вот код из какой-то моей очень старенькой программки:

 

Private Sub TDBGrid1_KeyPress(KeyAscii As Integer)

If KeyAscii = 6 Then
    Dim CurPos
    Dim CurCol
   
    CurPos = TempRS.AbsolutePosition
    CurCol = Me.TDBGrid1.Columns(Me.TDBGrid1.Col).Name
   
    strFind = InputBox("Поиск", , strFind)
   
   
    TempRS2.AbsolutePosition = TempRS.AbsolutePosition
    TempRS2.Find "[" & CurCol & "] like '" & strFind & "'", 1
    If TempRS2.BOF Or TempRS2.EOF Then
        MsgBox "Не найдено"
    Else
        TempRS.Find "[" & CurCol & "] like '" & strFind & "'", 1
    End If
   
End If

End Sub

 

Я не стал комментировать - разбираться в коде не хочется, но пример вроде рабочий..

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам