Отображение в ListView

← →
Ivolg © (2007-09-04 11:15) [0]

Привет... У меня ест база данных DBE, как можно отобразить содержимое в ListView ?

← →
Сергей М. © (2007-09-04 11:17) [1]

> база данных DBE

Что за зверь ?

> как можно отобразить содержимое в ListView ?

Чем DBListView не угодил ? Там уже вся черновая работа на эту тему сделана..

← →
Ivolg © (2007-09-04 11:24) [2]

Сергей М. © (04.09.07 11:17) [1]

Очипятка ) BDE. Я пробовал его, но что то не нашел как именно это сделать ))

← →
clickmaker © (2007-09-04 11:27) [3]

> Очипятка ) BDE

BDE это по-твоему "база данных"?

← →
max_ (2007-09-04 11:28) [4]

блин, а я руками в listview переносил когда то...:(

← →
Ivolg © (2007-09-04 11:30) [5]

Точнее он вообще не установился, т.к он требует Interbase, а ее не устанавливал. Название компонента IBXDBTreeWiev. Можешь подсказать откуда скачать можно DBListView ?

← →
Jeer © (2007-09-04 11:34) [6]

Закладка "Data Control"

← →
Ivolg © (2007-09-04 11:36) [7]

На тори поискал, нашел старую версию еще под Д3, она почему-то не ставится (

← →
Ivolg © (2007-09-04 11:42) [8]

Все, всем спасибо ! Я нашел компонент... Если кому то нужно, то вот ссылка http://whitewind.sibnet.info/files/DBListView.rar

← →
Ivolg © (2007-09-04 13:17) [9]

Я Использую Table + DataSource, база написана на Visual FoxPro. Мне необходимо сделать фильтр по именам пользователей. Как это можно организовать ?

← →
clickmaker © (2007-09-04 13:22) [10]

Table.Filter
Table.Filtered

← →
Ivolg © (2007-09-04 14:31) [11]

А можно как можно сделать поиск ? Может есть какой-нибудь быстрый алгоритм ? Я сделал вот так:

for I:=0 to 258575 do begin Table1.Next; if Copy(Table1.FieldByName("Name").Text, 1, Length(Edit1.Text))=Edit1.Text then begin It:=Lv.Items.Add; It.Caption:=Table1.FieldByName("Name").Text; end else Break; end;

Т.е Когда в Edit вводишь букву "А", то ищет все что а "А", затем добавляет результат в ListView. Но этот алгоритм полный бред, работает медленно и зависает, в базе как никак 258575 таблиц )

← →
Сергей М. © (2007-09-04 14:36) [12]

> в базе как никак 258575 таблиц

Непонятно, каким боком упомянутый тобой образом цикл for I:=0 to 258575 do (пусть даже работающий медленно) относится к поиску во всех этих таблицах ?

← →
Ivolg © (2007-09-04 14:56) [13]

Ну в базе всего 258575, и я на каждую таблицу перехожу с помощью Table.Next; Может существуют другие методы поиска ?

← →
Сергей М. © (2007-09-04 14:59) [14]

> в базе всего 258575, и я на каждую таблицу перехожу с помощью
> Table.Next

Table.Next означает "Перейти на следующую запись в данной конкретной таблице" !!!

← →
Ivolg © (2007-09-04 15:02) [15]

Сергей М. © (04.09.07 14:59) [14]

Неккоректно выразился (

← →
Сергей М. © (2007-09-04 15:04) [16]

> Неккоректно выразился

Сомневаюсь. Здесь не некорректностью попахивает, а полным непониманием происходящего при вызове такого-то метода такого-то объекта.

← →
Сергей М. © (2007-09-04 15:06) [17]

> Ivolg

А зачем тебе именно ListView понадобился ?
DBGrid чем плох ?

← →
Ivolg © (2007-09-04 15:11) [18]

Ну есть с DBGrid поиск можно реализовать, то почему бы и нет :D DBGrid с XPManifest"ом под стайл ХР не подходит :( Еще думал, что в DBListView"е осталось свойство Items, а там его нет.

← →
Сергей М. © (2007-09-04 15:35) [19]

> Ну есть с DBGrid поиск можно реализовать, то почему бы и
> нет

[DB]Grid, равно как и [DB]ListView не имеет никакого отношения к поиску инф-ции в НД.

> DBGrid с XPManifest"ом под стайл ХР не подходит

Тебе шашечки или ехать ?)

> думал, что в DBListView"е осталось свойство Items, а там
> его нет

А за каким лешим оно там нужно ?

← →
Ivolg © (2007-09-04 15:41) [20]

Есть решение по поиску ?

← →
Сергей М. © (2007-09-04 15:46) [21]

Тебе не поиск нужен, а фильтрация.
Одно из решений уже подсказано в [10]

← →
Ivolg © (2007-09-04 15:48) [22]

Сергей М. © (04.09.07 15:46) [21]

Мжешь по подробнее объяснить как сделать фильтрацию ?

← →
Jeer © (2007-09-04 15:53) [23]

Открыть справку и прочитать экзамплы:

property Filter: String;

Dataset1.Filter := Edit1.Text;
Dataset1.Filter := "State = " + QuotedStr(Edit1.Text);
Dataset1.Filter := "State <> ""CA"" or State = BLANK";

← →
Сергей М. © (2007-09-04 15:55) [24]

> Ivolg © (04.09.07 15:48) [22]

Фильтрация средствами TTable выполняется оч просто:

1. Св-ву Filter присваивается строковое значение, соответствующее WHERE-выражению (т.е. то что д.б. справа от кл.x.слова WHERE) эквивалентного селективного SQL-предложения/

2. Св-во Filtered устанавливается равным True

← →
Ivolg © (2007-09-04 16:03) [25]

Что-то плохо понял :( А Можно просто примерчик ? Например фильтровать русскую букву "А" ?

← →
Сергей М. © (2007-09-04 16:06) [26]

Table.Filter := "NAME LIKE "А%"";
Table.Filtered := True;

← →
clickmaker © (2007-09-04 16:11) [27]

> [26] Сергей М. © (04.09.07 16:06)

а для BDEDataSet LIKE разве работает? не звездочка ли?

← →
Ivolg © (2007-09-04 16:16) [28]

У меня вылазиет ошибка Invalid filter expression character "".

> clickmaker © (04.09.07 16:11) [27]

Не помню. Мож и звездочка.
Не суть как важно в дан.случае. Поменять недолго, если на "процент" ругань будет.

> Ivolg © (04.09.07 16:16) [28]

Замени кавычки апострофами.

> Ivolg © (04.09.07 16:26) [31]
>
> Сергей М. © (04.09.07 16:20) [29]
> Замени кавычки апострофами.
>
> А что это ?)
>

Оба на! :)

> что это ?

" - это "кавычка" (двойная).
" - это "апостроф" (иногда называется одинарной кавычкой)

Неужто впервые слышишь ?!)

> Ошибка Unterminated string constant

О боже !)

"NAME LIKE ""A%""";

> Сергей М. © (04.09.07 16:40) [36]
>
> "NAME LIKE ""A%""";

В фильтре не катит. В SQL катит. Пусть заменит TTable на TQuery.

Я первый просто раз работаю с БД. Ошибку в студию: Operation not applicable

> первый просто раз работаю с БД

Почитать перед этим хоть какую-либо лит-ру по этой теме мысль не приходила ?

Отображение в ListView Найти похожие ветки