17.10.2023, 18:29
|
Новичок
|
|
Регистрация: 18.03.2009
Сообщения: 71
Репутация: 10
|
|
что на уме
Код:
procedure TForm1.AddToDbCb(AFileName:String; ASize: Integer);
begin
SqlConnection1.Open;
try
SqlQuery1.SQL.Text := 'INSERT INTO test1 (id, name, reviews, size, attribute) VALUES (:id, :name, :reviews, :size, :attribute)';
SqlQuery1.ParamByName('id').AsInteger := 1;
SqlQuery1.ParamByName('name').AsString := AFileName;
SqlQuery1.ParamByName('reviews').AsInteger := random(5);// Arews;
SqlQuery1.ParamByName('size').AsInteger := ASize; //inttostr(imgsize);
SqlQuery1.ParamByName('attribute').AsString := 'gggggg';
SQLQuery1.ExecSQL;
Memo1.Lines.Add('Запись_добавлена='+Afilename+inttostr(ASize));
finally
SqlConnection1.Close;
end;
//Application.ProcessMessages;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
obj : TFileItemData; i:integer;
begin
if ListBox2.Count =14 then
begin
for i := 0 to ListBox2.Count-1 do begin
obj := ListBox2.Items.Objects[i] As TFileItemData;
AddToDbCb(obj.AFileName,obj.ASize);
progressbar1.Position:=i;
end;
end;
end;
так? = это жесть
|