Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: СУБД и Delphi/Lazarus

  Все выпуски  

RFpro.ru: СУБД и Delphi


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Jimhucksly
Статус: 5-й класс
Рейтинг: 786
∙ повысить рейтинг »
LanK
Статус: Профессионал
Рейтинг: 378
∙ повысить рейтинг »
Шичко Игорь
Статус: Практикант
Рейтинг: 187
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / СУБД и Delphi/Lazarus

Номер выпуска:551
Дата выхода:03.11.2009, 16:00
Администратор рассылки:Gh0stik, Модератор
Подписчиков / экспертов:359 / 98
Вопросов / ответов:1 / 1

Вопрос № 173800: Здравствуйте уважаемые эксперты. БД - Access Доступ - ADO Добавляю записи:

Код:
   
Вопрос № 173800:

Здравствуйте уважаемые эксперты.
БД - Access
Доступ - ADO
Добавляю записи:

Код:
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=Memo1.Text;
ADOQuery1.ExecSQL;

Вываливается ошибка:
Пропущен символ (;) в конце инструкции SQL
В Memo1 сл. текст:
Код:
INSERT INTO OTDEL (name) VALUES
('Аппарат управления'),
('Бухгалтерия');

Возможно ли в таблицу Access пакетом добавить данные или только по одной записи?

Отправлен: 28.10.2009, 16:48
Вопрос задал: Шмаров Сергей, 4-й класс
Всего ответов: 1
Страница вопроса »


Отвечает Victor Pyrlik, Модератор :
Здравствуйте, Шмаров Сергей.

Access не поддерживает конструкцию оператора INSERT для множественной вставки.
Для множественной вставки используйте цикл, где на каждой итерации производите вставку 1 строки
Но, используя Delphi можно обойтись гораздо проще, не использовать оператор INSERT SQL..
а просто InsertRecord
например..

Код:
var i:integer;
begin
for i := 0 to Memo1.Lines.Count-1 do
ADOTable1.InsertRecord([Memo1.Lines[i]]);
end;


При этом, текст предполагается в memo1:
Аппарат управления
Бухгалтерия

А в таблице только 1 поле
Если в таблице не одно поле, то надо явно указывать или значения или nil (возможно, для типа Variant надо указывать NULL - уточнить в справке delphi)
т.е. если например в таблице 3 поля: id_dep, name_dep, phone_dep (т.е. номер отдела, название отдела и телефон отдела)
то конструкция IbsertRecord может выглядеть примерно так:

ADOTable1.InsertRecord([i, Memo1.Lines[i], NULL]); где i - будет номер отдела. Если номер отдела есть автоикриментное поле, т.е. добавляется автоматически, то на его место ставим NULL.


-----
Жизнь игрушка – пока играешь сам..

Ответ отправил: Victor Pyrlik, Модератор
Ответ отправлен: 28.10.2009, 20:26
Россия, Екатеринбург
Тел.: 89043822027
ICQ # 490191733
Абонент Skype: stells00

Оценка ответа: 5

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 255975 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)

    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.


    © 2001-2009, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.10 от 26.10.2009

    В избранное