Модераторы: 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   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




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


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

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