Как найти все Alias, укакзывающие на MS SQL Server?

Previous  Top  Next

    
 

 

 

 

Code:

GetAliases(ComboBox1.Items)

 

procedure GetAliases(const AList: TStrings);

var

i: Integer;

Desc: DBDesc;

Buff: array[0..254] of char;

begin

// list all BDE aliases

Session.GetAliasNames(AList);

for i := AList.Count - 1 downto 0 do

begin

   StrPCopy(Buff, AList[i]);

   Check(DbiGetDatabaseDesc(Buff, @Desc));

   // no Paradox, please

   if StrPas(Desc.szDBType) = 'STANDARD' then

     AList.Delete(i)

end

end;

 

 

©Drkb::02782

Взято с Delphi Knowledge Base: http://www.baltsoft.com/