获取sql-server实例名称 [英] Get sql-server instance name

问题描述

我正在vb2010中创建一个应用程序并使用sql-server2005作为后端。

我想安装其他人的计算机。对于这个连接字符串是一个problam因为我必须改变它



i allready创建它不会工作的设置。



我的连接字符串是：

i am creating a application in vb2010 and use sql-server2005 as backend.
i want to install it other's computer . for this connection string is a problam becouse i have to change it

i allready create the setup bt it wont work .

my connection string is :

Public sqlc As New SqlClient.SqlConnection("Data Source=LOCALHOST\SQLEXPRESS;Initial Catalog=test;Integrated Security=True;multipleactiveresultsets = true")

所以现在我想创建一个startuo表单，我得到所有的sql-server2005的名称实例。所以我可以用Source = LOCALHOST \SQLEXPRESS替换它;



但是我不知道怎么做？



plz任何人都可以帮助我，任何类型的前任。 sampal代码或项目？

任何sugetions？请帮助。提前谢谢...........

so now i want to create a startuo form where i get all the name instance of sql-server2005. so i can replase it with Source=LOCALHOST\SQLEXPRESS;

but i dont know how to do it ?

plz anyone can help me , any type of ex. sampal code or project ?
any sugetions ? plz help . thanks in advance ...........

推荐答案

Private Sub GetServerList（）



Dim Server As String = String.Empty

Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance

Dim table As System.Data.DataTable = instance.GetDataSources（）



For Each row As System.Data.DataRow in table.Rows

Server = String.Empty

Server = row（ServerName）

如果是行（InstanceName）。ToString.Length> 0然后

服务器=服务器&\&row（InstanceName）

结束如果

cmbServers.Items.Add（服务器）

下一页



cmbServers.SelectedIndex = cmbServers.FindStringExact（Environment.MachineName）





End Sub

Private Sub GetServerList()

Dim Server As String = String.Empty
Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
Dim table As System.Data.DataTable = instance.GetDataSources()

For Each row As System.Data.DataRow In table.Rows
Server = String.Empty
Server = row("ServerName")
If row("InstanceName").ToString.Length > 0 Then
Server = Server & "\" & row("InstanceName")
End If
cmbServers.Items.Add(Server)
Next

cmbServers.SelectedIndex = cmbServers.FindStringExact(Environment.MachineName)


End Sub

Private Sub Form1_Load（sender As System.Object，e As System.EventArgs）Handles MyBase.Load

尝试

cmbserver.Items.Add（My.Computer.Name.ToString&\ SQLExpress）

cmbserver.Items.Add（Localhost \\ \\ _SQLExpress）

Catch ex As Exception

MessageBox.Show（ex.Message，Message，MessageBoxButtons.OK，MessageBoxIcon.Error）

结束尝试

结束子

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Try
cmbserver.Items.Add(My.Computer.Name.ToString & "\SQLExpress")
cmbserver.Items.Add("Localhost\SQLExpress")
Catch ex As Exception
MessageBox.Show(ex.Message, "Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub GetServerList()

        Dim Server As String = String.Empty
        Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
        Dim table As System.Data.DataTable = instance.GetDataSources()

        For Each row As System.Data.DataRow In table.Rows
            Server = String.Empty
            Server = row("ServerName")
            If row("InstanceName").ToString.Length > 0 Then
                Server = Server & "\" & row("InstanceName")
            End If
            cmbserver.Items.Add(Server)
        Next

        cmbserver.SelectedIndex = cmbserver.FindStringExact(Environment.MachineName)


    End Sub

这篇关于获取sql-server实例名称的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！