Поиск:

Ответ в темуСоздание новой темы Создание опроса
> memo, query и access, текст из Tmemo в поле memo 
:(
    Опции темы
yogin
Дата 14.12.2009, 08:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 23.12.2007

Репутация: нет
Всего: нет
Добро дня.
при попытки занесения Memo1.Lines.Text в поле memo access'a вылетает ошибка о несоответствии типов полей... (с полем string тоже самое, но это я так, на всякий случай проверял)
вот собсно сам процесс заноса:
Код

q.SQL.Text := 'insert into tab1 (pole_memo)VALUES(:mem)';
q.Parameters.ParamByName('mem').Value := Memo1.Lines.Text;
q.ExecSQL;

как прально-то тогда надо?...
PS: неужто #10#13 заменять на другие символы при вносе, а при доставки из базы заменять обратно?...

Это сообщение отредактировал(а) yogin - 14.12.2009, 11:44
PM MAIL   Вверх
Voxifer
Дата 14.12.2009, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 27.8.2009

Репутация: нет
Всего: нет
Может надо не TMemo.Lines.Text, а Memo1.Lines.Text?
PM MAIL   Вверх
yogin
Дата 14.12.2009, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 23.12.2007

Репутация: нет
Всего: нет
Цитата(Voxifer @ 14.12.2009,  11:36)
Может надо не TMemo.Lines.Text, а Memo1.Lines.Text?

да это я просто так написал. вопрос в силе.

Это сообщение отредактировал(а) yogin - 14.12.2009, 14:12
PM MAIL   Вверх
Rodman
Дата 14.12.2009, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
конкретно ошибку напиши


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Teleport
Дата 14.12.2009, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6
Пробуй так
Код

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Add('111');
  Memo1.Lines.Add('222');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 str: string;
begin
 with ADOQ1 do begin
   Active:= false;
   SQL.Clear;
   SQL.Add('INSERT INTO my_tab (my_memo_field) VALUES("' + Memo1.Text + '");');   //вносим данные без проблем
   ExecSQL;
   SQL.Clear;
   //проверяем внесенные данные
   SQL.Add('SELECT my_memo_field FROM my_tab WHERE my_memo_field= "' + Memo1.Text + '";');
   Active:= true;
   str:= FieldByName('my_memo_field').AsString;
   ShowMessage(str); //тут все выдает как надо - читает данные из таблички
 end;
end;


Это сообщение отредактировал(а) Teleport - 14.12.2009, 18:10


--------------------
user posted image
user posted image 
PM MAIL   Вверх
yogin
Дата 14.12.2009, 21:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 23.12.2007

Репутация: нет
Всего: нет
Цитата(Teleport @ 14.12.2009,  18:08)
Пробуй так

Во, спасибо, вот так всё нормуль.
Видимо .Lines.Text и .Text(TCaption) различаются форматами, что чувствительно для аксеса.
PM MAIL   Вверх
Teleport
Дата 15.12.2009, 01:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6
Так тоже прокатывает:
Код

   SQL.Add('INSERT INTO my_tab (my_memo_field) VALUES("' + Memo1.Lines.Text + '");');


И так тоже прокатывает
Код

   SQL.Add('INSERT INTO my_tab (my_memo_field) VALUES(:mem);');
   Parameters.ParamByName('mem').Value:=  Memo1.Lines.Text ;


Просто Lines - я посчитал лишним писать. А где у тебя какая ошибка могла  возникнуть - понятия не имею.

Это сообщение отредактировал(а) Teleport - 15.12.2009, 01:31


--------------------
user posted image
user posted image 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1825 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.