Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте! Помогите решить одну проблему. Сохраняю значения Edit-ов в БД через ADOCommand. всего эдитов 3: ФИО, адрес, тел. Нужно чтобы в таблице базы данных все 3 значения записывались в 1 строчку, а у меня получается что то типа лесинки :) Вот код: (приложение)

Edit1- это название таблицы куда вносятся данные.
Как исправить?

Вопрос задал: Анучин (статус: Посетитель) Вопрос отправлен: 14 апреля 2011, 01:55 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: Егор

Здравствуйте, Анучин!
Ну так тут вставляется несколько строк.
А надо вставлять все данные одним запросом. Примерно вот так:

procedure TForm1.sButton7Click(Sender: TObject);
begin
  ADOCommand1.CommandText := 'insert into ' + Edit1.text + '(ФИО, Адрес, Тел) ' +
                             'values(''' + Edit2.Text + ''', ''' + Edit3.Text +
                             ''', ''' + Edit3.Text + ''')';
  ADOCommand1.Execute;
end;

Ответ отправил: Егор (статус: 10-ый класс) Время отправки: 14 апреля 2011, 03:17 Оценка за ответ: 5

Мини-форум вопроса

Анучин (статус: Посетитель), 14 апреля 2011, 01:58 [#1]: упс небольшая опечаточка, в предпоследней строчке вместо Edit3, надо Edit4.

Егор (статус: 10-ый класс), 14 апреля 2011, 03:19 [#2]: упс. я повторил опечатку Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

14 апреля 2011, 16:30: Статус вопроса изменён на решённый (изменил автор вопроса — Анучин)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.