VFP+SQL,查找当前网络可用的SQL服务器,总是显示错误：未发现可用的服务器，我装的SQL2008（32BIT）,WIN7（32）系统，并安装了SQLDMO

SLPMRJ 2014-11-28 06:53:58

Thisform.cboStep.AddItem("步骤1-选择要连接的数据库服务器")
Thisform.cboStep.AddItem("\步骤2-指定登录用户和密码，并安装数据库")
Thisform.cboStep.AddItem("\步骤3-完成")

LOCAL oSQLDMO AS SQLDMO.Application
oSQLDMO=CREATEOBJECT("SQLDMO.Application") &&建立SQLDMO对象
oServerNameList=oSQLDMO.ListAvailableSQLServers()

IF oServerNameList.Count=0 &&未发现可用的服务器
Thisform.pgfStep.Page1.Optiongroup1.Option1.Enabled=.F.
Thisform.pgfStep.Page1.cboServer.Enabled=.F.
Thisform.pgfStep.Page1.Optiongroup1.Value=2
Thisform.pgfStep.Page1.lblStep1.Caption="未找到可用的SQL Server服务器，您可以在"+;
"下面的文本框中自行输入一个数据库服务器名称或IP地址。"
Thisform.pgfStep.Page1.txtServer.SetFocus
ELSE
Thisform.pgfStep.Page1.txtServer.Enabled=.F.
FOR i=1 TO oServerNameList.Count &&添加服务器名到下拉选项框列表
Thisform.pgfStep.Page1.cboServer.AddItem(oServerNameList.Item(i))
ENDFOR
Thisform.pgfStep.Page1.cboServer.Value=oServerNameList.Item(1)
Thisform.pgfStep.Page1.lblStep1.Caption="您可以直接从下面的下拉选项框中直接选择"+;
"一个服务器名称，如果您所需要的服务器没有被包含在列表中，可以直接在下面的文"+;
"本框中手工输入。"
Thisform.pgfStep.Page1.cboServer.SetFocus
ENDIF

...全文

752 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

SLPMRJ 2017-08-01

打赏
举报

谢谢老师指导。试了好多次，还是用第一个方法解决了。可能组件安装有问题。

十豆三 2014-11-29

打赏
举报

枚举局域网内所有的 SQL Server 服务器实例名

*---------------------------------------
by:dkfdtf
出处:http://blog.csdn.net/dkfdtf/archive/2009/02/02/3859150.aspx

如果希望检查一个指定名称的 SQL Server 服务器是否存在，或希望给用户一个自己挑选需要连接的 SQL 服务器的话，就需要先枚举出局域网内所有的 SQL Server 服务器实例名称。我所知的方法有三种：

-----------------------------------------------------------------------------------------

1. 使用 SQLDMO 对象的 ListAvailableSQLServers 方法
loSqlDMO=Createobject("SQLDMO.Application")
loSvrs=loSqlDMO.ListAvailableSQLServers()
lnSvrsCount=loSvrs.Count
If lnSvrsCount=0
	?"没有找到可用的 SQL Server 服务器。"
Else
	?"可连接的 SQL Server 服务器："+Transform(lnSvrsCount)+"个,分别为:"
	For Each lcSvr In loSvrs
		?lcSvr
	Endfor
Endif
Release loSqlDMO

此方法最简单，功能也完整，可以枚举出缺省和非缺省实例名的所有 SQL Server 实例。缺点是运行代码的机器上必须安装了 sqldmo 对象组件，如果机器上已安装了 sql server，或者你自行安装了这个组件自然没问题，然而如果是一普通的客户端，它只需要连接到 SQL 服务器上取数据，或者你只是想在安装 SQL Server 前检查安装环境，则可能因为没有这个组件而无法达到目的。

-----------------------------------------------------------------------------------------

2. 使用 api 函数 NetServerEnum 枚举指定类型的服务器

#Define MAX_PREFERRED_LENGTH        -1
#Define SV_TYPE_SQLSERVER           0x00000004

Declare Long NetServerEnum In netapi32 ;
    string ServerName, Long nlevel, Long @ bufptr, Long prefmaxlen, ;
    long @ entriesread, Long @ totalentries, Long servertype, ;
    string domain, Long resume_handle
Declare Long NetApiBufferFree In netapi32 Long bufptr
Declare Long lstrlenW In win32api String @ lpString

Store 0 To lnBuff, lnReadNums, lnTotNums
If 0 == NetServerEnum( Null, 100, @ lnBuff, MAX_PREFERRED_LENGTH, ;
        @ lnReadNums, @ lnTotNums, SV_TYPE_SQLSERVER, Null, 0) ;
    and lnReadNums > 0
    ? '找到的 SQL Server 实例：'
    For ii = 1 To lnReadNums
        m.lnAddr = CToBin(Sys(2600, m.lnBuff + (m.ii-1)*8 + 4, 4), 'rs')
        m.lcSrv = Sys(2600, m.lnAddr, 256)
        ? Left(Strconv(m.lcSrv, 6), lstrlenW(m.lcSrv))
    Endfor
Else
    ? '没有找到可用的 SQL Server 实例。'
Endif
If lnBuff > 0
    NetApiBufferFree(lnBuff)
Endif
这只是一段简单的代码，没有任何错误处理。这个 api 函数也可以检测出所有可用（服务启动）的 SQL Server 服务器，优点是速度快，不需要安装任何附加的组件，缺点是无法列出非缺省安装时的实例名，而且有时 SQL 服务启动后要很久才能探测到。

-----------------------------------------------------------------------------------------

3. 使用 ODBC  api 函数枚举指定类型的服务器 

#Define SQL_HANDLE_ENV          1  
#Define SQL_HANDLE_DBC          2  
#Define SQL_NULL_HANDLE         0  
#Define SQL_SUCCESS         0  
#Define SQL_SUCCESS_WITH_INFO       1  
#Define SQL_NEED_DATA           99  
#Define SQL_ERROR           -1  
#Define SQL_INVALID_HANDLE      -2  
#Define SQL_ATTR_ODBC_VERSION       200  
#Define SQL_OV_ODBC3            3  
#Define SQL_NTS             -3  
#Define ENUM_SERVERS_MAX_RET_LENGTH -1   
  
lcDrvName = 'Driver={SQL Server}'  
lcLookUpKey = 'SERVER:Server='  
  
Declare short SQLAllocHandle In odbc32 ;   
    short HandleType, Long InputHandle, Long @ OutputHandlePtr   
Declare short SQLSetEnvAttr In odbc32 ;   
    long EnvironmentHandle, Long nAttribute, Long ValuePtr, Long StringLength   
Declare short SQLBrowseConnect In odbc32 ;   
    long ConnectionHandle, String InConnectionString, short StringLength1, ;   
    String @ OutConnectionString, short BufferLength, short @ StringLength2Ptr   
Declare short SQLDisconnect In odbc32 As _SQLDisconnect ;   
    long ConnectionHandle   
Declare short SQLFreeHandle In odbc32 ;   
    long HandleType, Long Handle   
  
* Allocate the environment handle   
hSQLEnv = 0   
lnResult = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, @ hSQLEnv)   
If (lnResult == SQL_SUCCESS Or lnResult == SQL_SUCCESS_WITH_INFO)   
    * Set the environment attribute to SQL_OV_ODBC3   
    lnResult = SQLSetEnvAttr(hSQLEnv, SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3, 0)   
    If (lnResult == SQL_SUCCESS Or lnResult == SQL_SUCCESS_WITH_INFO)   
        * Allocate a connection handle   
        hSQLHdbc = 0   
        lnResult = SQLAllocHandle(SQL_HANDLE_DBC, hSQLEnv, @ hSQLHdbc)   
        If (lnResult == SQL_SUCCESS Or lnResult == SQL_SUCCESS_WITH_INFO)   
            szConnStrOut = Replicate(Chr(0), 256)   
            lnLen = 0   
            * Call SQLBrowseConnect for additional information   
            lnResult = SQLBrowseConnect( ;   
                hSQLHdbc, lcDrvName, SQL_NTS, ;   
                @ szConnStrOut, 256, @ lnLen)   
            If (lnResult == SQL_SUCCESS Or lnResult == SQL_NEED_DATA)   
                ListSqlServersList(Left(szConnStrOut, lnLen), lcLookUpKey)   
            Endif   
            _SQLDisconnect(hSQLHdbc)   
        Endif   
        SQLFreeHandle(SQL_HANDLE_DBC, hSQLHdbc)   
    Endif   
Endif   
SQLFreeHandle(SQL_HANDLE_ENV, hSQLEnv)   
  
Function ListSqlServersList(tcConnectString, tcLookUpKey)   
    Local ii, lcSvrs, lcSvr, lcMsg, laSvrs[1]   
  
    For m.ii = 1 To Getwordcount(tcConnectString, ';') + 1   
        lcSvrs = Getwordnum(tcConnectString, m.ii, ';')   
        If Atc(tcLookUpKey, lcSvrs) > 0   
            Exit   
        Else   
            lcSvrs = ''  
        Endif   
    Endfor   
    lcSvrs = Strextract(lcSvrs, '{', '}')   
    If Alines(laSvrs, lcSvrs, 1+4, ',') > 0   
        lcMsg = '找到下面的 SQL Server 实例：'  
        For m.ii = 1 To Alen(laSvrs)   
            lcMsg = lcMsg + Chr(13) + Transform(m.ii) + Chr(9) + laSvrs[m.ii]   
        Endfor   
        Messagebox(lcMsg)   
    Else   
        Messagebox('没有找到可用的 SQL Server 实例。')   
    Endif   
Endfunc  
#Define SQL_HANDLE_ENV			1
#Define SQL_HANDLE_DBC			2
#Define SQL_NULL_HANDLE			0
#Define SQL_SUCCESS			0
#Define SQL_SUCCESS_WITH_INFO		1
#Define SQL_NEED_DATA			99
#Define SQL_ERROR			-1
#Define SQL_INVALID_HANDLE		-2
#Define SQL_ATTR_ODBC_VERSION		200
#Define SQL_OV_ODBC3			3
#Define SQL_NTS				-3
#Define ENUM_SERVERS_MAX_RET_LENGTH	-1

lcDrvName = 'Driver={SQL Server}'
lcLookUpKey = 'SERVER:Server='

Declare short SQLAllocHandle In odbc32 ;
    short HandleType, Long InputHandle, Long @ OutputHandlePtr
Declare short SQLSetEnvAttr In odbc32 ;
    long EnvironmentHandle, Long nAttribute, Long ValuePtr, Long StringLength
Declare short SQLBrowseConnect In odbc32 ;
    long ConnectionHandle, String InConnectionString, short StringLength1, ;
    String @ OutConnectionString, short BufferLength, short @ StringLength2Ptr
Declare short SQLDisconnect In odbc32 As _SQLDisconnect ;
    long ConnectionHandle
Declare short SQLFreeHandle In odbc32 ;
    long HandleType, Long Handle

* Allocate the environment handle
hSQLEnv = 0
lnResult = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, @ hSQLEnv)
If (lnResult == SQL_SUCCESS Or lnResult == SQL_SUCCESS_WITH_INFO)
    * Set the environment attribute to SQL_OV_ODBC3
    lnResult = SQLSetEnvAttr(hSQLEnv, SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3, 0)
    If (lnResult == SQL_SUCCESS Or lnResult == SQL_SUCCESS_WITH_INFO)
        * Allocate a connection handle
        hSQLHdbc = 0
        lnResult = SQLAllocHandle(SQL_HANDLE_DBC, hSQLEnv, @ hSQLHdbc)
        If (lnResult == SQL_SUCCESS Or lnResult == SQL_SUCCESS_WITH_INFO)
            szConnStrOut = Replicate(Chr(0), 256)
            lnLen = 0
            * Call SQLBrowseConnect for additional information
            lnResult = SQLBrowseConnect( ;
                hSQLHdbc, lcDrvName, SQL_NTS, ;
                @ szConnStrOut, 256, @ lnLen)
            If (lnResult == SQL_SUCCESS Or lnResult == SQL_NEED_DATA)
                ListSqlServersList(Left(szConnStrOut, lnLen), lcLookUpKey)
            Endif
            _SQLDisconnect(hSQLHdbc)
        Endif
        SQLFreeHandle(SQL_HANDLE_DBC, hSQLHdbc)
    Endif
Endif
SQLFreeHandle(SQL_HANDLE_ENV, hSQLEnv)

Function ListSqlServersList(tcConnectString, tcLookUpKey)
    Local ii, lcSvrs, lcSvr, lcMsg, laSvrs[1]

    For m.ii = 1 To Getwordcount(tcConnectString, ';') + 1
        lcSvrs = Getwordnum(tcConnectString, m.ii, ';')
        If Atc(tcLookUpKey, lcSvrs) > 0
            Exit
        Else
            lcSvrs = ''
        Endif
    Endfor
    lcSvrs = Strextract(lcSvrs, '{', '}')
    If Alines(laSvrs, lcSvrs, 1+4, ',') > 0
        lcMsg = '找到下面的 SQL Server 实例：'
        For m.ii = 1 To Alen(laSvrs)
            lcMsg = lcMsg + Chr(13) + Transform(m.ii) + Chr(9) + laSvrs[m.ii]
        Endfor
        Messagebox(lcMsg)
    Else
        Messagebox('没有找到可用的 SQL Server 实例。')
    Endif
Endfunc
这个 ODBC api 函数族兼顾了方法1和2的部分优点，同样不需要任何附加的安装组件，同时又可以列出所有缺省和非缺省安装的实例名，只是速度跟方法 1 差不多。

Biokey SDK5.0标准版，SDK5.0包括C#,Delphi,VC源代码，指纹仪驱动程序，64-bit Patch和4.0SDK内容，4.0SDK内容包括C#,C#+CS,CB,Delphi,PB8，VB,VC,VFP和VB+sql等，SDK4.0/SDK5.0的biokey.ocx