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