Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Table1: No index currently active


nurlan_1 ©   (2006-12-10 16:20:00) 

пользуюсь базой BDE. когда сама база находится в папке DBDemos никаких проблем нет, но когда я ссылку на каталог программы направляю ( копия базы там есть), тогда вот вылетает ощибка

Table1: No index currently active

как можно исправить эту ощибку?


nurlan12   (2006-12-12 02:22:00) [1]

Anatoly Podgoretsky
уважаемый я имел ввиду вот это http://www.iqtisadiyyat.com/trifles/q.jpg
думаю, когда я создаю эту базу, тогда и допускаю ошибку.

Германн

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

вот код программы

procedure TForm1.Button1Click(Sender: TObject);
begin

SerChar:= ' ';
tnum:=1;
T:= Richedit1.Lines.Text;
word:= Trim(T)+SerChar;
word:= AnsiLowerCase(word);
word := StringReplace(word, '.', ' . ',[rfReplaceAll]);
word := StringReplace(word, ',', ' , ',[rfReplaceAll]);
word := StringReplace(word, '?', ' ? ',[rfReplaceAll]);
word := StringReplace(word, '!', ' ! ',[rfReplaceAll]);
strlen:= Length(word);

While Pos(SerChar,word) > 1 Do Begin
x:= Pos(SerChar,word);
str[tnum]:= Copy(word,1,x-1);
delete(word,1,x);
tnum:= tnum+1;
word:= TrimLeft(word);
end;

FoundW:= '';

curs:= 0;
say:= 0;
For mi:= 1 To (tnum-1) Do Begin
Table1.FindKey([str[mi]]);
If Table1.FindKey([str[mi]]) Then Begin

len:= length(str[mi]);
curs:= curs+ len + 1;

FoundW:= FoundW + str[mi] + SerChar;

end else Begin
say:= say+1;

len:= length(str[mi]);

b[say]:= curs;
e[say]:= len;
//ilk:= curs;
//son:= len;
curs:= curs + len + 1;
FoundW:= FoundW+ str[mi] + SerChar;

 ListBox1.Items.Add(str[mi]);

 end;
RichEdit1.Lines.Text:= FoundW;

end;

 For mi:= 1 to say Do Begin

  RichEdit1.SelStart:= b[mi];
  RichEdit1.SelLength:= e[mi];
  RichEdit1.SelAttributes.Color:= clRed;
end;

end;


Германн   (2006-12-11 23:43:00) [2]


> nurlan12   (11.12.06 23:21) [12]
>
> Desdechado
> тут других файлов нет  чтоб скопировать кроме базы (*.db)

А выполнить поиск других файлов по маске "ИмяФайлаdb".* трудно?


Anatoly Podgoretsky   (2006-12-11 23:33:00) [3]

> nurlan12  (11.12.2006 23:21:12)  [12]

> Алиас - C:\Data

Это не алиас


nurlan12   (2006-12-11 23:21:00) [4]

Desdechado
тут других файлов нет  чтоб скопировать кроме базы (*.db) . а зделал я базу в DatabaseDesktop-e. выбрал базу Paradox 7, индекс поставил AZ ,Алиас - C:\Data ( щас стораюсь зделать другую базу, который хотья бы работал c папкой C:\Data , а не DBDemos). что посоветуйте друзья?


Anatoly Podgoretsky   (2006-12-11 14:40:00) [5]

Для копирования баз надо использовать функцию БДЕ dbiCopyTable
Индексы только первая твоя проблема, возможно не последняя.


nurlan12   (2006-12-11 14:32:00) [6]

в Paradox-e моя база. а какие файлы там должны быть.если кто может напишите расширении , я проверю


Desdechado   (2006-12-11 13:44:00) [7]

индекс - это отдельный файл или даже несколько
если БД переписываешь, то нужно всю папку, а не отдельные файлы из нее


nurlan12   (2006-12-11 13:38:00) [8]

под индексом имеется ввиду имена столбцов,да? их я добавил в Table1  ( щелчок на Table1, Add field ) . на других компах ввобше не пашет, даже не с DBDemosa. а дома толька с DBDemosa работает. вы скажите пожалюста,  какие информации нужны, я напишу.


Anatoly Podgoretsky   (2006-12-11 12:31:00) [9]

> nurl;an_12  (11.12.2006 12:23:06)  [6]

Так информации не достаточно, возможно индексы не скопированы или имеют неверные имена. Возможно ошибки в проекте.


nurl;an_12   (2006-12-11 12:23:00) [10]

друзья,я не из России и не хорошо знаю русский. ,поетому так неудачно получается с подстановкой задачи.Anatoly Podgoretsky , помагите пожалюста


Джо   (2006-12-10 17:05:00) [11]

Файл с индексами, вероятно, забыл перенести вместе с файлос данными? В протчем, судить не берусь, ибо даже формат «базы» не обнародован.


Джо   (2006-12-10 17:05:00) [12]

> файлос данными?

Ужас. Файлом данных.


Anatoly Podgoretsky   (2006-12-10 17:01:00) [13]

> Desdechado  (10.12.2006 16:52:02)  [2]

Да в принципе все понятно, только отвечать на такую постановку совсем не хочется.


Desdechado   (2006-12-10 16:52:00) [14]

http://www.ln.ua/~openxs/articles/smart-questions-ru.html


MsGuns   (2006-12-10 16:22:00) [15]

Что имеется в виду под "базой" ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо