Обновление в цикле

[artemavd]

Добрый вечер! Прошу помощи с решением задачи. Задача: выбрать записи из одной таблицы и обновить вторую таблицу. У обоих таблиц есть общее поле. Проблема в том, что не могу сделать, что в коде выбирались из второй таблицы записи, которыми нужно обновить первую таблицу и выполнялось обновление. Сделал для проверки через эдит добавление в Мемо, добавление в него работает. Вот код:

procedure TForm2.mniN68Click(Sender: TObject);
var
  i,j: Integer;
begin
 Form2.dlgOpen1.Title:='Укажите DBF файл обновления . . .';
 Form2.dlgOpen1.FileName:='*.dbf';
 Form2.dlgOpen1.Filter:='DBF|.dbf';
 if Form2.dlgOpen1.Execute then
 begin
   Form2.sStatusBar4.Panels[3].Text:=Form2.dlgOpen1.FileName;
   Form2.sStatusBar4.Panels[5].Text:=ExtractFileName(ChangeFileExt(Form2.dlgOpen1.FileName,''));

   //подключаю файл обновления 
   Form2.ds1.DataSet:=nil;
   Form2.qry1.Active:=False;
   Form2.qry1.SQL.Clear;
   Form2.qry1.SQL.Text:='select IDU,REGNUMBERU,OGRNU from ' + Form2.sStatusBar4.Panels[5].Text;
   Form2.qry1.Open;
   Form2.sStatusBar5.Panels[1].Text:='[ ' + IntToStr(Form2.qry1.RecordCount) + ' ]';
   Form2.qry1.First;
   while not Form2.qry1.Eof do
   begin
    Form2.sEdit1.Text:=Form2.qry1.FieldByName('REGNUMBERU').AsString;
    Form2.sEdit2.Text:=Form2.qry1.FieldByName('OGRNU').AsString;
//вот тут не могу записать обновление в цикле. 
    Form2.sMemo1.Lines.Add(Form2.sEdit1.Text);
    Form2.sMemo2.Lines.Add(Form2.sEdit2.Text);
    Form2.qry1.Next;
   end;
   //обновляю записи в журнале
   Form2.qry1.Close;
   Form2.qry1.SQL.Clear;
   Form2.qry1.SQL.Text:='update jurnal set REGNUMBER = "'
    + Form2.sEdit1.Text + '" where OGRN="' + Form2.sEdit2.Text + '"';
   Form2.qry1.ExecSQL;
   Form2.qry1.Close;

   //возвращаю все записи из основного журнала
   Form2.qry1.Active:=False;
   Form2.qry1.SQL.Clear;
   Form2.qry1.SQL.Text:='select ID,REGNUMBER,DATAPST,DATAOBR,TIMEOBR,DATASNYT,KATEGORIA,
OGRN, INN,FIOOLD,FIONEW,ST,DATAZAYV,NUMBER,ANSWER from jurnal';
   Form2.qry1.Open;
   Form2.sStatusBar4.Panels[1].Text:='[ ' + IntToStr(Form2.qry1.RecordCount) + ' ]';
   Form2.ds1.DataSet:=Form2.qry1;

 end;
end;

Прошу помочь кодом на основе моего. Заранее спасибо.

[Аватар]

Попробуй, может этим кодом удастся обновить все, не знаю как провайдер твой скушает. TableIn замени на имя файла обновления, необходимое условие - уникальность OGRNU в TableIn и OGRN в jurnal (второе вообщето не обязательно)

update jurnal
  set REGNUMBER=T.REGNUMBERU
  from TableIn as T
  where jurnal.OGRN=T.OGRNU

[artemavd]

Это не работает.

[evg_m]

долно быть ДВА разных объекта Qery
один ( Form2.qry1 ) для получения исходных данных

     //подключаю файл обновления 
   Form2.ds1.DataSet:=nil;
   Form2.qry1.Active:=False;
   Form2.qry1.SQL.Clear;
   Form2.qry1.SQL.Text:='select IDU,REGNUMBERU,OGRNU from ' +   Form2.sStatusBar4.Panels[5].Text;
   Form2.qry1.Open;

и второй (Form2.qry2 )для обновления

  //обновляю записи в журнале
   Form2.qry2.Close;
   Form2.qry2.SQL.Clear;
   Form2.qry2.SQL.Text:='update jurnal set REGNUMBER = "' + Form2.sEdit1.Text + '" where OGRN="' + Form2.sEdit2.Text + '"';
   Form2.qry2.ExecSQL;

а теперь код по обновлению вставляешь в цикл причесываешь (убираешь лишнее) и вперед.

P.S. использование параметров для обновления

   Form2.qry1.First;
// задаем запрос обновления в переметричестом виде
   Form2.qry2.SQL.Text:='update jurnal set REGNUMBER = :num where OGRN=:orgnum';

   while not Form2.qry1.Eof do
   begin
    Form2.sEdit1.Text:=Form2.qry1.FieldByName('REGNUMBERU').AsString;
    Form2.sEdit2.Text:=Form2.qry1.FieldByName('OGRNU').AsString;
//вот тут не могу записать обновление в цикле. 
// задаем значения пареметров и выполняем обновление
  From2.qry2.params.parambyname('num').asstring:=Form2.qry1.FieldByName('REGNUMBERU').AsString;
   From2.qry2.params.parambyname('orgnum').asstring:=Form2.qry1.FieldByName('OGRNU').AsString;
   Form2.qry2.ExecSQL;

    Form2.sMemo1.Lines.Add(Form2.sEdit1.Text);
    Form2.sMemo2.Lines.Add(Form2.sEdit2.Text);
    Form2.qry1.Next;
   end;

[artemavd]

Вообщем, надо было сделать так:

procedure TForm2.mniN68Click(Sender: TObject);
begin
 Form2.dlgOpen1.Title:='Укажите DBF файл обновления . . .';
 Form2.dlgOpen1.FileName:='*.dbf';
 Form2.dlgOpen1.Filter:='DBF|.dbf';
 if Form2.dlgOpen1.Execute then
 begin
   Form2.sStatusBar4.Panels[3].Text:=Form2.dlgOpen1.FileName;
   Form2.sStatusBar4.Panels[5].Text:=ExtractFileName(ChangeFileExt(Form2.dlgOpen1.FileName,''));

   //подключаю файл обновления
   Form2.con3.Close;
   Form2.con3.ConnectionString:='Provider=VFPOLEDB.1;Data Source=' + ExtractFilePath(Form2.sStatusBar4.Panels[3].Text) + ';Password="";Collating Sequence=MACHINE;DSN=""';
   Form2.con3.Open;
   Form2.sEdit3.Text:=ExtractFilePath(Form2.sStatusBar4.Panels[3].Text);

   Form2.qry3.Active:=False;
   Form2.qry3.SQL.Clear;
   Form2.qry3.SQL.Text:='select IDU,REGNUMBERU,OGRNU from ' + Form2.sStatusBar4.Panels[5].Text;
   Form2.qry3.Open;
   Form2.sStatusBar5.Panels[1].Text:='[ ' + IntToStr(Form2.qry3.RecordCount) + ' ]';

   Form2.qry1.Active:=False;
   Form2.qry1.SQL.Clear;
   Form2.qry1.SQL.Text:='select ID,REGNUMBER,DATAPST,DATAOBR,TIMEOBR,DATASNYT,KATEGORIA,OGRN,INN,FIOOLD,FIONEW,ST,DATAZAYV,NUMBER,ANSWER from jurnal';
   Form2.qry1.Open;
   Form2.sStatusBar4.Panels[1].Text:='[ ' + IntToStr(Form2.qry1.RecordCount) + ' ]';
   Form2.qry3.First;
   Form2.qry4.SQL.Text:='update jurnal set REGNUMBER=:num where OGRN=:ogrnum';
   while not Form2.qry3.Eof do
   begin
    Form2.sEdit1.Text:=Form2.qry3.FieldByName('REGNUMBERU').AsString;
    Form2.sEdit2.Text:=Form2.qry3.FieldByName('OGRNU').AsString;
    Form2.qry4.Parameters.ParamByName('num').Value:=Form2.sEdit1.Text;
    Form2.qry4.Parameters.ParamByName('ogrnum').Value:=Form2.sEdit2.Text;
    Form2.qry4.ExecSQL;
    Form2.qry3.Next;
   end;

   Form2.qry1.Active:=False;
   Form2.qry1.SQL.Clear;
   Form2.qry1.SQL.Text:='select ID,REGNUMBER,DATAPST,DATAOBR,TIMEOBR,DATASNYT,KATEGORIA,OGRN,INN,FIOOLD,FIONEW,ST,DATAZAYV,NUMBER,ANSWER from jurnal';
   Form2.qry1.Open;
   Form2.sStatusBar4.Panels[1].Text:='[ ' + IntToStr(Form2.qry1.RecordCount) + ' ]';
 end;
end;

Вроде работает. Может кому пригодится