| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Blob [D6, IB6.x, FireBird]
Doomalka © (2003-04-24 15:14:00)Доброго времени суток! Подскажите пожалуйста как работать с Blob полями в SQL ? я так понимаю необходимо использовать какие то скрипты....не могбы кто ни-нибудь штонить попонятнее обьяснить чем скрипт отличаеться от обычного SQL и как мне его можно использовать в программе delphi
Doomalka (2003-04-24 17:57:00) [1]please
Doomalka (2003-04-24 17:23:00) [2]понаписал то.....вот так вот:
Query.SQL.Text:=Format("SELECT "MESSAGE" FROM Contact WHERE id_contact = ",[IdContact]);
Query.Open;
TBlobField(Query.Fields[0]).SaveToStream(Ms);
MS.ReadBuffer(Body,SizeOf(Body));?
MS.Free;
Doomalka (2003-04-24 17:22:00) [3]как вариант:) тем не менее прошло, сенкс...а как достать в свою очередь этот поток SELECT"ом?
MS:=TMemoryStream.Create;
Query.SQL.Text:=Format("SELECT "MESSAGE" FROM Contact WHERE id_contact = ",[IdContact]);
Query.Open;
Query.SQL.Text:="Select "MESSAGE" FROM Contact WHERE id_contact = :Id";
TBlobField(Query.Fields[0]).SaveToStream(Ms);
MS.ReadBuffer(Body,SizeOf(Body));?
MS.Free;
streem read error.....
Соловьев (2003-04-24 17:03:00) [4]
> Query.SQL.Text:=Format("UPDATE Contact SET "MESSAGE" = :Mess
> WHERE id_contact = ",[IdContact]);
Query.SQL.Text:="UPDATE Contact SET "MESSAGE" = :Mess WHERE id_contact = :id";
...
> Query.Parameters.Items[0].LoadFromStream(MS,ftBlob);
Query.ParamByName("Mess").LoadFromStream(MS,ftBlob);
Query.ParamByName("id").AsInteger := 5;
...
Doomalka (2003-04-24 17:02:00) [5]чес слово:) даже компилируется:)
Соловьев (2003-04-24 17:01:00) [6]
> Query.Parameters.Items[0].LoadFromStream(MS,ftBlob);
а есть такое?
Doomalka (2003-04-24 16:55:00) [7]ошибка unexpected end of command
что не так?
Body - Widestring
Doomalka (2003-04-24 16:54:00) [8]Query.SQL.Text:=Format("UPDATE Contact SET "MESSAGE" = :Mess WHERE id_contact = ",[IdContact]);
MS:=TMemoryStream.Create;
MS.WriteBuffer(Body,SizeOf(Body));
Query.Parameters.Items[0].LoadFromStream(MS,ftBlob);
Query.ExecSQL;
MS.Free;
гучзусеув end of command
Johnmen (2003-04-24 16:01:00) [9]http://www.delphimaster.ru/cgi-bin/forum.pl?look=1&id=1051102245&n=1
Doomalka (2003-04-24 15:49:00) [10]2 Johnmen © (24.04.03 15:42)
а если тебе просто постебаться необходимо - то лучше не надо тратить на это время и место на форуме.
2 модератор
beg your pardon
Doomalka (2003-04-24 15:47:00) [11]2 Johnmen © (24.04.03 15:42) подскажи в этом случае книги и доки, в Embedded SQLGuide я вижу что писать, но я не понимаю где писать если в gpre то мне не это нужно...если делать компиляцию этих скриптов - то это просто использование API. БЕЗ API могу я как нибудь обойтись?
Johnmen (2003-04-24 15:42:00) [12]Лучше книг и доков никто тебе не поможет в главном...:)
Doomalka (2003-04-24 15:31:00) [13]2 Johnmen © (24.04.03 15:30)
спасибо что помог
Johnmen (2003-04-24 15:30:00) [14]ADO и IB ????????????????!!!!!!!!!!!!!
Извращение, однако...:)
Doomalka (2003-04-24 15:26:00) [15]а скриптом как ? как заполнять блобы в скриптах? как мне использовать блоб-курсоры? использую ADO. please.
D (2003-04-24 15:24:00) [16]В программе потоки можно исп-ть - TBlobStream
| |
