accessserver.vb

来自「SQL Server 业已成为最为流行的几大数据库之一」· VB 代码 · 共 17 行

Imports microsoft.SqlServer.Management.Smo

Public Class AccessServer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim lServer As New Server

        Label1.Text = "SQL Server服务器名： " + lServer.Name
        Label2.Text = "服务器版本：" + lServer.Information.Edition
        Label3.Text = "该服务器运行在：" + lServer.Information.Platform + "之上，" _
        + vbCrLf + vbCrLf + _
         "      物理内存为：＋" + lServer.Information.PhysicalMemory.ToString + "M"

    End Sub
End Class