Форум: "Начинающим";
Текущий архив: 2006.12.31;
Скачать: [xml.tar.bz2];
Вниз
Table1: No index currently active Найти похожие ветки
← →
nurlan_1 (2006-12-10 16:20) [0]пользуюсь базой BDE. когда сама база находится в папке DBDemos никаких проблем нет, но когда я ссылку на каталог программы направляю ( копия базы там есть), тогда вот вылетает ощибка
Table1: No index currently active
как можно исправить эту ощибку?
← →
MsGuns © (2006-12-10 16:22) [1]Что имеется в виду под "базой" ?
← →
Desdechado © (2006-12-10 16:52) [2]http://www.ln.ua/~openxs/articles/smart-questions-ru.html
← →
Anatoly Podgoretsky © (2006-12-10 17:01) [3]> Desdechado (10.12.2006 16:52:02) [2]
Да в принципе все понятно, только отвечать на такую постановку совсем не хочется.
← →
Джо © (2006-12-10 17:05) [4]Файл с индексами, вероятно, забыл перенести вместе с файлос данными? В протчем, судить не берусь, ибо даже формат «базы» не обнародован.
← →
Джо © (2006-12-10 17:05) [5]> файлос данными?
Ужас. Файлом данных.
← →
nurl;an_12 (2006-12-11 12:23) [6]друзья,я не из России и не хорошо знаю русский. ,поетому так неудачно получается с подстановкой задачи.Anatoly Podgoretsky , помагите пожалюста
← →
Anatoly Podgoretsky © (2006-12-11 12:31) [7]> nurl;an_12 (11.12.2006 12:23:06) [6]
Так информации не достаточно, возможно индексы не скопированы или имеют неверные имена. Возможно ошибки в проекте.
← →
nurlan12 (2006-12-11 13:38) [8]под индексом имеется ввиду имена столбцов,да? их я добавил в Table1 ( щелчок на Table1, Add field ) . на других компах ввобше не пашет, даже не с DBDemosa. а дома толька с DBDemosa работает. вы скажите пожалюста, какие информации нужны, я напишу.
← →
Desdechado © (2006-12-11 13:44) [9]индекс - это отдельный файл или даже несколько
если БД переписываешь, то нужно всю папку, а не отдельные файлы из нее
← →
nurlan12 (2006-12-11 14:32) [10]в Paradox-e моя база. а какие файлы там должны быть.если кто может напишите расширении , я проверю
← →
Anatoly Podgoretsky © (2006-12-11 14:40) [11]Для копирования баз надо использовать функцию БДЕ dbiCopyTable
Индексы только первая твоя проблема, возможно не последняя.
← →
nurlan12 (2006-12-11 23:21) [12]Desdechado
тут других файлов нет чтоб скопировать кроме базы (*.db) . а зделал я базу в DatabaseDesktop-e. выбрал базу Paradox 7, индекс поставил AZ ,Алиас - C:\Data ( щас стораюсь зделать другую базу, который хотья бы работал c папкой C:\Data , а не DBDemos). что посоветуйте друзья?
← →
Anatoly Podgoretsky © (2006-12-11 23:33) [13]> nurlan12 (11.12.2006 23:21:12) [12]
> Алиас - C:\Data
Это не алиас
← →
Германн © (2006-12-11 23:43) [14]
> nurlan12 (11.12.06 23:21) [12]
>
> Desdechado
> тут других файлов нет чтоб скопировать кроме базы (*.db)
А выполнить поиск других файлов по маске "ИмяФайлаdb".* трудно?
← →
nurlan12 (2006-12-12 02:22) [15]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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.31;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.044 c
