Result := False;

  try

    // 分配 ODBC 环境句柄

    RetCode := SQLAllocHandle(SQL_HANDLE_ENV, SQLPOINTER(SQL_NULL_HANDLE), @HENV);

    if RetCode = SQL_ERROR then

      Exit;

    // 设置 ODBC 版本

    RetCode := SQLSetEnvAttr(HENV, SQL_ATTR_ODBC_VERSION, SQLPointer(SQL_OV_ODBC3), 0);

    if RetCode <> SQL_SUCCESS then

      Exit;

    // 分配数据库连接句柄

    RetCode := SQLAllocHandle(SQL_HANDLE_DBC, HENV, @HDBC);

    if RetCode <> SQL_SUCCESS then

      Exit;

    GetMem(ConnStrOut, ConnStrOutMax);

    RetCode := SQLBrowseConnect(HDBC, PSQLCHAR(ConnStrIn), SQL_NTS, ConnStrOut,

      ConnStrOutMax, @cbConnStrOut);

    if RetCode <> SQL_ERROR then

    begin

      TmpStr := PChar(ConnStrOut);

      if InfoType = itLanguage then

        Delete(TmpStr, 1, AnsiPos(''''};'''', TmpStr) + 1);

      Delete(TmpStr, 1, AnsiPos(SplitterStr, TmpStr) + 1);

      Delete(TmpStr, AnsiPos(''''}'''', TmpStr), Length(TmpStr));

      while TmpStr <> '''''''' do

上一页  [1] [2] [3] [4] [5] [6] [7] [8]  下一页