[enigmus]

надо из файла *.ТХТ перенести все данные в поле < BLOB Formated memo> (База PARADOX), и если надо кому-то потом считать В обычное МЕМО поле (лог пишется на диск потом пользователь сохраняет в базу, а при необходимости просто открывает его из базы). Работа ведется через Query.
ПОМОГИТЕ СРОЧНО!!!!!

[Yurk@]

Код:

Query.Close;
Query.SQL.Text:='INSERT INTO mTable (blField) VALUES (:bData)';
Query.ParamByName('bData').LoadFromFile('1.txt',ftBlob);
Query.ExecSQL;

[enigmus]

Огромное спасибо!!! Сейчас буду пробовать.

[enigmus]

не работает код

Код:

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

[Yurk@]

Код:

Query1.SQL.add('INSERT INTO osob_karta.db (osob_karta) VALUES (:bData)');

[enigmus]

Спасибо Большое за помощь!!!!
вроде код выше нормальный и все нормально но почему теперь просит перевести в insert or edit mode? таблицу я вроде перевел в insert. может что-то не так сделал?
ПОДСКАЖИТЕ ПОЖАЛУЙСТА

[enigmus]

Спасибо розобраляся сам все работает!!