Prosiłbym jeśli to możliwe o wskazanie mi błędu w tej procedurce. Wywala się
z komunikatem dbExpress error : operation not suported, Procedura działa bezbłędnie jesli usunę wszystko od Form1.SQL.Open w dół. Dziwi mnie to zupełnie
ponieważ z podobnej procedury korzystam w Builderze i działa cała dobrze. Ze wzgledu na dlugość wyrzuciłem wszystko co nie ma związku z moim problemem.
procedure TFormDodajWydatek.BitBtnDodajWpisClick(Sender: TObject);
var
i : integer;
begin
Form1.SQL.CommandText := 'insert into Tab values(Null,1,2,3,4)';
Form1.SQL.ExecSQL(true);
//.....
//.....
Form1.SQL.CommandText :='SELECT * FROM Tab';
Form1.SQL.Open;
for i := 1 to Form1.SQL.RecordCount do
begin
//.............
Form1.SQL.Next;
end;
Form1.SQL.Close;
end;