SQLServer2000连接成功与否的返回信息获取

Question

问题描述：
    我使用代码方式对ADOQuery的ConnectionString进行设置，并使其Active属性为true 欲与SQLServer连接。
疑问：当连接成功或不成功时，SQLServer怎样返回一个信息给Delphi，并且我们怎么获取这个信息，并用做其他功能的判断条件。

Answer 1

function GetQuery(): boolean;
begin
  result := false;
  try
    if ADOQuery.Active then ADOQuery.Close;
    ADOQuery.ConnectionString := ....
    ADOQuery.Sql.Clear;
    ADOQuery.Sql.Add(...);
    ADOQuery.Open;
    result := ADOQuery.Active;
  except
  end;
end;if GetQuery() then ShowMessage('open succeed')
else ShowMessage('open error');