获取SQL Server服务器列表的几种方法--打印文章

获取SQL Server服务器列表的几种方法

作者：武汉SEO闵涛文章来源：敏韬网点击数7443 更新时间：2007/11/14 11:03:53 文章录入：mintao 责任编辑：mintao

''''odbc32.dll'''' name ''''SQLDisconnect'''';

function SQLFreeHandle(HandleType: SQLSMALLINT; Handle: SQLHANDLE): SQLRETURN;

stdcall; external ''''odbc32.dll'''' name ''''SQLFreeHandle'''';

const

SQL_HANDLE_ENV = 1;

SQL_HANDLE_DBC = 2;

SQL_NULL_HANDLE = LongInt(0);

SQL_SUCCESS = 0;

SQL_ERROR = -1;

SQL_ATTR_ODBC_VERSION = 200;

SQL_OV_ODBC3 = ULONG(3);

SQL_NTS = -3;

function GetODBCInfo(var AList: TStrings; InfoType: TInfoType): Boolean;

const

ConnStrOutMax = 4824;

SplitterStr = ''''={'''';

var

HENV: SQLHENV;

HDBC: SQLHDBC;

RetCode: SQLRETURN;

ConnStrOut: PSQLCHAR;

cbConnStrOut: SQLSMALLINT;

ConnStrIn, TmpStr: string;

TmpPos: Integer;

begin

case InfoType of

itServer: ConnStrIn := ''''Driver={SQL Server}'''';

itDatabase, itLanguage: ConnStrIn := ''''Driver={SQL Server};SERVER=(local);UID=sa;PWD='''';

end;