VPF::Базы данных. - Форум программистов

X-Vlad

Дата 1.4.2003, 08:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5

Привет всем.

у меня есть таблица с создаными колонками и заполнеными записями в ней.

насколько я знаю поиск по таблице производится по индексированым столпцам (тоесть столпец должен быть индексным)...

Вопрос как создать\удалить индекс?

Например у меня есть колонки (CPU, MOTHERBOARD, RAM, HDD ...) и я хочу чтобы при поиске можна было выбрать колонку.

помогите.

Спасибо.

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

SmaLL

Дата 1.4.2003, 15:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 1
Всего: 2

Какая БД?

--------------------

Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!

X-Vlad

Дата 1.4.2003, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5

DBASE

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

X-Vlad

Дата 1.4.2003, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5

Пробовал создать так:

Код


Var
 i:integer;
begin
  i:=combobox1.ItemIndex;
with Query1 do
   begin
    databasename:=Table1.DatabaseName;
    sql.Clear;
    sql.Add('ALTER TABLE '+table1.TableName+' ADD index ('+combobox1.Items.Strings[i]+')');
    execsql;
    table1.Refresh;
   end;

невыходит. Ощибка: " незнает что такое "index"

помогите...

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

SmaLL

Дата 1.4.2003, 16:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 1
Всего: 2

DBASE не поддерживает индексов.
Лучше использовать Paradox.

--------------------

Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!

X-Vlad

Дата 2.4.2003, 05:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5

тогда каким макаром осуществляется поиск в етой базе

??
или вней такого как поиск - вообще нету?

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

December

Дата 2.4.2003, 05:43 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

SmaLL, с каких пор

dBase с индексами, конечно, не лучшим образом, но работает.
X-Vlad, поиск можно Locate'ом, и ещё много какими способами.
Что касается индексов... Пример из живого проекта (удави там лишнее...)

Код

procedure IndexIt;
begin
with form1 do
    begin
    if fileexists(copy(edit1.Text,1,length(edit1.Text)-4)+'.MDX') then
                                    try
                                    RemoveIndex;
                                    finally
                                    end;
    table1.active:=false;
    Table1.AddIndex('ByName',NameFieldName,[]);
    table1.active:=true;
    table1.IndexName:='ByName';
    end;{with}
end;{IndexIt}


procedure RemoveIndex;
begin
if form1.table1.IndexName<>'' then form1.table1.IndexName:='';
try
form1.table1.DeleteIndex('ByName');
finally
end;{finally}
end;{RemoveIndex}

--------------------

Для друзей с винграда - скидки на разработку сайтов

X-Vlad

Дата 2.4.2003, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5

Цитата

Пример из живого проекта (удави там лишнее...)

спасибо.

нашол:

Код


Добавление индекса:

procedure TForm1.Button2Click(Sender: TObject);
Var
 i:integer;
begin
  i:=combobox1.ItemIndex;
  Table1.AddIndex('find', combobox1.Items.Strings[i], [ixExpression]); {ixExpression - только для баз DBASE} 
  table1.Refresh;
  end;
end;

удаление индекса:

table1.DeleteIndex(listbox1.Items.Strings[0]);

ещё вопрос:
1. как создать\удалить индекс в Paradox?
2. сортировка полей происходит только когда стоит индекс?

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

X-Vlad

Дата 2.4.2003, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5

Пробовал делать:

Код


procedure TForm1.Button2Click(Sender: TObject);
Var
i:integer;
begin
 i:=combobox1.ItemIndex;
 Table1.AddIndex('find', combobox1.Items.Strings[i], [ixPrimary]);
 table1.Refresh;
 end;
end;

невыходит

выскакивает ошибка...

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

78125

Дата 2.4.2003, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Какая ошибка?

Уверен что добавление ixPrimary возможно?

--------------------

купим подпись

Vit

Дата 2.4.2003, 17:47 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Я бы использовал квери:

Alter Table для изменения первичного ключа
Create/Drop Index для изменения вторичных индексов

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Cashey

Дата 2.4.2003, 23:02 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

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

Репутация: 2
Всего: 60

Цитата

1. как создать\удалить индекс в Paradox?

Если сама таблица уже описана то примерно так

Код


begin
with IndexDefs do
   begin
      with AddIndexDef do
             begin
             //название ключа для первичного индекса не требуется
             Name := ' ';
             Fields := 'ID';
             //признак первичного ключа
             Options := [ixPrimary];
             end;
    //второй индекс
      with AddIndexDef do 
      begin
      Name := := ' NameInd';
      Fields := 'Name'
     end;
end
//после этого надо вызвать метод создания таблицы

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Vit

Дата 2.4.2003, 23:36 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Модератор: Для дополнительных вопросов открывайте новую тему.

--------------------

X-Vlad

Дата 3.4.2003, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5

Цитата

Модератор: Для дополнительных вопросов открывайте новую тему.

у меня дозвон мне в лом потом искать свои вопросы по всему форуму, если бы сидел на выделенке вопросов нет создавал бы отдельно!!!
тем более что мои вопросы касаются одной темы Базы.

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

Vit

Дата 3.4.2003, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Цитата(X @ 3.4.2003, 12:05)

Модератор:
Ваши проблемы с дозвоном вряд ли могут являтся причиной нарушений правил форума. Созданная Вами тема звучит "Базы данных., Создание индекса в таблице...", и все вопросы не относящиеся к этой теме будут рассматриваться как офтопик. А по поводу такой темы как "Базы", так может нам создать один раздел и один вопрос "программирвоание" и будем там все спрашивать и отвечать обо всём. На всех форумах существует определённый порядок - в теме должен быть один конкретный вопрос, который и обсуждается отвечающими.

Дальнейшие споры по целесообразности таких правил и обсуждение действий модератора должно проводится в разделе "Обсуждение форума".

Администрация оставляет за собой право удалять ответы, которые не относятся к теме обсуждения, а так же топики состоящие из более чем одного вопроса. Я выделяю ваш вопрос в новый топик.

--------------------

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