Memo поле в таблице Paradox

← →
Berkoot (2008-03-15 21:21) [0]

Народ, помоги пожалуйста!!!
Следующая ситуация...
есть таблица Paradox в ней поле Memo
по идее если записываешь туда более 240 символов то остальные символы она кидает в файл с расширением .mb и именем таблице
но при выводе данных на форму если записано было более 240 символов вывод парочку иероглифов
если менее 240 то нормально выводит
как решить проблему???

← →
Johnmen © (2008-03-15 22:03) [1]

Читать про TBlobField, TMemoryStream.

← →
Berkoot (2008-03-15 22:05) [2]

где читать? на форуме здесь есть?
и решаема ли эта проблема???

← →
Johnmen © (2008-03-15 22:06) [3]

Читать по нажатии F1.
Можно также задействовать yandex/google

← →
Berkoot (2008-03-15 22:12) [4]

проблема решаема вообще или нет?

← →
Johnmen © (2008-03-15 22:28) [5]

Этой "проблеме" 12 лет. Как ты думаешь, её решили?
:)))

← →
Плохиш © (2008-03-15 22:44) [6]

> Berkoot (15.03.08 22:12) [4]
> проблема решаема вообще или нет?

Какая проблема? Отсутствие знаний основ, чтоли?

← →
Berkoot (2008-03-15 22:49) [7]

а не знаете ссылку на источник где это описывается?
я так понял мало того что нужно извлеч из этого blob поля данные, так там еще и по особенному надо записать туда?

Johnmen © (15.03.08 22:28) [5]
Этой "проблеме" 12 лет. Как ты думаешь, её решили?
:)))

а если серьезно то проблема решаема???
я уже 2-ой день не сплю с прогой вожусь

← →
Johnmen © (2008-03-15 22:55) [8]

> Berkoot (15.03.08 22:49) [7]

Мне высказаться или чтоб без обид?

← →
Berkoot (2008-03-15 23:00) [9]

> Johnmen
просто мне немного не до шуток
прошу ответить на вопрос "Можно ли из таблицы Paradox вывести на форму (ну например TMemo) значение поля Memo скажем символов 500 длиной"

:))) лучше без обид, повторюсь что давно не спал и туплю, а прогу надо срочно доделывать

← →
Berkoot (2008-03-15 23:02) [10]

Причем вывод идет через TQuery

← →
Berkoot (2008-03-15 23:14) [11]

> Johnmen
что-то вроде этого?

var
S: TMemoryStream;
B: pointer;
C: integer;

...

S := TMemoryStream.Create;

...

Table1.Edit;
S.Clear;
S.SetSize(C);
C := S.write(B,C);
(Table1BlobField as TBlobField).LoadFromStream(S);
S.Clear;
Table1.Post;

...

S.Destroy;

← →
Amoeba © (2008-03-16 00:49) [12]

A TDBMemo использовать религия не позволяет?

← →
MsGuns © (2008-03-16 01:26) [13]

>Amoeba © (16.03.08 00:49) [12]
>A TDBMemo использовать религия не позволяет?

И каким боком оно к сабжу ?

← →
Anatoly Podgoretsky © (2008-03-16 01:27) [14]

> Berkoot (15.03.2008 23:00:09) [9]

Можно, но не твоим кодом, надо просто выводить без кода.

← →
Amoeba © (2008-03-16 01:49) [15]

> MsGuns © (16.03.08 01:26) [13]
>
> >Amoeba © (16.03.08 00:49) [12]
> >A TDBMemo использовать религия не позволяет?
>
> И каким боком оно к сабжу ?

Самое прямое. И код писать не надо.

← →
Виталий Панасенко(дом) (2008-03-16 07:56) [16]

> по идее если записываешь туда более 240 символов то остальные
> символы она кидает в файл с расширением .mb и именем таблиц

Враки. При создании таблицы, ты указываешь, какая часть(до 254 кажись) символов будет в DB, а остальное -в MB

← →
Berkoot (2008-03-16 12:10) [17]

> Amoeba

c TDBMemo таже проблема...
если более 240 символов то выводит иероглифы
запись делаю с помощью query
вот код
with Query1 do
begin
Sql.Clear;
Sql.Add("insert into Table(id,M)");
Sql.Add("values(:id, :M)");
prepare;
params[0].Asinteger := id;
params[1].Asstring := DBMemo1.Text;
ShowMessage("Äîáàâëåíèå ïðîøëî óäà÷íî");
ExecSql;
end;

может я чё нетак делаю?

а вот вывод

with Query1 do
begin
SQL.Clear;
Sql.Add("select M");
Sql.Add("From Table");
Sql.Add("Where (id =" + """ + Edit1.Text+ "")");
Open;
first;
dbmemo1.Text:=Fields[0].asstring;
Close;
end;

помогите

← →
Berkoot (2008-03-16 12:30) [18]

Используя DBGrid1 и DBNavigator1 всё получается нормально
но нужно без них через query

← →
Berkoot (2008-03-16 14:11) [20]

> MsGuns

как правильно через query записать в поле memo таблицы
ибо вывод на форму в поле Memo через query идет нормальный (данные выводятся нормально те, которые записал при помощи DBGrid1 и DBNavigator1 и DBMemo)

← →
Berkoot (2008-03-16 14:58) [21]

Проблему решил....
Неужели кому-то кто занал трудно было поправить 1 !!! строчку моем коде???
спаибо блин... :(

вместо
params[1].Asstring := DBMemo1.Text;

нужно
params[1].Asblob := DBMemo1.Text;

Memo поле в таблице Paradox Найти похожие ветки