что за ошибка?

← →
werr (2002-08-08 17:29) [0]

чужой ехе-шник выдает ошибку "index already exsists". Делал переиндексацию бд -- не помогло. Какие могут быть причины этой ошибки?

← →
Val © (2002-08-08 17:33) [1]

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

← →
Leran2002 © (2002-08-08 17:34) [2]

А раньше нормально пахало???
И че за база, Paradox???

← →
werr (2002-08-08 17:40) [3]

сорри, забыл указать базу -- dbase.
раньше все было ок

← →
Leran2002 © (2002-08-08 17:46) [4]

> werr (08.08.02 17:40)

Таблицы хотябы открываются, где нибудь???

← →
werr (2002-08-08 17:49) [5]

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

Не знаю вот может поможет, нашел когдато на форуме...
Регенерация это что-то типа пересоздания индексов, вот тебе кусок кода (только перед тем как запускать закрой свой проект, а-то Delphi будет блокировать таблицу), а да еще сделай резервные копии таблиц:

uses BDE;
...
function TableRegenIndexes(NrErr : byte;Tbl : TTable) : Boolean;
Var
YesEx,YesAct : byte;
S : String;
Res,Res1 : DBIResult;
CCC : array[0..255] of Char;
begin
YesEx:=0;
if Tbl.Exclusive then YesEx:=1;
YesAct:=0;
if Tbl.Active then YesAct:=1;
Tbl.Active:=FALSE;
Tbl.Exclusive:=TRUE;
Tbl.Active:=TRUE;
Res:=DbiRegenIndexes (Tbl.Handle);
Tbl.Active:=FALSE;
if YesEx<=0 then Tbl.Exclusive := FALSE;
if YesAct>0 then Tbl.Active:=TRUE;

if Res=0 then begin
Result:=TRUE;
end
else begin
if NrErr>0 then begin
Res1:=DbiGetErrorString (Res,CCC);
Str(Res,S);
S:="Ошибка реген.индекс.: "+S+" -> "+StrPAS(CCC)+" для : "+Tbl.TableName;
MessageBeep(mb_IconHand);
MessageDlg(S,mtError,[mbOk],0);
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
Er:byte;
begin
TableRegenIndexes(Er,Table1);
end;

← →
werr (2002-08-08 18:11) [7]

спасибо, попробую...

что за ошибка? Найти похожие ветки