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

Поиск:

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


Бывалый
*


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

Репутация: нет
Всего: нет
У меня такая проблема. Есть Lict1 и есть кнопка. В листе у меня грузятся данные из базу данных вот код поиска. всё вроде получилось, но не получилось только одно

Код

Private Sub Command1_Click()
ProgData.Recordset.FindFirst "Name = '" _
& Trim(InputBox("Введите имя ")) & "'"
If ProgData.Recordset.NoMatch Then MsgBox "Не найдена"
End Sub


Есле я ввожу не существующее имя, то он мне выводит сообщение, а есле оно есть то не реагнирует, а мне надо чтобы он выделил то слово в List1. Подскажите как сделать!!!!
PM MAIL WWW ICQ   Вверх
Akina
Дата 10.9.2004, 14:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
А теперь так чтобы было понятно что именно у тебя уже есть. С полными названиями инструмена программирования, типами объектов и пр...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Staruha
Дата 10.9.2004, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Так и добавь в код Если совпадает - покрасить текст в красный


--------------------
Возмездие настигнет
PM MAIL   Вверх
Akina
Дата 10.9.2004, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Старуха
Насколь я понимаю ему надо просто перейти в "листе" на найденную запись ака строку... однако неясно что именно за лист-контрол, в каком именно Барсике все происходит...


Это сообщение отредактировал(а) Akina - 10.9.2004, 15:46


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Staruha
Дата 10.9.2004, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Ну я и говорю Если текст в поиске совпадает с текстом в столбце ,надо определить его позицию,и выделить эту позицию,например цветом.


--------------------
Возмездие настигнет
PM MAIL   Вверх
Akina
Дата 10.9.2004, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Старуха
Не в каждом листе можно выделить слово - только ячейку. И даже не в каждом листе можно выделить ячейку - только запись.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
REVOLT
Дата 10.9.2004, 18:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Мне нужно сделать так чтобы при найденом варианте в ListBox'е эта строчка стала активной как-будто на неё щёлкнули мышкой и это вся хрень жолжна происходить в Visual Basic 6.0
PM MAIL WWW ICQ   Вверх
Staruha
Дата 10.9.2004, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
А таблица тоже в Bacik создается?


--------------------
Возмездие настигнет
PM MAIL   Вверх
REVOLT
Дата 10.9.2004, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Таблица в Accese
PM MAIL WWW ICQ   Вверх
Staruha
Дата 10.9.2004, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Я спросила ,а ты ушел.Я еще до этой главы не дошла.и времени нет.Вот код (у Падре)я думаю ты быстрее разберешься
Код
Dim qw As Long 'Объявляем переменную qw для работы с числами
Private Sub Command1_Click() 'При нажатии на кнопку:
If InStr(qw, Text2.Text, Text1.Text) <> 0 Then 'Сверяется 2 текстовых поля
Text2.SetFocus 'На Text2 ставим курсор
Text2.SelStart = InStr(qw, Text2.Text, Text1.Text) - 1 'Устанавливаем курсор перед совпавшимся словом

Добавлено @ 22:35
не пропечатолось - устанавливаем курсор перед совпавшим словом


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


Бывалый
*


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

Репутация: нет
Всего: нет
Задачка немного меняется!
Вот код неправильно процедуры: biggrin.gif

Код

Private Sub poisk_Click()
Dim A As Long
ProgData.Recordset.FindFirst "Name = '" & Trim(InputBox("Введите имя ")) & "'" = A
If InStr(A, List2.Text) = A Then
   List2.TabIndex = A
   Else
    MsgBox "запись не найдена"
    End If
End Sub


Уважаемые эксперты, вы нвверное поняли где ошибка? Так вот мне надо чтобы найденое в базе данных слово сыделелось в List2 (как будто на неё шёлкнули мышкой), подскажите как сделать эту процедуру!

qstn.gif thumbs-up.gif

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


Эксперт
***


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

Репутация: 2
Всего: 27
Я тоже по этому пути пошла,но в конец запуталась.
Насколько я поняла
List2.Text - нет такого надо List2.List

А может даже List2.List(List2.ListIndex)


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


Бывалый
*


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

Репутация: нет
Всего: нет
Старуха , знаешь я тоже не профессионал! И тожк учился по учебнику Падре. Знаешь, у меня не получается! А где-же наши эксперты, не ужели они не помогут с кодом???? sad.gif
PM MAIL WWW ICQ   Вверх
Staruha
Дата 12.9.2004, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Мы щас сироты - Cardinal в отпуске.Я завтра покопаюсь на работе а дома некогда.


--------------------
Возмездие настигнет
PM MAIL   Вверх
boevik
Дата 12.9.2004, 10:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 12
Всего: 35
REVOLT , не связывайся с базой.
У тебя уже есть заполненый лист, сделай поис по листу и выдели ячейку если найдешь нужное значение.


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
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   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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