Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Посик по базе данных! гайти надпись в базе и выдилить её 
:(
    Опции темы
REVOLT
Дата 12.9.2004, 11:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет
boevik , а вот кодиком помочь не смог бы??? sample.gif


Код

Private Sub poisk_Click()
Dim A As Variant
InputBox "Поиск модели атомобиля", "Модель автомобиля", "" = A
If List2.Text = A Then 'СДЕСЬ И НИЖЕ СТОПУДОВ НЕ ПРАВИЛЬНО
List2.SetFocus
  Else
    MsgBox "Не найдена"
    End If
End Sub


Это сообщение отредактировал(а) REVOLT - 12.9.2004, 12:59
PM MAIL WWW ICQ   Вверх
boevik
Дата 12.9.2004, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Могу, но лучше самому найти.
Код
Option Explicit

Private Sub Form_Click()
Dim searchWord As String
Dim i As Long
   searchWord = InputBox("Поиск модели", "Модель", "")
   For i = 0 To List1.ListCount - 1
       If List1.List(i) = searchWord Then
           List1.Selected(i) = True
           Exit For
       End If
   Next
   If i = List1.ListCount Then MsgBox "Не найден"

End Sub

Private Sub Form_Load()
List1.AddItem "A"
List1.AddItem "B"
List1.AddItem "C"
List1.AddItem "D"

End Sub



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
REVOLT
Дата 12.9.2004, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет
boevik , там небольшой Error!
Короче дело так! Ввожу в inputbox вторую строчку т.е. "B" (без кавыкек естественно smile.gif ) и он мне показывает надпись "Не найден". но когда я ввожу реальную несуществующюю букву например "E" сообщение не показывается... В чём проблема?
PM MAIL WWW ICQ   Вверх
boevik
Дата 12.9.2004, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
У меня всё работает.
Ты код не менял? Если менял, то код в студию.


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
REVOLT
Дата 12.9.2004, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет
Код

Private Sub poisk_Click()
Dim A As String
Dim i As Long
 A = InputBox("Поиск модели автомобиля", "Введите название модели", "")
 For i = 0 To List2.ListCount - 1
 If List2.List(i) = A Then
    List2.Selected(i) = True
    Exit For
  End If
Next
If i = List1.ListCount Then MsgBox "Модель не найдена"
End Sub


Вот код. Я коечто поменял, но мне кажетсяне в этом дело
PM MAIL WWW ICQ   Вверх
boevik
Дата 12.9.2004, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Дело именно в этом.
Обрати внимание на
Код
If i = List1.ListCount Then MsgBox "Модель не найдена"

Вместо List1 нужно List2


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
REVOLT
Дата 12.9.2004, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет
пасиб боевик!!!! ты начтоящий профи!!! Который помог юзверю! Побольше таких.... Как наберу 100 сообщений обязон нажму на [+] у тебя
PM MAIL WWW ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0434 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.