Q&A

  • C/S에서 자료수정시 속도문입니다
C/S프로그램중입니다 자료를 수정시 DB를 재오픈하였더니 엄청난

자료때문에 속도가 많이 떨어 집니다 어떻하면 자료를 재오픈하지

않고 갱신된 자료를 바로 모두가 볼수 있을까요 ???



procedure TForm2.EditClick(Sender: TObject);

begin

DM1.Database1.StartTransaction;

try



with DM1.Query1 do

begin

Close;

SQL.Clear;

SQL.Add('UPDATE Myham');



SQL.Add('SET Number = :Number, Name = :name');





SQL.Add('WHERE Number = :Number');



ParamByName('Number').AsInteger := StrToInt(Edit1.Text);

ParamByName('Name').AsString := Edit2.Text;





ExecSQL;



with DM1.Query1 do

begin

Close;

SQL.Clear;

SQL.Add('SELECT * FROM Myham');



Open; //요기서 시간이 많이 소요됨

//수정자료를 보이게함

end;



DM1.Database1.Commit;

except

DM1.Database1.Rollback;

Application.MessageBox(' 자료 저장에 이상이 발생하였습니다! ','저장오류',

mb_ICONINFORMATION);

end;

end;

0  COMMENTS