[转载红鱼儿]kbmmw 开发点滴:There be must at least one field

There be must at least one field

用uniDAC+kbmMW+SQL Server做服务器,当客户端查询时,出现这个错误,在QQ群请教,一位朋友说,在服务器端查询不对,
憋了一天,最终,朋友改了TkbmMWUNIDACConnection,得以解决,原来是这样,如果uniDAC+SQL Server,则需要调用CoInitialize。
而kbmMWUNIDACConnection中没有调用。

代码如下,红色是需要增加的代码,当然仅对于MS SQL Server,对于其他数据库则不需要了:
procedure TkbmMWUNIDACConnection.InternalOpenConnection(ConnectionPool:TkbmMWCustomConnectionPool);
begin
     // Create new database connection using template.
     with TkbmMWUNIDACConnectionPool(ConnectionPool).FDBTemplate do
     begin
          FDatabase.Server := Server;//此处增加
          FDatabase.Database := Database;
          FDatabase.Username := UserName;
          FDatabase.Password := Password;
          FDatabase.LoginPrompt := False;
          FDatabase.ProviderName := ProviderName;
          FDatabase.Port := Port;//此处增加
          FDatabase.SpecificOptions.Assign(SpecificOptions);

          with TkbmMWUNIDACConnectionPool(ConnectionPool) do
               if Assigned(FOnSetupDBConnection) then FOnSetupDBConnection(self,FDatabase);
     end;

     if  FDatabase.ProviderName='SQL Server'  then
         CoInitialize(nil);


     FDatabase.Open;
end;


destructor TkbmMWUNIDACConnection.Destroy;
begin
   if FDatabase.ProviderName='SQL Server'  then
        CoUnInitialize;


   FDatabase.Free;

   inherited;
end;

进一步听说朋友说,这是第三方的人基于FB写的,根本没有测试SQLServer,也难怪!

初学kbmMW,当一见到这个错误时就蒙了,不知从哪下手,现在看来,出现这个错误,其核心是客户端的请求,
已经正确的发送到服务器,服务器端在执行查询时,出现问题,没有查询出结果,无法返回内容给客户端,也正如这个错误的含义:
“至少要有一个字段”。

上一篇:车辆管理系统之继续自己的任务(五)


下一篇:[20160318]push_pred hint使用疑惑.txt