Tiempo Excedido(Re-Post)

[Paulao]

Tengo una rutina que hace un update en una tabla de banco. Que pasa es que estas tablas tiene muchos registros. Una com 60.000.000 y otra con 5.000.000. La que yo voy a actualizar es la de 5.000.000, pero basada en la que tiene 60 millones. Yo pongo uno registros apenas y quando me voy a actualizar, me lo da el erro: TIEMPO EXCEDIDO. Hay como permitir que mi programa lo haga con el tiempo que for necesario? Uso:
Delphi 6, MsSql Server 2005 y ADO. Abajo mi rutina:

Código Delphi [-]
procedure TfrmMain.AtualizaTabela;
var
  sql,
  tabela: String;
  qry,qry_carga: TAdoQuery;
  dts: TDataSource;
  arq: TextFile;
  incrementa:integer;
begin
  incrementa := 0;
  if rgBanco.ItemIndex = -1 then
  begin
    MessageDlg('Selecione uma opção de Forma de Execução',mtInformation,[mbok],0);
    Exit;
  end;
  AssignFile (arq, 'D:\Logs\Log_Erro_Update.txt');
  Rewrite (arq);

  qry := TAdoQuery.Create(nil);
  qry.Connection := DM.Conn;
  dts := TDataSource.Create(nil);
  dts.DataSet := qry;
  Grid.DataSource := dts;

  if ComboBox1.Text <> '' then
    tabela := ComboBox1.Text;

  bAtualiza_tudo  := rgBanco.ItemIndex = 0;

  DM.qryAtualiza.Sql.Clear;
  if (rgBanco.ItemIndex = 1) and (edtQtde.Text <> '') then
    DM.qryAtualiza.Sql.Add('select top ' + edtQtde.Text + ' * from conhecimento_carga where data_emissao_conhecimento = ''1899-12-30 00:00:00.000''');
  DM.qryAtualiza.Open;

  sql := Memo1.Lines.Text;
  pb.Max := DM.qryAtualiza.RecordCount;
  pb.Position := 0;
  DM.qryAtualiza.First;
  while not DM.qryAtualiza.Eof do
  begin
    try
      DM.Conn.BeginTrans;
      //sql := sql + DM.qryAtualiza.FieldByName('numero_conhecimento').AsString;
      qry.SQL.add(sql);
      qry.ExecSQL;
      DM.Conn.CommitTrans;
      pb.Position := pb.Position + 1;
      inc(incrementa);
      DM.qryAtualiza.Next;
    except
      on E: Exception do
      begin
        writeln(arq, DateToStr(Now) + ' - ' + E.Message);
      end;
    end;
  end;
  DM.qryAtualiza.Close;
  CloseFile(arq);
end;

[[oscarac]]

y en que instruccion es?
has depurado el modulo para ver donde es que se esta quedando?

[Paulao]

Ya lo hizo. Es que en mi codigo, yo hizo un update, pero no hizo en comparacion con la query del loop. Crie tres parametros en mi query de update y puzo eses parametros com la qury del loop y ahora si, estas ok. Gracias.

Código Delphi [-]
qry.SQL.add(sql);
      qry.Parameters.ParamByName('Filial').Value  := DM.qryAtualiza.FieldByName('filial_origem').AsString;
      qry.Parameters.ParamByName('Numero').Value  := DM.qryAtualiza.FieldByName('numero_conhecimento').AsString;
      qry.Parameters.ParamByName('Emissao').Value := DM.qryAtualiza.FieldByName('data_emissao_conhecimento').AsString;
      qry.ExecSQL;

[Paulao]

Uso Ado, Delphi 6 y Sql Server 2005. Siempre que me voy a ejecutar una View por Delphi, me lo da el erro de Tiempo Excedido. El que pasa es que si voy a ejecutar en el gerenciador del banco de datos, si queda listo. El problema estas en Delphi, con la aplicacion. Que puede ser esto?

[[oscarac]]

coloca el codigo......


esta pregunta no la hiciste anteriormente???

[Paulao]

Por esto yo puzo Re-Post, o sea, hizo la pregunta parecida, pero en situacion diferente. Pero yo resolvi ponendo la propriedad ConnectionTimeOut para zero(0). Esto resolvio. Gracias.

[Carlos Sánchez]

estimado,
Paulao, tienes que aumentar el tiempo de desconeccion de la base de datos con tu aplicacion, en el connecttimeout aumentalo, en la opcion params, te recomiendo que le pongas unos 2800000. a mi resolvio el problema en otra aplicacioón, espero que te seriva.

soy novato pero he tenido algunos cosas hechas y creo que te pueden ayudar estas recomendaciones

Saludos