主页 > 编程资料 > C# >
发布时间:2015-09-26 作者:网络 阅读:265次

怎么实现这个功能大家肯定早都知道了,放上来是给自己留个备份
使用:

private void button1_Click_1(object sender, System.EventArgs e)... 
{
    string[] servers = DBGrep.SqlLocator.GetServers();
    foreach ( string s in servers ) ... 
    {
        this.listBox1.Items.Add(s);
    }
}
类的代码using System;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices;
namespace DBGrep... 
{
    public class SqlLocator ... 
    {
        [DllImport("odbc32.dll")] private static extern short SQLAllocHandle(short hType, IntPtr inputHandle, out IntPtr outputHandle);
        [DllImport("odbc32.dll")] private static extern short SQLSetEnvAttr(IntPtr henv, int attribute, IntPtr valuePtr, int strLength);
        [DllImport("odbc32.dll")] private static extern short SQLFreeHandle(short hType, IntPtr handle);
        [DllImport("odbc32.dll",CharSet=CharSet.Ansi)] private static extern short SQLBrowseConnect(IntPtr hconn, StringBuilder inString,  short inStringLength, StringBuilder outString, short outStringLength, out short outLengthNeeded);
        private const short SQL_HANDLE_ENV = 1;
        private const short SQL_HANDLE_DBC = 2;
        private const int SQL_ATTR_ODBC_VERSION = 200;
        private const int SQL_OV_ODBC3 = 3;
        private const short SQL_SUCCESS = 0;
        private const short SQL_NEED_DATA = 99;
        private const short DEFAULT_RESULT_SIZE = 1024;
        private const string SQL_DRIVER_STR = "DRIVER=SQL SERVER";
        private SqlLocator()... 
        {
        }
        public static string[] GetServers() ... 
        {
            string[] retval = null;
            string txt = string.Empty;
            IntPtr henv = IntPtr.Zero;
            IntPtr hconn = IntPtr.Zero;
            StringBuilder inString = new StringBuilder(SQL_DRIVER_STR);
            StringBuilder outString = new StringBuilder(DEFAULT_RESULT_SIZE);
            short inStringLength = (short) inString.Length;
            short lenNeeded = 0;
            try ... 
            {
                if (SQL_SUCCESS == SQLAllocHandle(SQL_HANDLE_ENV, henv, out henv)) ... 
                {
                    if (SQL_SUCCESS == SQLSetEnvAttr(henv,SQL_ATTR_ODBC_VERSION,(IntPtr)SQL_OV_ODBC3,0)) ... 
                    {
                        if (SQL_SUCCESS == SQLAllocHandle(SQL_HANDLE_DBC, henv, out hconn)) ... 
                        {
                            if (SQL_NEED_DATA == SQLBrowseConnect(hconn, inString, inStringLength, outString,  DEFAULT_RESULT_SIZE, out lenNeeded)) ... 
                            {
                                if (DEFAULT_RESULT_SIZE < lenNeeded) ... 
                                {
                                    outString.Capacity = lenNeeded;
                                    if (SQL_NEED_DATA != SQLBrowseConnect(hconn, inString, inStringLength, outString,  lenNeeded,out lenNeeded)) ... 
                                    {
                                        throw new ApplicationException("Unabled to aquire SQL Servers from ODBC driver.");
                                    }
                                }
                                txt = outString.ToString();
                                int start = txt.IndexOf("{") + 1;
                                int len = txt.IndexOf("}") - start;
                                if ((start > 0) && (len > 0)) ... 
                                {
                                    txt = txt.Substring(start,len);
                                } else ... 
                                {
                                    txt = string.Empty;
                                }
                            }
                        }
                    }
                }
            }
            catch (Exception ex) ... 
            {
                //Throw away any error if we are not in debug mode# 
                if (DEBUG) MessageBox.Show(ex.Message,"Acquire SQL Servier List Error");
                //#end
                if  txt = string.Empty;
            }
            finally ... 
            {
                if (hconn != IntPtr.Zero) ... 
                {
                    SQLFreeHandle(SQL_HANDLE_DBC,hconn);
                }
                if (henv != IntPtr.Zero) ... 
                {
                    SQLFreeHandle(SQL_HANDLE_ENV,hconn);
                }
            }
            if (txt.Length > 0) ... 
            {
                retval = txt.Split(",".ToCharArray());
            }
            return retval;
        }
    }
}



                 

关键字词: