Поиск:

Ответ в темуСоздание новой темы Создание опроса
> MS Access+ListView+ListBox, Использование MSA и Поиск в ListView  
:(
    Опции темы
HoneyDate
Дата 28.1.2012, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 28.1.2012

Репутация: нет
Всего: нет
Добрый вечер.
Опишу проблему.
У меня есть фаил с базой MS Access в которой есть всего 2 поля:
1) ID-Счетчик
2) name-текстовое поле
На форме у меня имеетса ListView  который заполнен данными
Также на форме у меня есть ListBox

Задача такова:

Нужно провести поиск в ListView используя данные из Базы а именно поля Name и если найдено частичное совпадение добавляем это совпадение из ListView  в ListBox из ListView необходимо только столбик с названием

Я побовала считать данные из Базы в перменную TStringList и потом сверять с ListView

Также я нашла вот это в интернете но ничего не получаетса (((
Код

procedure FindItem(ListView: TListView; // где искать
                   const TextToFind: String; // что искать
                   StartWithItem: Integer = -1 // начиная с какого итема искать, по умолчанию с начала
                  );
var
  FintInfoStruct: TLVFindInfo;
begin
  with FintInfoStruct do
  begin
    flags := LVFI_PARTIAL; // ищем по началу заголовков итемов
    psz := PChar(TextToFind);
  end;
  ListView.Perform(LVM_FINDITEM, StartWithItem, LongInt(@FintInfoStruct));
end;


Признаюсь я незнаю как проделать всё выше перечиленное ((

Я использую Delphi Xe2 как среду програмирования 
PM MAIL   Вверх
Данкинг
Дата 28.1.2012, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Что именно не получается: процедура не ищет, что ли?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
HoneyDate
Дата 28.1.2012, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 28.1.2012

Репутация: нет
Всего: нет
Да и процедура не хочет искать.
Я проста недавно взялась за програмирование, поэтому ещё не все понимаю.
Допустим я знаю как добавить данные в Базу но как сделать то что я описала выше понятия не имею ((
PM MAIL   Вверх
Данкинг
Дата 28.1.2012, 20:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(HoneyDate @  28.1.2012,  20:52 Найти цитируемый пост)
Да и процедура не хочет искать.

Пример использования сей процедуры в реальном коде в студию. smile 
Цитата(HoneyDate @  28.1.2012,  20:52 Найти цитируемый пост)
Я проста недавно взялась за програмирование, поэтому ещё не все понимаю.

И сразу с БД начинаешь?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
HoneyDate
Дата 28.1.2012, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 28.1.2012

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

var 
  lvItem: TListItem; 
begin 

  lvItem := FindItem(ListView1, Edit1.Text, 1); 

  if lvItem <> nil then 
  begin 
    ListView1.Selected := lvItem; 
    lvItem.MakeVisible(True); 
    ListView1.SetFocus; 
  end;

Ну я люблю сложности, вот только не всегда получаетса решить эти сложности.

Это сообщение отредактировал(а) HoneyDate - 28.1.2012, 20:52
PM MAIL   Вверх
HoneyDate
Дата 28.1.2012, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 28.1.2012

Репутация: нет
Всего: нет
но я всёже не понимаю как мне даже спомощью этой функции сделать поиск в ListView использую данные из Базы данных
PM MAIL   Вверх
HoneyDate
Дата 29.1.2012, 15:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 28.1.2012

Репутация: нет
Всего: нет
Ребята помогите, очень прошу ((
Я пробовала несколько найденых функции поиска в ListView но не одна не работает (
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

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

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


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

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

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


 




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


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

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