Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

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


 
Leran2002   (2002-08-08 17:54) [6]

Не знаю вот может поможет, нашел когдато на форуме...
Регенерация это что-то типа пересоздания индексов, вот тебе кусок кода (только перед тем как запускать закрой свой проект, а-то 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]

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



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
1-95851
skyslider
2002-08-17 22:38
2002.08.29
Как удалить выделенную строку в StringGrid


4-96028
BlackRaven
2002-06-18 14:54
2002.08.29
Bitmap и RGN?


4-96006
Новенький в Делфи
2002-06-23 00:34
2002.08.29
SendMessage() отправляет два сообщения


1-95791
SetupOS
2002-08-19 21:21
2002.08.29
Как программно прокрутить RichEdit вверх, вниз…


8-95908
Oleg Shashin
2002-04-20 03:40
2002.08.29
Устанавливаем свой WallPaper для Windows





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский