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

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