VB得到网絡中可用的SQL服務器列表

原创 2007年10月09日 09:43:00
得到网絡中可用的SQL服務器列表 
  
  'RETCODEs 
  Private   Const   SQL_ERROR   As   Long   =   -1& 
  Private   Const   SQL_INVALID_HANDLE   As   Long   =   -2& 
  Private   Const   SQL_NEED_DATA   As   Long   =   99& 
  Private   Const   SQL_NO_DATA_FOUND   As   Long   =   100& 
  Private   Const   SQL_SUCCESS   As   Long   =   0& 
  Private   Const   SQL_SUCCESS_WITH_INFO   As   Long   =   1& 
  
  'SQLError   defines 
  Private   Const   SQL_NULL_HENV   As   Long   =   0& 
  Private   Const   SQL_NULL_HDBC   As   Long   =   0& 
  Private   Const   SQL_NULL_HSTMT   As   Long   =   0& 
  
  Declare   Function   SQLAllocConnect   Lib   "odbc32.dll"   (ByVal   henv   As   Long,   _ 
                                    phdbc   As   Long)   As   Integer 
  Declare   Function   SQLAllocEnv   Lib   "odbc32.dll"   (phenv   As   Long)   As   Integer 
  Declare   Function   SQLBrowseConnect   Lib   "odbc32.dll"   (ByVal   hdbc   As   Long,   _ 
                                    ByVal   szConnStrIn   As   String,   ByVal   cbConnStrIn   As   Integer,   _ 
                                    ByVal   szConnStrOut   As   String,   ByVal   cbConnStrOutMax   As   Integer,   _ 
                                    pcbconnstrout   As   Integer)   As   Integer 
  Declare   Function   SQLDisconnect   Lib   "odbc32.dll"   (ByVal   hdbc   As   Long)   As   Integer 
  Declare   Function   SQLError   Lib   "odbc32.dll"   (ByVal   henv   As   Long,   ByVal   hdbc   As   Long,   _ 
                                    ByVal   hstmt   As   Long,   ByVal   szSqlState   As   String,   pfNativeError   As   Long,   _ 
                                    ByVal   szErrorMsg   As   String,   ByVal   cbErrorMsgMax   As   Integer,   _ 
                                    pcbErrorMsg   As   Integer)   As   Integer 
  Declare   Function   SQLFreeConnect   Lib   "odbc32.dll"   (ByVal   hdbc   As   Long)   As   Integer 
  Declare   Function   SQLFreeEnv   Lib   "odbc32.dll"   (ByVal   henv   As   Long)   As   Integer 
  
  Public   Function   StServerList()   As   String 
      On   Error   Resume   Next 
      Dim   rc                 As   Integer 
      Dim   henv             As   Long 
      Dim   hdbc             As   Long 
      Dim   stCon           As   String 
      Dim   stConOut     As   String 
      Dim   pcbConOut   As   Integer 
      Dim   ichBegin     As   Integer 
      Dim   ichEnd         As   Integer 
      Dim   stOut           As   String 
          
      Const   COMMA   As   String   =   "," 
          
      rc   =   SQLAllocEnv(henv) 
      rc   =   SQLAllocConnect(ByVal   henv,   hdbc) 
      stCon   =   "DRIVER=SQL   Server" 
          
      'Get   the   size   of   the   buffer   to   create   and   create   it 
      rc   =   SQLBrowseConnect(ByVal   hdbc,   stCon,   Len(stCon),   stConOut,   _ 
                Len(stConOut)   +   2,   pcbConOut) 
      stConOut   =   String$(pcbConOut   +   2,   vbNullChar) 
          
      'Get   the   actual   server   list 
      rc   =   SQLBrowseConnect(ByVal   hdbc,   stCon,   Len(stCon),   stConOut,   _ 
                Len(stConOut)   +   2,   pcbConOut) 
          
      If   (rc   <>   SQL_SUCCESS)   And   (rc   <>   SQL_NEED_DATA)   Then 
            'ignore   the   errors   if   any   occur 
      Else 
            'Parse   out   the   server   list 
            ichBegin   =   InStr(InStr(1,   stConOut,   "server="),   stConOut,   "{",   vbBinaryCompare) 
            stOut   =   Mid$(stConOut,   ichBegin   +   1) 
            ichEnd   =   InStr(1,   stOut,   "}",   vbBinaryCompare) 
            StServerList   =   Left$(stOut,   ichEnd   -   1) 
      End   If 
  
      'Disconnect,   free   the   connection   handle,   then 
      'free   the   environment   handle. 
      rc   =   SQLDisconnect(hdbc) 
      rc   =   SQLFreeConnect(hdbc) 
      rc   =   SQLFreeEnv(henv) 
  End   Function 
  
  Private   Sub   Form_Load() 
      MsgBox   StServerList 
  End   Sub 
  

C#调用天气预报网络服务

本程序通过调用网络上公开的天气预报网络服务来显示某个地区三天的天气,使用到的网络服务地址:http://www.webxml.com.cn/WebServices/WeatherWebService....
  • liucheng5037
  • liucheng5037
  • 2014年07月23日 14:37
  • 1735

windows下搭建java web环境

一、下载软件准备 1、jdk1.6下载地址 http://pan.baidu.com/share/link?shareid=340832&uk=3121382192 2、eclipse下载地址...
  • xiaoliouc
  • xiaoliouc
  • 2013年05月29日 12:58
  • 3913

微信开发踩坑从服务器配置开始

微信开发第一步就是在公众号后台进行服务器配置,针对刚开始接触微信开发的同学,可能在这块卡住,比较蛋疼,本身这个服务器配置不是技术性很强的东西,但是有些小细节需要特别注意(微信开发者文档基本没提什么)。...
  • aerchi
  • aerchi
  • 2016年04月15日 11:07
  • 1547

gpt分区新添加两块400G的硬盘到服务器上面 挂载分区到/root/data

最近公司为了考虑数据安全特做了raid阵列,采用两块或多块硬盘建RAID0磁盘阵列也成为了目前比较有性价比的硬盘性能提升解决方案 传统硬盘由于工作原理的限制,在性能上的提升非常缓慢。而固态硬盘价格昂...
  • dotedy
  • dotedy
  • 2015年12月20日 16:29
  • 218

SQL server 创建MYSQL的链接服务器

这两天需要从别人的mysql里读数据过来,由于在自动取数据过程中,要保存各类控制数据,这些数据还是存在我自己的SQLSERVER中比较方便,所以想来想去,决定用链接服务器。接下来把我建立链接服务器的经...
  • q3498233
  • q3498233
  • 2013年11月18日 20:14
  • 9102

DO搭建专属服务器(VPS+ShadowSocks多终端可用)

DO搭建专属服务器:http://blog.csdn.net/cracked_hitter/article/details/54456691 BBR算法实现服务器加速请参考:http://blo...
  • XiaoChit
  • XiaoChit
  • 2018年01月06日 22:35
  • 415

高性能服务器设计——总体框架介绍

针对高性能服务器存在一些最基本的要求,现总结如下:        服务器基本要求        1) 满足大量请求并发的使用场景;        2) 业务逻辑需要与网络操作解除耦合关系;  ...
  • jiang1013nan
  • jiang1013nan
  • 2013年12月21日 20:24
  • 3855

Liferay6全局设置(一)

 Settings链接包含大部分门户的全局设置。主要包括以下内容: General:配置全局设置,例如company name(公司名称), domain(域), the virtual ho...
  • fengxing_2
  • fengxing_2
  • 2014年12月11日 15:07
  • 1334

我的電腦服務器版和本地版

作者 : http://blog.csdn.net/flower_garden 下載 : http://pan.baidu.com/s/1i3pFgln 使用方法: 1.IE瀏覽器對本地文件啟用Act...
  • flower_garden
  • flower_garden
  • 2015年02月08日 22:10
  • 299

服務器端驗證類

using System; using System.Collections.Generic; using System.Linq; using System.Web; using Syste...
  • gaoqianqian5
  • gaoqianqian5
  • 2014年02月26日 13:11
  • 348
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB得到网絡中可用的SQL服務器列表
举报原因:
原因补充:

(最多只允许输入30个字)