form1.frm

可以将局域网内的其它SQL Server2000数据库显示到列表框供用户灵活选择数据库

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4860
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6075
   LinkTopic       =   "Form1"
   ScaleHeight     =   4860
   ScaleWidth      =   6075
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   2160
      TabIndex        =   0
      Text            =   "Combo1"
      Top             =   1200
      Width           =   2295
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function NetServerEnum Lib "netapi32" _
(lpServer As Any, ByVal lLevel As Long, vBuffer As Any, _
lPreferedMaxLen As Long, lEntriesRead As Long, lTotalEntries As Long, _
ByVal lServerType As Long, ByVal sDomain$, vResume As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination _
As Any, Source As Any, ByVal Length As Long)
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
Private Sub Form_Load()
Dim sv_100 As sv_100
Dim sv100 As sv_100, nRet As Long, i As Long, lServerInfo As Long
Dim lPreferedMaxLen As Long, lEntriesRead As Long
Dim lTotalEntries As Long, sDomain As String, vResume As Variant
Dim buffer() As Byte, nLen As Long
lPreferedMaxLen = 65536
nRet = NetServerEnum(0, 101, lServerInfo, lPreferedMaxLen, lEntriesRead, lTotalEntries, 4, sDomain, vResume)
If nRet = 0 Or nRet = 234& Then
  For i = 0 To lEntriesRead - 1
    CopyMemory sv100, ByVal lServerInfo, Len(sv100)
    nLen = lstrlenW(sv100.name) * 2
    If nLen Then
      ReDim buffer(0 To (nLen - 1)) As Byte
      CopyMemory buffer(0), ByVal sv100.name, nLen
    End If
    Combo1.List(i) = buffer '服务器名
    lServerInfo = lServerInfo + 24
  Next i
End If
End Sub
'得到的服务器名通过Combo1控件显示，可从中选择储存档案数据的服务器名，再
'通过下列语句连接到选定服务器中的数据库: