Из ListBox в БД

[Eugene_Stoun]

Всем привет! Такой вопрос пытаюсь с нескольких ListBox-ов передать информацию в таблицу,а при просмотре таблицы сплошные повторы записей из ListBox-ов, как это можно убрать или по другому записать данные в таблмцу вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
q1,q2,q3:integer;
begin
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[q1];
ADOQuery1.Parameters.ParamByName('sd').Value := ListBox2.Items.Strings[q2];
ADOQuery1.Parameters.ParamByName('ss').Value := 'https:';//+sl3;
ADOQuery1.ExecSQL;
end;
end;
end;

Все отрабатывает, а при просмотре в таблице множественные повторы в столбцах:
Повторы.jpg
А в ListBox-ахListBoxы.jpg

[evg_m]

и зачем вам два ОДИНАКОВЫХ цикла

for q1:=0 to ListBox1.Items.Count-1 do begin
for q2:=0 to ListBox1.Items.Count-1 do begin

а при просмотре таблицы сплошные повторы записей

[Eugene_Stoun]

evg_m,

и зачем вам два ОДИНАКОВЫХ цикла

Увидел и подправил, но результат тот же((((

for q1:=0 to ListBox1.Items.Count-1 do begin
for q2:=0 to ListBox2.Items.Count-1 do begin

[Viktor61]

Eugene_Stoun, а Вы уверены в своих данных, которые передаете в БД. Нет ли повторов в ListBox'ах?

[Viktor61]

Посмотрите:

Сообщение от Eugene_Stoun

for q1:=0 to ListBox1.Items.Count-1 do begin
for q2:=0 to ListBox2.Items.Count-1 do begin

- параметрам q1 и q2 передаются одни и те же данные!

[Viktor61]

М.б. сравнить ListBox1.Items.Count и ListBox2.Items.Count, и если они равны провести

Сообщение от Viktor61

for q1:=0 to ListBox1.Items.Count-1 do begin

с присвоением параметров внутри этого цикла

Сообщение от Eugene_Stoun

ADOQuery1.Parameters.ParamByName('d r').Value := ListBox1.Items.Strings[q1];
ADOQuery1.Parameters.ParamByName('s d').Value := ListBox2.Items.Strings[q2];

[evg_m]

судя по приведенной картинке у вас в ListBox1 (c датами) многочисленные повторы (3-4 раза каждое)
а для КАЖДОЙ из повторенных строк будут добавлены все данные из второго ListBox

но результат тот же((((

[Eugene_Stoun]

evg_m,

судя по приведенной картинке у вас в ListBox1 (c датами) многочисленные повторы (3-4 раза каждое)
а для КАЖДОЙ из повторенных строк будут добавлены все данные из второго ListBox

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

[Aleksandr H.]

Сообщение от Eugene_Stoun

каждой дате соответствует запись в ListBox2

Количество строк ListBox1=ListBox2? один цикл ведь надо от 1й до последней записи ListBox, не?

[Eugene_Stoun]

Aleksandr H.,

Количество строк ListBox1=ListBox2? один цикл ведь надо от 1й до последней записи ListBox, не?

Да от первой до последней записи, все верно.