|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Устал ломать голову
Мне очень нужно сделать так, чтобы все значения поля (Например "Имя") помещались по нажатию кнопки в список (DBListBox или DBMemo). У меня получается внести в один список одно имя, а нужно в одном списке все имена. Сам не справлюсь. Кому не лень помогите разобраться. СРОЧНО!!!
|
#2
|
|||
|
|||
Код:
SELECT DISTINCT NAME FROM [TABLE] Так? Т.е. ты получаешь список уникальных значений поля таблицы. а уж куда ты его потом засунешь - дело твое. Например, собрать в строку и засунуть в мемо: Код:
var S : String; begin S := ''; Query1.Active := True; While Not Query1.EOF Do Begin S := S + #13#10 + Query1.FieldByName('NAME').AsString; Query1.Next; End; Query1.Active := False; Memo1.Lines.Text := S; Последний раз редактировалось lmikle, 20.05.2008 в 19:03. |
#3
|
|||
|
|||
Пока не вкурил. Извини.
Я просто указывал в свойствах списка откуда нужно брать записи. Можешь подробнее?
|
#4
|
|||
|
|||
Уже вижу!!!
Погоди разберусь...
|
#5
|
|||
|
|||
ОК
Более менее понятно. Думаю буду делать - разберусь. Может ты мне дашь еще один совет?
|
#6
|
|||
|
|||
Вот для начала...
Вообще мне нужно написать прогу для организации рассылки в Outlook. Короче итогом работы программы должно стать то, что поля в Outlook'e автоматичеси заполняются теми адресами, которые укажет пользователь. То есть произведет их выборку из базы. Дальше продолжать?
|
#7
|
|||
|
|||
Тогда вместо Memo1 поставь
Код:
ListBox1.Items.Text := S; получишь список в обычном листбоксе. Далее юзер селектит нужные строчки, а ты при нажатии кнопочки пробегаешь по листбоксу и все выделенные записи копируешь куда надо (не забудь у листбокса Multiselect поставить): Код:
var I : Integer; begin For I := 0 To ListBox1.Items.Count-1 Do If ListBox1.Selected[i] Then Edit1.Text := Edit1.Text + ListBox1.Items[i] + '; '; Последний раз редактировалось lmikle, 20.05.2008 в 19:15. |
#8
|
|||
|
|||
Не пугайся!
Я не собираюсь никого просить делать это за меня. У меня получается все, но очень медленно. Возможно, пара хороших советов помогла бы мне ускорить этот процесс. Сроки меня поджимают!!!
|
#9
|
|||
|
|||
Спасибо большое!!!
Надеюсь, что все будет работать как надо.
|
#10
|
|||
|
|||
Выдает ошибку!!!
Я на форму кинул Query, подумал, так правильно. Выскочила ошибка в строке
Query1.Active := True;(напротив зеленая стрелка). Может нужно было какой модуль подключить? |
#11
|
|||
|
|||
Ты еще здесь???
Мне кажеться, что я неправильно указываю свойство DataBaseName у Query. Я использую базу Access.
|
#12
|
|||
|
|||
Отзовитесь хоть кто-нибудь!!!
Мне правда очень нужна помощь!!!
|
#13
|
|||
|
|||
Вот простенький пример, как в ListBox заносить данные из поля.
|
#14
|
|||
|
|||
Спасибо большое! Но пока не пропадай!!!
Я сейчас скомпилирую. Для меня это очень важно.
|
#15
|
|||
|
|||
Великолепно!!!!
Это то, что мне было нужно. Слушай, а я теперь могу содержимое ListBox'a занести в TEdit?
|