[转载红鱼儿]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，当一见到这个错误时就蒙了，不知从哪下手，现在看来，出现这个错误，其核心是客户端的请求，
已经正确的发送到服务器，服务器端在执行查询时，出现问题，没有查询出结果，无法返回内容给客户端，也正如这个错误的含义：
“至少要有一个字段”。