Insert lento

[giantonti1801]

feliz inicio de fiestas:

tengo un insert en sql server que es muy lento, quiero saber si hay alguna forma de mejorarlo y ponerlo mas rapido

Código Delphi [-]
begin
   if Label26.Text = 'InExistente' then
       begin
       UniQueryVisitantesVal.Close;
       UniQueryVisitantesVal.SQL.Clear;
       UniQueryVisitantesVal.SQL.Add('INSERT INTO visitantes (Nom_Vis,Apell_Vis,Rut_Vis,Foto,Num_dep_Vis,Edif_vis,Estatus,Usuario_mod,otro)');           //
       UniQueryVisitantesVal.SQL.Add('VALUES (:Nom_Vis, :Apell_Vis, :Rut_Vis, :Foto, :Num_dep_Vis, :Edif_vis, :Estatus, :Usuario_mod, tro)');                      //,
       UniQueryVisitantesVal.ParamByName('Nom_vis').AsString := LabelNombreVis.text;
       UniQueryVisitantesVal.ParamByName('Rut_Vis').AsString := LabelRutVis.Text;
       UniQueryVisitantesVal.ParamByName('Foto').Assign(Image4.bitmap);
       UniQueryVisitantesVal.ParamByName('Num_dep_Vis').Asstring := LabelNumeroDpto.text;
       UniQueryVisitantesVal.ParamByName('Edif_vis').AsString := 'XXX';
       UniQueryVisitantesVal.ParamByName('Estatus').AsString := 'ACT';
       UniQueryVisitantesVal.ParamByName('Usuario_mod').Asstring := 'TOTEM';
       UniQueryVisitantesVal.ParamByName('otro').Asstring := 'E';
       UniQueryVisitantesVal.ExecSQL;
       begin
       UniQueryVisitasIngreso.Close;
       UniQueryVisitasIngreso.SQL.Clear;
       UniQueryVisitasIngreso.SQL.Add('INSERT INTO visitas (Nom_Vis,Apell_Vis,Rut__Vis,Foto,Num_dep_Vis,Piso__Vis,Edif_Vis,Hora_In_Vis, Num_Vis,Usuario_mod,otro)');           //
       UniQueryVisitasIngreso.SQL.Add('VALUES (:Nom_Vis, :Apell_Vis, :Rut__Vis, :Foto, :Num_dep_Vis, :Piso__Vis, :Edif_Vis, :Hora_In_Vis, :Num_Vis, :Usuario_mod, tro)');                      //,
       UniQueryVisitasIngreso.ParamByName('Nom_vis').AsString := LabelNombreVis.text;
       UniQueryVisitasIngreso.ParamByName('Rut__Vis').AsString := LabelRutVis.Text;
       UniQueryVisitasIngreso.ParamByName('Foto').Assign(Image4.bitmap);
       UniQueryVisitasIngreso.ParamByName('Num_dep_Vis').Asstring := LabelNumeroDpto.text;
       UniQueryVisitasIngreso.ParamByName('Piso__Vis').AsString := 'XXX';
       UniQueryVisitasIngreso.ParamByName('Edif_Vis').AsString := 'XXX';
       UniQueryVisitasIngreso.ParamByName('Hora_In_Vis').AsDateTime := Now;
       UniQueryVisitasIngreso.ParamByName('Num_Vis').AsString := 'XXX';
       UniQueryVisitasIngreso.ParamByName('Usuario_mod').Asstring := 'TOTEM';
       UniQueryVisitasIngreso.ParamByName('otro').Asstring := 'E';
       UniQueryVisitasIngreso.ExecSQL;
       end
       end
       else
          begin
          UniQueryVisitasIngreso.Close;
          UniQueryVisitasIngreso.SQL.Clear;
          UniQueryVisitasIngreso.SQL.Add('INSERT INTO visitas (Nom_Vis,Apell_Vis,Rut__Vis,Foto,Num_dep_Vis,Piso__Vis,Edif_Vis,Hora_In_Vis, Num_Vis,Usuario_mod,otro)');           //
          UniQueryVisitasIngreso.SQL.Add('VALUES (:Nom_Vis, :Apell_Vis, :Rut__Vis, :Foto, :Num_dep_Vis, :Piso__Vis, :Edif_Vis, :Hora_In_Vis, :Num_Vis, :Usuario_mod, tro)');                      //,
          UniQueryVisitasIngreso.ParamByName('Nom_vis').AsString := LabelNombreVis.text;
          UniQueryVisitasIngreso.ParamByName('Rut__Vis').AsString := LabelRutVis.Text;
          UniQueryVisitasIngreso.ParamByName('Foto').Assign(Image4.bitmap);
          UniQueryVisitasIngreso.ParamByName('Num_dep_Vis').Asstring := LabelNumeroDpto.text;
          UniQueryVisitasIngreso.ParamByName('Piso__Vis').AsString := 'XXX';
          UniQueryVisitasIngreso.ParamByName('Edif_Vis').AsString := 'XXX';
          UniQueryVisitasIngreso.ParamByName('Hora_In_Vis').AsDateTime := Now;
          UniQueryVisitasIngreso.ParamByName('Num_Vis').AsString := 'XXX';
          UniQueryVisitasIngreso.ParamByName('Usuario_mod').Asstring := 'TOTEM';
          UniQueryVisitasIngreso.ParamByName('otro').Asstring := 'E';
          UniQueryVisitasIngreso.ExecSQL;
          end;
end;