[[结贴]数据库insert 错误

dynasty0628

回10楼
测试了一下，直接写代码还真是没有问题。但是如果写成函数调用的形式就有问题了。
先在一个公共资源集中建立了一个TMAIL类。定义如下：
TMail = class(TObject)
    private
    public
      static procedure SendHTMLMail(const ReceiverID, Title, Content: string);
  end;


static procedure TMail.SendHTMLMail(const ReceiverID, Title, Content: string);
var
  lQuery: TQuery;
const
   insSQL = 'Insert into TTEXTMAIL(FRECEIVERID,FTITLE,FCONTENT,FFLAG, FMAILTYPE) values (:ReceiverID, :Title, :Content,0,''HTML'')';
begin
    lQuery:= TQuery.Create(nil);
    try
      lQuery.ConnectionString:= 'DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
      lQuery.CommandText:= insSQL;
      lQuery.Params.ParamByName('ReceiverID').AsString := ReceiverID;
      lQuery.Params.ParamByName('Title').AsString := Title;
      lQuery.Params.ParamByName('Content').AsString := Content;
      lQuery.Execute;
    finally
      lQuery.Free;
    end;
end;

在功能中调用的时候就出上面问题了。
在功能中调用的代码：
procedure TMainForm.Button2Click(Sender: TObject);
begin
     TMAIL.SendHTMLMail('aaaaaa','test',memo1.Text);
end;

lixy

您用sql的方式就行了，参数赋值有问题。

dynasty0628

但是直接用SQL也有问题啊。
http://bbs.justep.com/forum.php?mod=viewthread&tid=29858

lixy

那个是因为里面有关键字。具体为什么参数赋不了这么长的长度，我们还没有找到个原因。
你也可以用
dataset.append;
dataset.fieldbyname.asstring:=value;
方式赋值

dynasty0628

ok，结贴吧