【结】给数据集TQuery插入数据出错！**

巧克力味

我给数据集插入数据的代码如下，错误如图
   QueryFS.ConnectionString := 'DataBaseURL=Biz:OABGZDHXTBGZDHSJK.DATABASE';
     QueryFS.CommandText := 'Select * from [3gfax_SendFaxInfo]';
     QueryFS.Open;

     for i:=0 to len-1 do
     begin
                 QueryFS.Insert;
                 QueryFS.FieldByName('ListNo').AsInteger := max1;
                 QueryFS.FieldByName('TaskID').AsInteger := Random(10000);
                 QueryFS.FieldByName('SenderName').AsString := myform.Fname;
                 QueryFS.FieldByName('RcverName').AsString := myform.Sname;
                 QueryFS.FieldByName('FaxNum').AsString := myform.CZnumber;
                 QueryFS.FieldByName('SendFaxNum').AsInteger := 0;
                 QueryFS.FieldByName('Status').AsInteger := 0;
                 QueryFS.FieldByName('TransStatus').AsInteger := 0;
                 QueryFS.FieldByName('TransFileName').AsString := 'fSent'+myform.File1;
                 QueryFS.FieldByName('TransFilePath').AsString := myform.Filename;

                 QueryFS.FieldByName('UserID').AsString := '0';
                 QueryFS.FieldByName('FileSize').AsInteger := 0;
                 QueryFS.FieldByName('SubTime').AsDateTime := Sysutils.Now;
                 QueryFS.FieldByName('SendTime').AsDateTime := Sysutils.Now;
                 QueryFS.FieldByName('SchSendTime').AsDateTime := Sysutils.Now;

                 QueryFS.FieldByName('FileName').AsString := 'fSent'+myform.File1;
                 QueryFS.FieldByName('FilePath').AsString := myform.Filename;
                 QueryFS.FieldByName('SendDescribe').AsString := '0';
                 QueryFS.FieldByName('UserName').AsString := '0';
                 QueryFS.FieldByName('LogonName').AsString := '0';
                 QueryFS.FieldByName('Ex1').AsString := '0';
                 QueryFS.FieldByName('Ex2').AsString := '0';
                 QueryFS.FieldByName('Ex3').AsString := '0';
                 QueryFS.FieldByName('Ex4').AsString := '0';
                 QueryFS.FieldByName('Ex5').AsString := '0';


                 max1 := max1 + 1;
     end;

     QueryFS.ApplyUpdates;

巧克力味

在QueryFS.ApplyUpdates;  这里报的错！

jiahaiming

应该是更新语句的语法错误。
楼主，自己定义一下更新选项的更新语句

巧克力味

用QueryFS.Insert;  这样不得？

jiahaiming

NameSpace: Business.Data
--------------------------------------------------------------------------------
TDataSetUpdateOptions = class(Business.System.TPersistent)
protected
  procedure AssignTo(Dest: Business.System.TPersistent); override;
  function GetValue: TObject; virtual;
public
  constructor create;
  procedure Assign(Source: Business.System.TPersistent); override;
  procedure Destroy; override;
  function IsStored: Boolean;
  property AllowMultiRecordUpdates: Boolean;
  property DeleteSQL: string;
  property InsertSQL: string;
  property UpdateSQL: string;
  property Enabled: Boolean;
  property Fields: TFieldUpdateOptionsConnection;
    property ResolveMode: TResolveMode;
  property SQL[TUpdateKind]: string;
  property UpdateMode: TUpdateMode;
  property Value: TObject;
end;

atiger

QueryFS.Insert 是插入一条记录，QueryFS.ApplyUpdates 是根据QueryFS定义的提交SQL来做的，
例如 给 QueryFS.Insert后，给ZD1 赋值了1，但QueryFS 的提交SQL中没有定义更新ZD1，那么ZD1的值赋与没赋对更新来说都是一样的，也就是说最终不会更新ZD1的值

你的 QueryFS 是直接界面上拖上去的，还是动态创建的，检查一下提交的SQL语句

巧克力味

哦，谢谢你们，我的搞定了，是物理表里有个listNo字段属性的标识选择了“是”，也就是自动添加，不给他复值就可以了！

atiger

ok