[转载红鱼儿]kbmmw 开发点滴:There be must at least one field-阿里云开发者社区

开发者社区> 数据库> 正文

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

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
数据库
使用钉钉扫一扫加入圈子
+ 订阅

分享数据库前沿,解构实战干货,推动数据库技术变革

其他文章