[kadnikov]

Можно ли в таблицу добавить несколько строк ОДНИМ запросом?

Например вместо этого
:

Код:

Form1.ADOQuery3.Close;
Form1.ADOQuery3.SQL.Clear;
Form1.ADOQuery3.SQL.Text:='INSERT INTO vi VALUES (:vp1, :vp2, :vp3)';
Form1.ADOQuery3.Parameters.ParamByName('vp1').Value:=StrToDateTime(Form1.Label194.Caption);
Form1.ADOQuery3.Parameters.ParamByName('vp2').Value:=StrToDateTime(''+DateToStr(Form1.DateTimePicker1.Date)+' '+TimeToStr(Form1.DateTimePicker2.Time)+'');
Form1.ADOQuery3.Parameters.ParamByName('vp3').Value:=''+Form1.Edit2.Text+'';
Form1.ADOQuery3.ExecSQL;
Form1.ADOQuery3.Close;
Form1.ADOQuery3.SQL.Clear;
Form1.ADOQuery3.SQL.Text:='INSERT INTO vi VALUES (:vp1, :vp2, :vp3)';
Form1.ADOQuery3.Parameters.ParamByName('vp1').Value:=StrToDateTime(Form1.Label194.Caption);
Form1.ADOQuery3.Parameters.ParamByName('vp2').Value:=StrToDateTime(''+DateToStr(Form1.DateTimePicker1.Date)+' '+TimeToStr(Form1.DateTimePicker2.Time)+'');
Form1.ADOQuery3.Parameters.ParamByName('vp3').Value:=''+Form1.Edit3.Text+'';
Form1.ADOQuery3.ExecSQL;