не работает код
Код:
procedure TStudent_form.N4Click(Sender: TObject);
var s:string;
begin
s:='Зберігаю результати в базу даних...';
inmenu(s);
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * from osob_karta.db');
Query1.RequestLive:=true;
Query1.Open;
Query1.Insert;
Query1.Fieldvalues['prz_styd']:=prz_styd.Caption;
Query1.Fieldvalues['grypa']:=grypa_styd.Caption;
Query1.Fieldvalues['data']:=Date;
Query1.SQL.Clear;
Query1.SQL.add('INSERT INTO osob_karta.db (osob_karta) VALUES : bData');
Query1.ParamByName('bData').LoadFromFile('D:\docs\!!!!!!!!!!!!!!DYPLOM!!!!!!!!!!!!!\PROGRAMA_DYPLOM\log\log_student.txt',ftBlob);
Query1.ExecSQL;
Query1.Close;
end;
Admin: Пользуемся тегами!
ошыбка Parametr "bdata" not faund