Из ListBox в БД

[evg_m]

Дело в том, что дата так и должна выглядеть, и каждой дате соответствует запись в ListBox2

каждой записи ListBox2 соответствует РОВНО ОДНА запись ListBox1
цикл по ListBox1 НЕ нужен.

for q1:=0 to ListBox1.Items.Count-1 do
begin
for q2:=0 to ListBox1.Items.Count-1 do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'INSERT INTO katalog  (Data, Kvitok, Ssilka) VALUES (:dr, :sd, :ss)';
ADOQuery1.Parameters.ParamByName('dr').Value := ListBox1.Items.Strings[q1q2];
ADOQuery1.Parameters.ParamByName('sd').Value := ListBox2.Items.Strings[q2];
ADOQuery1.Parameters.ParamByName('ss').Value := 'https:';//+sl3;
ADOQuery1.ExecSQL;
end;
end;
end;

[Eugene_Stoun]

evg_m,

каждой записи ListBox2 соответствует РОВНО ОДНА запись ListBox1
цикл по ListBox1 НЕ нужен.

Да, действительно, не смысла ходить по всем ListBoxам. Большое Вам спасибо, решил проблемку.