Hi,
das Ganze sieht dann nun so aus (und funktioniert auch):
Delphi-Quellcode:
var
proc: TIBCStoredProc;
ta: TIBCTransaction;
begin
ta := TIBCTransaction.Create(nil);
ta.DefaultConnection := ibc_mainDB;
proc := TIBCStoredProc.Create(nil);
proc.Transaction := ta;
proc.StoredProcName := 'CREATECUSTOMER';
proc.Prepare;
proc.ParamByName('name').Value := custName;
proc.ParamByName('title').Value := title;
proc.ParamByName('forename').Value := forename;
proc.ParamByName('surname').Value := surname;
proc.ParamByName('street').Value := street;
proc.ParamByName('houseNo').Value := houseNo;
proc.ParamByName('country').Value := Uppercase(country);
proc.ParamByName('zipcode').Value := zipcode;
proc.ParamByName('cityname').Value := cityname;
proc.ExecProc;
result := proc.ParamByName('contactid').AsInteger;
proc.Close;
ta.Commit;
proc.Free;
ta.Free;
end;
Ist das dann so ok?
LG, Frederic