[转载红鱼儿]kbmmw 开发点滴:kbmMWQuery插入记录

想利用TkbmMWUNIDACQuery插入一条记录，结果遇到问题，显示：

不允许从数据类型 sql_variant 到 varchar 的隐式转换。请使用 CONVERT 函数来运行此查询。
这是什么问题啊？下面是出问题的代码，很常规的写法。

    q:= TkbmMWUNIDACQuery.Create(self);
    try
      q.ConnectionPool:=self.kbmMWUNIDACConnectionPool1;
      q.SessionName:=Self.kbmMWPooledSession1.SessionName;
      q.SQL.Text:= 'Insert into t (MaxSn) values (:MaxSn)';
      q.Params.ParamByName('Maxsn').AsString:='222';
      q.ExecSQL;//出错： 不允许从数据类型 sql_variant 到 varchar 的隐式转换。请使用 CONVERT 函数来运行此查询。
    finally
      q.Free;
    end;

最后发现，问题出在uniDAC上：
在这个方法中，procedure TkbmMWCustomUNIDACQuery.PerformExecute;是使用TuniSQL执行的SQL，在执行前，调用了uniSQL.Prepare方法，注释掉，就没有问题了。

uniDAC怎么会这样呢？

通过这个错误，到是让我仔细读了TkbmUNIDACQuery的ExecSQL方法的实现过程，说出来很简单：
为kbmUNIDACQuery做好sql语句及设置好参数后，在调用ExecSQL时，kbmUNIDACQuery在重载的方法PerformExecute中实现数据库操作。

看下这个方法，就是用一个TuniSQL对象，并把自己的SQL语句及参数传递给他，由他来执行具体的数据库操作。
 

       q:=TUniSQL.Create(nil);//建立uniSQL对象
        try
           SetSpecificOptions(q.SpecificOptions);//设置附加的参数
           q.Connection := c.Database;//使用kbmUNIDACQuery的数据库联接，即uniConnection
           q.SQL.Assign(CookedQuery);//设置执行的SQL
           //q.Prepare; //Prepare语句，就是这句闹病！需要注释掉
           UniDACCopyInputParamsValueAndType(Params,q.Params,
             Connection.ConnectionPool.MetaData.UnicodeOptions);//设置参数，把uniDACQuery的参数，传递给内部执行数据库操作Q对象的参数
           q.Execute;