Как найти все 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/