Из listbox в БД

[Alexeyss]

Здравствуйте.

Помоги пожалуйста с проблемой,
необходимо внести в базу данных строки из ListBox:

 ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('insert into бла-бла(dat, dok)');
      ADOQuery1.SQL.Add('values (:data, :dok)');
      ADOQuery1.Parameters.ParamByName('data').Value := DateTimeToStr(Date + Time);

  for I := 0 to ListBox1.Items.Count -1 do
    ADOQuery1.Parameters.ParamByName('dok').Value := listbox.items[i]

Т.е. необходимо добавить столько записей в БД сколько строк в listbox

[Stilet]

Хм... Я бы пожалуй делал так:

var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do begin
  ADOQuery1.Insert;
  ADOQuery1.FieldByName('поле').AsString:=ListBox1.Items[i];
 end;
end;

[quit]

  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('insert into бла-бла(dat, dok)');
  ADOQuery1.SQL.Add('values (:data, :dok)');
  for I := 0 to ListBox1.Items.Count -1 do
  begin
     ADOQuery1.ParamByName('data').AsString := DateTimeToStr(Date + Time);// или  если хочешь передать системную дату и время := DateTimeToStr(Now);
     ADOQuery1.ParamByName('dok').AsString:= listbox.items[i];
     ADOQuery1.ExecSql;
  end;

[Alexeyss]

Всем спасибо, разобрался.