Главная страница | назад





Article #18080: Delphi 3/400: ApplyUpdates doesn't work

 Question and Answer Database

FAQ3080D.txt - Delphi 3/400: ApplyUpdates doesn't work

Category   :AS400
Platform   :All-32Bit
Product    :DelphiAS400,   

Question:
I have Delphi 3/400. How come when using a MIDAS connection, 
ApplyUpdates doesn't work.

Answer:
To solve this problem obtain the latest Delphi/400 patch from:
"http://libra.netmastersllc.com/borland400/patches.html"

There is no way to know if a field is NULL or contains NOTHING.
so, the Resolver will replace each field with no data by a NULL.
In most case, this will generate a error on the AS/400. 
(if your fields don't allow NULL).
That's why you should had something like this on the server 
side :

procedure TDemoServer.MyProviderGetData(DataSet: TClientDataSet);
var
  i:integer;
begin
with DataSet do
  begin
    while not EOF do
    begin
      Edit;
      for i:=0 to fieldcount-1 do
      begin
        if fields[i].IsNull then
           fields[i].asstring:='';  
      end;
      Post;
      Next;
    end;
  end;
end;

4/1/99 4:12:08 PM
 

Last Modified: 01-SEP-99