高分求助:ADO對視圖的更新問題,如何讓ADO只更新視圖中指定的表? ( 积分: 200 )

gaobangsheng · 2007-05-15

各位老兄,問一個很久都沒解決的問題啊! 三層環境中:     中間層讀取數據庫中的視圖數據返回到客戶端,然後,客戶端根據需要,對數據進行了修改,然後進行保存. 但存在一個問題,就是ADO會將所以視圖中對應的表中改動的數據全部更新.這樣是不正確的,因為很多join 過來的表 只是用於顯示,如: 客戶名稱,員工名稱等,是不讓改的.      簡單的說,就是有沒有方法實現,讓ADO只更新視圖中的指定表到數據庫中,類類似於BDE中的 TUpdateSQL的功能.      有控件給我實現也行,謝謝啊

suyi3026 · 2007-05-15

唉 好像沒有啊 那就不要用視圖，用多表查詢，你可以只更新其中的幾個字段啊

ChrisMao · 2007-05-15

楼主可以自已写SQL语句更新相关字段，前端只需要Refresh一下即可。

gaobangsheng · 2007-05-16

To suyi3026:   多表查詢如何實現,請幫一下忙, 說一下吧! To ChrisMao:   自已寫SQL語句?麻煩具體講一下,謝謝   如果有什麼好方法也可以回我郵箱裡,gaobangsheng@163.com謝謝啊,我好久沒上delphibbs了,分要了也沒用,如果問題解決了,給多少都行啊.

enterwin · 2007-05-16

写一个触发器吧 CREATE TRIGGER [TRIGGER NAME] ON [视图名]  FOR INSERT as insert into tablename1(f1,f2,f3) values(v1,v2,v3) insert into tablename2(f1,f2,f3) values(v1,v2,v3) insert into tablename3(f1,f2,f3) values(v1,v2,v3) 就可以了。

enterwin · 2007-05-16

写一个触发器吧 CREATE TRIGGER [TRIGGER NAME] ON [视图名]  FOR INSERT,UPDATE, DELETE  as if( inserted&nbsp

begin insert into tablename1(f1,f2,f3) values(v1,v2,v3) insert into tablename2(f1,f2,f3) values(v1,v2,v3) insert into tablename3(f1,f2,f3) values(v1,v2,v3) end else if(updated) begin update table1 set .... update table2 set.... end else ... 就可以了。

gaobangsheng · 2007-05-16

樓上的誤解我的意思了!   其實我就是想控制一下,哪些字段更新到數據庫,哪些字段不讓更新.   客戶端有改變,在中間層想辦法控制某些字段更新,其它字段不回寫到數據庫中

dreamisx · 2007-05-18

在视图加上来更新/插入触发器啊!你可以在触发器里选择更新/插入哪些字段/表的. 此外,在中间层的DataSetProvider(不知你用了没有)的OnUpdateData事件里也可以自己处理更新/插入/删除的; 对了,还可以在DataSet.AfterOpen事件里设置字段的ProviderFlags,比如:   with DataSet.FieldByName('fieldname') do begin     ProviderFlags := ProviderFlags - [pfInUpdate, pfInWhere];   end;

gaobangsheng · 2007-05-18

To dreamisx:   您的方法我覺得可行啊!   觸發器中寫的話,不容易控制.   後兩種方法可行吧應該,不過我還是想請教一下,在DataSetProvider中控制好像好點,但是沒有用過,您能不能提供點方法,例子什麼的,感激不盡啊!

dreamisx · 2007-05-19

我说错了,对中间层的DataSetProvider,应该在它的BeforeUpdateRecord事件里控制,举例如下(李大嘴写的那本<<Inside VCL>>里有例子): procedure TRemoteDMTest.dspTestBeforeUpdateRecord(Sender: TObject;   SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;  //DeltaDS里就是要更新的数据   UpdateKind: TUpdateKind; var Applied: Boolean);   procedure DeleteData;   begin     with qryExec do begin  //qryExec是一个在RemoteDataModule里建好的专门用于执行SQL的Query组件       Close;       SQL.Text := Format('delete from test where KeyID=%d', [DeltaDS.FieldByName('KeyID').AsInteger]);       ExecSQL;     end;   end;   procedure InsertData;   begin     //...   end;   procedure UpdateData;   begin     //...   end; begin   try     case UpdateKind of       ukModify: UpdateData;       ukInsert: InsertData;       ukDelete: DeleteData;     end;   except     on E: Exception do begin       LogError(E.Message);       raise;     end;   end;   Applied := True;  //表示自己处理了 end;

hjp0214 · 2007-05-19

unit ADOUpdateSQL; interface uses    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,    Db, ADOInt, ADODB,Variants; type    TUpdateErrorEvent = procedure(DataSet: TDataSet; E: EDatabaseError; UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction) of object;    TADOUpdateSQL = class;    TADOUpdDataSet = class(TADODataSet)    private       { Private declarations }       FUpdateObject: TADOUpdateSQL;       FOnUpdateRecord: TUpdateRecordEvent;       fOnUpdateError: TUpdateErrorEvent;       procedure SetUpdateObject(Value: TADOUpdateSQL);       function UpdatePending(var UpdateKind: TUpdateKind): boolean;    protected       { Protected declarations }       procedure ApplyUpdates(AffectRecords: TAffectRecords);    public       { Public declarations }       procedure UpdateBatch(AffectRecords: TAffectRecords = arAll); reintroduce;    published       { Published declarations }       property UpdateObject: TADOUpdateSQL read FUpdateObject write SetUpdateObject;       { Events }       //property OnUpdateRecord: TUpdateRecordEvent read FOnUpdateRecord write FOnUpdateRecord;       property OnUpdateError: TUpdateErrorEvent read fOnUpdateError write fOnUpdateError;    end;    TADOUpdateSQL = class(TComponent)    private       { Private declarations }       FDataSet: TADOUpdDataSet;       FQueries: array[TUpdateKind] of TADOQuery;       FSQLText: array[TUpdateKind] of TStrings;       function GetQuery(UpdateKind: TUpdateKind): TADOQuery;       function GetSQL(UpdateKind: TUpdateKind): TStrings;       function GetSQLIndex(Index: Integer): TStrings;       procedure SetSQL(UpdateKind: TUpdateKind; Value: TStrings);       procedure SetSQLIndex(Index: Integer; Value: TStrings);    protected       { Protected declarations }       function GetDataSet: TADOUpdDataSet;       procedure SetDataSet(ADataSet: TADOUpdDataSet);       procedure SQLChanged(Sender: TObject);    public       { Public declarations }       constructor Create(AOwner: TComponent); override;       destructor Destroy; override;       property DataSet: TADOUpdDataSet read GetDataSet write SetDataSet;       procedure Apply(UpdateKind: TUpdateKind);       procedure ExecSQL(UpdateKind: TUpdateKind);       procedure SetParams(UpdateKind: TUpdateKind);       property Query[UpdateKind: TUpdateKind]: TADOQuery read GetQuery;       property SQL[UpdateKind: TUpdateKind]: TStrings read GetSQL write SetSQL;    published       { Published declarations }       property ModifySQL: TStrings index 0 read GetSQLIndex write SetSQLIndex;       property InsertSQL: TStrings index 1 read GetSQLIndex write SetSQLIndex;       property DeleteSQL: TStrings index 2 read GetSQLIndex write SetSQLIndex;    end; procedure Register; implementation resourcestring    rsUpdateFailed                       = 'Update failed'; procedure Register; begin    RegisterComponents('FreDsterWare', [TADOUpdDataSet, TADOUpdateSQL]); end; { TADOUpdDataSet } {-----------------------------------------------------           TADOUpdDataSet.SetUpdateObject  * Purpose  : Set the UpdateObject               If another dataset already references this updateobject, then remove the reference  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} procedure TADOUpdDataSet.SetUpdateObject(Value: TADOUpdateSQL); begin    if Value <> FUpdateObject then    begin       if Assigned(FUpdateObject) and (FUpdateObject.DataSet = Self) then          FUpdateObject.DataSet := nil;       FUpdateObject := Value;       if Assigned(FUpdateObject) then       begin          if Assigned(FUpdateObject.DataSet) and             (FUpdateObject.DataSet <> Self) then             FUpdateObject.DataSet.UpdateObject := nil;          FUpdateObject.DataSet := Self;       end;    end; end; {-----------------------------------------------------           TADOUpdDataSet.UpdateBatch  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} procedure TADOUpdDataSet.UpdateBatch(AffectRecords: TAffectRecords); begin    if Assigned(FUpdateObject)       or Assigned(FOnUpdateRecord) then       ApplyUpdates(AffectRecords)    else       inherited UpdateBatch(AffectRecords); end; {-----------------------------------------------------           TADOUpdDataSet.ApplyUpdates  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} procedure TADOUpdDataSet.ApplyUpdates(AffectRecords: TAffectRecords); var    UpdateAction                         : TUpdateAction;    UpdateKind                           : TUpdateKind;    SavedFilter                          : string;    SavedFilterGroup                     : TFilterGroup;    wasFiltered                          : Boolean;    RequeryNeeded                        : Boolean; begin    SavedFilter := Filter;    SavedFilterGroup := FilterGroup;    wasFiltered := Filtered;    FilterGroup := fgNone;    RequeryNeeded := False;    CheckBrowseMode;    if not isEmpty then    begin       DisableControls;       try          UpdateCursorPos;          if not (RecordSet.EOF and RecordSet.BOF) then          begin             RecordSet.Filter := adFilterPendingRecords;             if not (RecordSet.EOF and RecordSet.BOF) then             begin                RecordSet.MoveFirst;                while not RecordSet.Eof do                begin                   if (Recordset.Status and adRecDeleted) = adRecDeleted then                   begin                      UpdateAction := uaFail;                      UpdateKind := ukDelete;                      try                         RequeryNeeded := True;                         Recordset.CancelBatch(adAffectCurrent);                         FUpdateObject.Apply(UpdateKind);                      except                         on E: EDatabaseError do                            if Assigned(OnUpdateError) then                               OnUpdateError(Self, E, UpdateKind, UpdateAction)                      end;                   end;                   RecordSet.MoveNext;                end;             end;             RecordSet.Filter := adFilterPendingRecords;          end;          FilterGroup := fgPendingRecords;          Filtered := true;          if not (EOF and BOF) then          begin             First;             while not Eof do             begin                UpdateCursorPos;                if UpdatePending(UpdateKind) then                begin                   RequeryNeeded := RequeryNeeded or (UpdateKind <> ukModify);                   UpdateAction := uaFail;                   if Assigned(FOnUpdateRecord) then                      FOnUpdateRecord(self, UpdateKind, UpdateAction)                   else                   begin                      try                         FUpdateObject.Apply(UpdateKind);                      except                         on E: EDatabaseError do                            if Assigned(OnUpdateError) then                               OnUpdateError(Self, E, UpdateKind, UpdateAction)                      end;                      Recordset.CancelBatch(adAffectCurrent);                   end;                end;                Next;             end;          end;       finally          FilterGroup := fgNone;          FilterGroup := SavedFilterGroup;          Filter := SavedFilter;          Filtered := wasFiltered;          if RequeryNeeded then             Requery          else             Refresh;          EnableControls;       end;    end; end; {-----------------------------------------------------           TADOUpdDataSet.UpdatePending  * Purpose  : Map UpdateStatus to UpdateKind  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} function TADOUpdDataSet.UpdatePending(var UpdateKind: TUpdateKind): boolean; var    AUpdateStatus                        : TUpdateStatus; begin    AUpdateStatus := UpdateStatus;    Result := (AUpdateStatus <> usUnmodified);    if Result then       UpdateKind := TUpdateKind(Ord(AUpdateStatus) - 1); end; { TADOUpdateSQL } {-----------------------------------------------------           TADOUpdateSQL.Apply  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} procedure TADOUpdateSQL.Apply(UpdateKind: TUpdateKind); begin    SetParams(UpdateKind);    ExecSQL(UpdateKind); end; {-----------------------------------------------------           TADOUpdateSQL.Create  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} constructor TADOUpdateSQL.Create(AOwner: TComponent); var    UpdateKind                           : TUpdateKind; begin    inherited Create(AOwner);    for UpdateKind := Low(TUpdateKind) to High(TUpdateKind) do    begin       FSQLText[UpdateKind] := TStringList.Create;       TStringList(FSQLText[UpdateKind]).OnChange := SQLChanged;    end; {$IFDEF UNREGISTERED}    if not (csDesigning in ComponentState) then              { running outside IDE}       if (FindWindowEx(0, 0, 'TAppBuilder', nil) = 0) then       begin                                                 { Delphi not found}          Application.NormalizeTopMosts;          ShowMessage(Self.ClassName + ' is NOT a public domain product, if you find it usefull then please register it..');          Application.RestoreTopMosts;       end; {$ENDIF} end; {-----------------------------------------------------           TADOUpdateSQL.Destroy  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} destructor TADOUpdateSQL.Destroy; var    UpdateKind                           : TUpdateKind; begin    if Assigned(FDataSet) and (FDataSet.UpdateObject = Self) then       FDataSet.UpdateObject := nil;    for UpdateKind := Low(TUpdateKind) to High(TUpdateKind) do       FSQLText[UpdateKind].Free;    inherited Destroy; end; {-----------------------------------------------------           TADOUpdateSQL.ExecSQL  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} procedure TADOUpdateSQL.ExecSQL(UpdateKind: TUpdateKind); begin    with Query[UpdateKind] do    begin       Prepared := True;       ExecSQL;       if (RowsAffected = 0) then          DatabaseError(rsUpdateFailed);    end; end; {-----------------------------------------------------           TADOUpdateSQL.GetQuery  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} function TADOUpdateSQL.GetQuery(UpdateKind: TUpdateKind): TADOQuery; begin    if not Assigned(FQueries[UpdateKind]) then    begin       FQueries[UpdateKind] := TADOQuery.Create(Self);       FQueries[UpdateKind].SQL.Assign(FSQLText[UpdateKind]);       if Assigned(FDataSet.Connection) then          FQueries[UpdateKind].Connection := FDataSet.Connection       else          FQueries[UpdateKind].ConnectionString := FDataSet.ConnectionString;    end;    Result := FQueries[UpdateKind]; end; {-----------------------------------------------------           TADOUpdateSQL.GetSQL  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} function TADOUpdateSQL.GetSQL(UpdateKind: TUpdateKind): TStrings; begin    Result := FSQLText[UpdateKind]; end; {-----------------------------------------------------           TADOUpdateSQL.GetSQLIndex  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} function TADOUpdateSQL.GetSQLIndex(Index: Integer): TStrings; begin    Result := FSQLText[TUpdateKind(Index)]; end; {-----------------------------------------------------           TADOUpdateSQL.GetDataSet  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} function TADOUpdateSQL.GetDataSet: TADOUpdDataSet; begin    Result := FDataSet; end; {-----------------------------------------------------           TADOUpdateSQL.SetDataSet  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} procedure TADOUpdateSQL.SetDataSet(ADataSet: TADOUpdDataSet); begin    FDataSet := ADataSet; end; {-----------------------------------------------------           TADOUpdateSQL.SetParams  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} procedure TADOUpdateSQL.SetParams(UpdateKind: TUpdateKind); var    I                                    : Integer;    isOld                                : Boolean;    Parameter                            : TParameter;    ParameterName                        : string;    AValue                               : Variant;    ADOField                             : OleVariant; begin    if not Assigned(FDataSet) then Exit;    with Query[UpdateKind] do    begin       Parameters.ParseSQL(SQL.Text, True);       for I := 0 to Parameters.Count - 1 do       begin          Parameter := Parameters.Items;          ParameterName := Parameter.Name;          isOld := CompareText(Copy(ParameterName, 1, 4), 'OLD_') = 0;          if isOld then             System.Delete(ParameterName, 1, 4);          if not Assigned(FDataSet.FindField(ParameterName)) then             Continue;          ADOField := FDataSet.Recordset.Fields[ParameterName];          if isOld then             AValue := ADOField.OriginalValue          else             if VarIsEmpty(ADOField.Value) or VarIsNull(ADOField.Value) then          begin             Parameter.ParameterObject.Type_ := FDataSet.Recordset.Fields[ParameterName].Type_;             AValue := NULL;          end          else             AValue := ADOField.Value;          Parameter.Value := AValue;       end;    end; end; {-----------------------------------------------------           TADOUpdateSQL.SetSQL  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} procedure TADOUpdateSQL.SetSQL(UpdateKind: TUpdateKind; Value: TStrings); begin    FSQLText[UpdateKind].Assign(Value); end; {-----------------------------------------------------           TADOUpdateSQL.SetSQLIndex  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} procedure TADOUpdateSQL.SetSQLIndex(Index: Integer; Value: TStrings); begin    SetSQL(TUpdateKind(Index), Value); end; {-----------------------------------------------------           TADOUpdateSQL.SQLChanged  * Purpose  :  * Author   : Fred Schetterer  * History  :               12-Mar-2000 - Created --------------------------------------------------------} procedure TADOUpdateSQL.SQLChanged(Sender: TObject); var    UpdateKind                           : TUpdateKind; begin    for UpdateKind := Low(TUpdateKind) to High(TUpdateKind) do       if Sender = FSQLText[UpdateKind] then       begin          if Assigned(FQueries[UpdateKind]) then          begin             FQueries[UpdateKind].Parameters.Clear;             FQueries[UpdateKind].SQL.Assign(FSQLText[UpdateKind]);          end;          Break;       end; end; end.

高分求助:ADO對視圖的更新問題,如何讓ADO只更新視圖中指定的表? ( 积分: 200 )

gaobangsheng

Unregistered / Unconfirmed

suyi3026

Unregistered / Unconfirmed

ChrisMao

Unregistered / Unconfirmed

gaobangsheng

Unregistered / Unconfirmed

enterwin

Unregistered / Unconfirmed

enterwin

Unregistered / Unconfirmed

gaobangsheng

Unregistered / Unconfirmed

dreamisx

Unregistered / Unconfirmed

gaobangsheng

Unregistered / Unconfirmed

dreamisx

Unregistered / Unconfirmed

hjp0214

Unregistered / Unconfirmed

Similar threads