Помогите новичку со вставкой данных

← →
RoadRunner (2001-12-28 20:57) [0]

Привет всем, кто читает это собщение.
Помогите новичку.
Делаю локальную базу в формате DBase.Как вставить в поле типа Binary какой-нибудь файл(ну например exe),а потом получить его из этого поля.
Если не трудно, то маленький примерчик...
Спасибо всем кто ответит

← →
Red Alert (2001-12-29 10:55) [1]

кажется функция что,то наподобе
Table1.FieldName("Name").String := "Sample";
и
S:=Table1.FieldName("Name").String;
Точно не помню надо посмотреть в исходниках, базами не за-нимался давно.. я больше системщик
Завтра точно скажу, но посмотри в хелпе кажется функция именно так называется

← →
SergVlad (2001-12-29 11:24) [2]

Здесь люди просят ответа, а не гадания на кофейной гуще.
Тем более - правильных ответов.

← →
panov (2001-12-29 11:27) [3]

>Red Alert (29.12.01 10:55)
Не путай человека.

Table1.Insert;
TBlobField(Table1.FieldByName("NameBlobField")).LoadFromFile("MyFileName");
Table1.Post;

← →
ProfiUgl (2001-12-29 13:52) [4]

Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add("insert into table (field1,field2)");
Query1.Sql.Add("values ("1,""1"")"); //первое значение типа Integer, второе типа String
Query1.ExecSql;

← →
panov (2001-12-29 14:10) [5]

>ProfiUgl © (29.12.01 13:52)
>RoadRunner (28.12.01 20:57)
См. также: http://delphi.mastak.ru/cgi-bin/forum.pl?&n=1&id=1009621860&look=1

← →
RoadRunner (2001-12-29 16:04) [6]

>panov
Извините за глупй вопрос, а как считать из базы уже записанный файл?

← →
Kirill (2001-12-29 16:16) [7]

Проведя аналогию с panov, получаем:
Table1.Edit; TBlobField(Table1.FieldByName("NameBlobField")).SaveToFile("MyFileName"); Table1.Cancel;
//Хотя первая и последняя строчка все-же не нужны.

← →
panov (2001-12-29 16:20) [8]

TBlobField(Query1.FieldByName("fBlob")).SaveToFile("c:\myfile");

← →
panov (2001-12-29 16:21) [9]

Или, как указал Kirill, используем TTable.
Только без Edit и Cancel :-)

← →
Kirill (2001-12-29 17:02) [10]

Я так и думал. :)

← →
Red Alert (2001-12-30 04:37) [11]

← →
RoadRunner (2001-12-30 20:51) [12]

Спасибо всем

Помогите новичку со вставкой данных Найти похожие ветки