Скачать: CL | DM;

ADO DBF   Найти похожие ветки 

← →
Volodya_   (2006-03-29 12:14) [0]

Нужно связать 2 dbf файла,делаю так:

select * from table1 a
inner join table2 b on a.pole1=b.pole2
where a.pole3<>0

Говорит индекс ненайден. Создаю ему индекс CREATE INDEX table1 ON table1 (pole3) но  не помогает, может чтото ёще гдето нада прописать?

---

← →
vovnuke ©   (2006-03-29 13:06) [1]

он не находит свой cdx

---

← →
Volodya_   (2006-03-29 17:15) [2]

что нужно сделать чтобы нашёл??? где прописать?

---

← →
vovnuke ©   (2006-03-30 09:42) [3]

нужно в DBF перед открытием обнулить 28 байт, который отвечает за наличие индексов у DBF, например вот так
procedure TDataModule.DBFBeforeOpen(DataSet: TDataSet);
var
 lFileStream: TFileStream;
 Buff: Byte;
begin
 lFileStream := TFileStream.Create(FPath + "\DBFNAME", fmOpenWrite);
 try
   lFileStream.Seek(28, soFromBeginning);
   Buff := 0;
   lFileStream.Write(Buff, 1);
 finally
   lFileStream.Free;
 end;
end;
Если эту DBF кто нибудь использует кроме тебя то после закрытия поставить туда 1

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.047 c