如何获得用ADOConnection1连接的服务器名和当前连接的数据库名

Question

如何获得用ADOConnection1连接的服务器名和当前连接的数据库名

Answer 1

//服务器名：
ShowMessage(ADOConnection1.Params['Server Name']);//数据库名：
ShowMessage(ADOConnection1.Params['DataBase]);

Answer 2

转贴：wdsimon(老王(路漫漫其修远兮,吾将上下而求索)) 
上面的说的都要在本机已经安装SQL的情况下才可以，用这个就不管它安装没有了：  NET_API_STATUS = DWORD;  PServerInfo100 = ^TServerInfo100;
  _SERVER_INFO_100 = record
    sv100_platform_id: DWORD;
    sv100_name: LPWSTR;
  end;
  {$EXTERNALSYM _SERVER_INFO_100}
  TServerInfo100 = _SERVER_INFO_100;
  SERVER_INFO_100 = _SERVER_INFO_100;
  {$EXTERNALSYM SERVER_INFO_100}const
  NERR_Success = 0;
  MAX_PREFERRED_LENGTH = DWORD(-1);
  SV_TYPE_SQLSERVER    = $00000004;function NetApiBufferAllocate(ByteCount: DWORD; var Buffer: Pointer):
  NET_API_STATUS; stdcall; external 'netapi32.dll' name 'NetApiBufferAllocate';function NetServerEnum(ServerName: LPCWSTR; Level: DWORD; var BufPtr: Pointer;
  PrefMaxLen: DWORD; var EntriesRead: DWORD; var TotalEntries: DWORD;
  ServerType: DWORD; Domain: LPCWSTR; ResumeHandle: PDWORD): NET_API_STATUS;
  stdcall; external 'netapi32.dll' name 'NetServerEnum';function NetApiBufferFree(Buffer: Pointer): NET_API_STATUS; stdcall; external
'netapi32.dll' name 'NetApiBufferFree';function GetSQLServerList(out AList: TStrings; pwcServerName: PWChar = nil;
  pwcDomain: PWChar = nil): Boolean;
var
  NetAPIStatus: DWORD;
  dwLevel: DWORD;
  pReturnSvrInfo: Pointer;
  dwPrefMaxLen: DWORD;
  dwEntriesRead: DWORD;
  dwTotalEntries: DWORD;
  dwServerType: DWORD;
  dwResumeHandle: PDWORD;
  pCurSvrInfo: PServerInfo100;
  i, j: Integer;
begin
  Result := True;
  try
    if  Trim(pwcServerName) = '' then
      pwcServerName := nil;    if Trim(pwcDomain) = '' then
      pwcDomain := nil;    dwLevel := 100;
    pReturnSvrInfo := nil;
    dwPrefMaxLen := MAX_PREFERRED_LENGTH;
    dwEntriesRead := 0;
    dwTotalEntries := 0;
    dwServerType := SV_TYPE_SQLSERVER;    
    dwResumeHandle := nil;               NetApiBufferAllocate(SizeOf(pReturnSvrInfo), pReturnSvrInfo);
    try
      NetAPIStatus := NetServerEnum(pwcServerName, dwLevel, pReturnSvrInfo,
        dwPrefMaxLen, dwEntriesRead, dwTotalEntries, dwServerType, pwcDomain,
        dwResumeHandle);      if (NetAPIStatus = NERR_Success) and (pReturnSvrInfo <> nil) then
      begin
        pCurSvrInfo := pReturnSvrInfo;        // 循环取得所有服务
        i := 0;
        j := dwEntriesRead;
        while i < j do
        begin
          if pCurSvrInfo = nil then
            Break;          with AList do
            Add(pCurSvrInfo^.sv100_name);          Inc(i);
          Inc(pCurSvrInfo);
        end;
      end;
    finally
      if Assigned(pReturnSvrInfo) then
        NetApiBufferFree(pReturnSvrInfo);
    end;
  except
    Result := False;
  end;
end;调用：
var
  i:integer;
  List:TStrings;
begin
  List:=TStringList.Create;
  if GetSQLServerList(list) then
  begin
    for i:=0 to list.Count-1 do
       ComboBox1.Items.Add(list[i]);
    ComboBox1.ItemIndex:=0;
  end;
end;
http://community.csdn.net/Expert/topic/2920/2920663.xml?temp=5.581081E-03

Answer 3

to：pilicat(delphi迷)
提示Params没有定义

Answer 4

ShowMessage(ADOConnection1.DefaultDatabase);
ShowMessage(ADOConnection1.ConnectionString);
Data Source=后面就是了