🚀 go-pugleaf

Użytkownik "Tygrys" <news15@wywalto.tygrys.com.pl> napisał w wiadomości 
news:f9v5vb$61q$1@nemesis.news.tpi.pl...
> Rajmund Wrotek pisze:
>> Użytkownik "Tygrys" <news15@wywalto.tygrys.com.pl> napisał w wiadomości 
>> news:f9ukuq$ofo$1@atlantis.news.tpi.pl...
>
>>> 1) użyj Query z SQL-em "Delete from znajomi where id=:id" i zobacz, czy 
>>> kasuje bez błędu. (parametr jakiś trzeba podać)
>
>>> 3) Jeżeli w 1) nie było błędu, to odłącz dbmemo od datasource przed 
>>> kasowaniem i zobacz, co wtedy.
>>> 4) zobacz, jak masz ustawioną transakcję i czy robisz commit gdzie 
>>> trzeba.
>
>>>
>>>
>>
>> FB zainstalowany jest raczej dobrze, bo nie pojawia się zaden inny błąd. 
>> Poza tym mam zainstalowany program IBExpert i tam bez problemu dodaję 
>> zawartość pola memo i mogę te rekordy edytować, usuwać itp.
>> Pozostaje aplikacja - tu jak mniemam jest błąd, ale całkiem nie wiem 
>> gdzie, bo cała aplikacja składa  się z komponentów IBX i dosłownie kilku 
>> linijek kodu.
>>
>>
> 1, 3, 4
>
> Stawiam na 3
>
> Dlaczego blocksize na 16k?
> Jak kasujesz ten rekord?
>
> Tygrys

Wiesz, tu problemem jest nie tylko kasowanie ale i jego modyfikacja.
Po prostu nie jest możliwe zmodyfikowanie go ani usunięcie.

A usuwam normalnie, tzn.

procedure TFormMain.btnUsunClick(Sender: TObject);
var
Usun:Integer;
begin
  with DM.IBTransaction1 do
  if not InTransaction then
  begin
    StartTransaction;
  end;
  Usun:=Application.MessageBox(PChar('Znajomy '+DM.ZnajomiIMIE.AsString+' 
'+DM.ZnajomiNAZWISKO.AsString+' zostanie usunięty z 
kartoteki'),'Uwaga!!!',MB_YESNO+MB_ICONQUESTION);
  if Usun=idYes then
  begin
    DM.Znajomi.Delete;
  end;
end;


Wielkosć zmieniłem i też nic nie pomogło

BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET WIN1250