• Registered: 2014-08-15
  • Posts: 23

Topic: Добавить несколько записей за один раз

Добрый день!

Подскажите пожалуйста, можно ли после вызова формы редактирования по нажатию кнопки "сохранить запись" (или скриптом) добавить не одну а несколько одинаковых записей со значениями полей из формы?

Спасибо!

2 Reply by fleshkyru (edited by fleshkyru 2015-09-02 14:33:33)

  • Registered: 2015-04-10
  • Posts: 74

Re: Добавить несколько записей за один раз

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);

  Text1: string;
  Text2: string;
begin
  Text1 := Form1.Edit1.Text;
  Text2 := Form1.Edit2.Text;
    SQLExecute ('INSERT INTO table_name (field1, field2) VALUES ("'+ Text1 +'","'+Text2+'" )');
    SQLExecute ('INSERT INTO table_name (field1, field2) VALUES ("'+ Text1 +'","'+Text2+'" )');
    SQLExecute ('INSERT INTO table_name (field1, field2) VALUES ("'+ Text1 +'","'+Text2+'" )');
    SQLExecute ('INSERT INTO table_name (field1, field2) VALUES ("'+ Text1 +'","'+Text2+'" )');
    SQLExecute ('INSERT INTO table_name (field1, field2) VALUES ("'+ Text1 +'","'+Text2+'" )');
    SQLExecute ('INSERT INTO table_name (field1, field2) VALUES ("'+ Text1 +'","'+Text2+'" )');
    SQLExecute ('INSERT INTO table_name (field1, field2) VALUES ("'+ Text1 +'","'+Text2+'" )');
    SQLExecute ('INSERT INTO table_name (field1, field2) VALUES ("'+ Text1 +'","'+Text2+'" )');
    SQLExecute ('INSERT INTO table_name (field1, field2) VALUES ("'+ Text1 +'","'+Text2+'" )');
    SQLExecute ('INSERT INTO table_name (field1, field2) VALUES ("'+ Text1 +'","'+Text2+'" )');
    ShowMessage('Добавили 10 раз без цикла!');
end;
  • Registered: 2014-08-15
  • Posts: 23

Re: Добавить несколько записей за один раз

Понял, спасибо!