Помогите плз, уже скока мучаю и не знаю что делать((
тема такая: у меня есть бд на аксэсе, там есть в одной из таблиц поле типа мемо. так вот в него и надо сохранять текст.
Для конекта с бд создаю пользовательский днс в одбц администраторе. А в самих делфях простой запрос на обновление таблицы. Выглядит все так:

Код

with qrUpdateTask do   begin   if Active then Close;   Params[0].AsInteger:=DiscCode;   Params[1].AsInteger:=ThemeCode;   Params[2].AsInteger:=strtoint(edtDificultyCode.Text);   Params[3].AsMemo:=memoTaskText.Text;   Params[4].AsInteger:=answer;   ExecSQL;   end;

а сам sql запрос выглядит вот так :

INSERT INTO Задание (id_disc, id_theme, КодСложности, ТекстЗадания, Ответ)
VALUES ( :parDisc, :parTheme, :parCode, :parText, :parAnswer);

причем параметр Params[3] типа ftMemo и ptInput

так вот када выолняеться строка ExecSQL мне выкидываеться такая вот ошибка:

project Project1.exe raised exeption class EDBEngineError with message 'general SQL error'.
[Microsoft][драйвер ODBC Microsoft Access]Усечение данных строки справа (null)

причем ошибка вылазит не всегда.

Подскажите еси кто понимает в чем дело

А что за база?

А каков размер поля ТекстЗадания в БД?

база аксесовская,
размер поля не наю какой(тип memo), но это не имеет значение потому что глючит даже при количестве символов <256

Цитата(kosta @ 10.5.2005, 23:49)

Усечение данных строки справа

А может попробовать не далать запрос, а через методы Edit...Post, скорость, правда наверное упадет, надо ведь будет найти нужную запись, прежде чем изменять её...

SPrograMMer
а поточнее про едит и пост мона?

Цитата(kosta @ 11.5.2005, 12:17)

поточнее про едит и пост мона

мона
Прежде тебе надо таблю завести... Т е Table
А после нечто-вроде:

Код

Table1.Active:=True; // делаем её активной While Not Table1.Eof Do Begin  // пока не просмортим все записи...   If Table1.FieldByName('id_disc').AsInteger=DiscCode Then   // нашли запись     Begin         Table1.Edit;  //переводим таблицу в режим редактирования        Table1.FieldByName('id_theme').AsInteger:=ThemeCode; // заносим данные        .....   //каждое в свое поле        Table1.FieldByName('ТекстЗадания').AsMemo:=memoTaskText.Text;        // после запоминаем сделанные изменения:        Table1.Post;        Break; // это для досрочного выхода из цикла     End;   Table1.Next  // а коли не нашли запись переходим к следующей End

Это сообщение отредактировал(а) SPrograMMer - 11.5.2005, 16:59

ясна, сенк, попробую

да, не забудь в конце сделать:

Код

table1.Active:=False; // закрыть таблицу

Забыл чо-то... сразу сказать

попробовал я и получилась вот такая трабла:
оказалось, что запись Table1.FieldByName('ТекстЗадания').AsMemo:=memoTaskText.Text; невозможна, так как нет проперти AsMemo =((

что делать ваабще не знаю

Добавлено @ 01:38
написал как AsString и все заработало
были бы знакомы, выстовил бы пива

маленькая поправка, вместо Table1.Edit нада писать Table1.Insert, иначе будет пихать все время в один и тот же кортеж

Цитата(kosta @ 12.5.2005, 02:09)

вместо Table1.Edit нада писать Table1.Insert

у тебя изначально баз запрос:

Цитата(kosta @ 10.5.2005, 23:49)

INSERT INTO Задание (id_disc, id_theme, КодСложности, ТекстЗадания, Ответ) VALUES ( :parDisc, :parTheme, :parCode, :parText, :parAnswer);

а в нем...


а чего это я действительно подумал что у тебя UpDate....


так что ты прав

Цитата(kosta @ 12.5.2005, 02:09)

Table1.Edit нада писать Table1.Insert

Добавлено @ 14:38
да в таком случае есчо и Append применить моно вместо Insert`а

Добавлено @ 15:13

Цитата(kosta @ 12.5.2005, 01:34)

были бы знакомы, выстовил бы пива

неполучилось бы... имхо не употребляю....

Это сообщение отредактировал(а) SPrograMMer - 12.5.2005, 15:35

Это сообщение отредактировал(а) SPrograMMer - 12.5.2005, 15:33