|
 | | |
| Autor | Správa |
|---|
jasug
Užívateľ
Založený: 05.09.2008
Príspevky: 47
 |  Zaslal: Ne 03.07.11 21:12 |   |
Dobrý deň,
poprosím o pomoc pri riešení môjho problému. V projekte D6 Enterprise BDE dBase potrebujem počas behu programu vytvoriť index postupom uvedenym v kode : Ak neexistuje index tak ho vytvorí, ak existuje tak urobí refresh. Pri neexistencii indexového súboru zahlási chybu, že neexistuje index, ktorý chcem vytvoriť. Vygooglil som info, že uvedený postup možno použiť iba v spojení s príkazom TableCreate, ale čo ak je tabulka už vytvorená bez indexu a potrebujem dodatkový index. Vďaka za Váš čas.
| kód: |
// ............................................................................
// obnova indexov
procedure TForm1.Button2Click(Sender: TObject);
var
cnt : Word;
begin
with Table1 do
begin
Close;
Exclusive := true;
cnt := IndexDefs.Count;
if cnt > 0 then
begin
showmessage('Refresh indexov');
Check(dbiRegenIndexes(Handle));
end
else
begin
showmessage('Vytvorenie indexov');
IndexDefs.Clear;
IndexName := 'Hbf';
IndexDefs.AddIndexDef.Fields := 'Rok + c_faktury';
AddIndex('Hbf', 'Rok + C_faktury', [ixExpression]);
IndexDefs.Update;
end;
close;
Exclusive := false;
end;
end;
|
|
| |
  |
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
