Sql server 为什么我会收到这个错误消息？“建立与服务器的连接时出错”

尝试在另一台计算机上启动windows应用程序时出现以下错误

运行时发生与网络相关或特定于实例的错误 正在建立与SQL Server的连接。找不到服务器，或者 无法访问。验证实例名称是否正确，以及 SQL Server配置为允许远程连接。提供者：已命名 管道提供程序，错误：40-无法打开到SQL的连接 服务器

在我的机器中，应用程序正在工作，但在用户的机器中，它不工作。无论是在stackoverflow还是在其他网站上，我都尝试过很多解决方案，但没有一个能帮助我解决这个问题。数据库是本地的，所以我不使用任何服务器或类似的东西。奇怪的是，登录表单实际上在工作，而其他表单却不工作。这是一个来自其中一个表单的代码，该表单无法使想法更接近。我希望你能帮我解决这个问题，因为我真的没有时间了。我正在使用VB.NET和SQL SERVER

Imports System.Data
Imports System.Data.SqlClient

Public Class Form13
    'Dim cmd As New SqlCommand
    Dim cn As New SqlConnection("database=Leave_manager;server=(local);integrated security=true")
    Private Sub Form13_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'Leave_managerDataSet1.Addemployees'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.AddemployeesTableAdapter.Fill(Me.Leave_managerDataSet1.Addemployees)
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Try
            cn.Open()
            Dim sqlcmd As New SqlCommand("select Fname,Lname from Addemployees where ID = '" & ComboBox1.Text & "'", cn)
            Dim myreader As SqlDataReader
            myreader = sqlcmd.ExecuteReader()
            myreader.Read()
            If myreader.HasRows Then
                TextBox2.Text = myreader.Item("Fname").ToString
                TextBox1.Text = myreader.Item("Lname").ToString
            End If
            cn.Close()
        Catch ex As Exception
            MessageBox.Show("Error while connecting to SQL Server." & ex.Message)
        Finally
            cn.Close()
        End Try
        Try
            cn.Open()
            Dim sqlcmd As New SqlCommand("SELECT Leave_num FROM Addemployees WHERE ID='" & ComboBox1.Text & "'", cn)
            Dim myreader1 As SqlDataReader
            myreader1 = sqlcmd.ExecuteReader()
            myreader1.Read()
            If myreader1.HasRows Then
                TextBox6.Text = myreader1.Item("Leave_num").ToString
            End If
            cn.Close()
        Catch
            MessageBox.Show("Error!", "exit", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    TextBox1.Clear()
    TextBox2.Clear()
    TextBox3.Clear()
    TextBox4.Clear()
    TextBox6.Clear()
    Me.CheckBox1.Checked = False
    Me.Hide()
    Form6.Show()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If MessageBox.Show("Do you really want to Restore is record?", "Record", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
        Try
            cn.Open()
            Dim cmd As New System.Data.SqlClient.SqlCommand
            Dim RA As Integer
            cmd = New SqlCommand("update Addemployees set Leave_num ='" & TextBox3.Text & "'  where ID='" & ComboBox1.Text & "' ", cn)
            cmd.Connection = cn
            RA = cmd.ExecuteNonQuery()
            MessageBox.Show("Process successful!", "Save", MessageBoxButtons.OK, MessageBoxIcon.Information)
            cn.Close()
        Catch
            MessageBox.Show("Error!", "exit", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If MessageBox.Show("Do you really want to Restore all records?", "Record", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
        If Me.TextBox4.ReadOnly = False Then
            Try
                cn.Open()
                Dim cmd2 As New System.Data.SqlClient.SqlCommand
                Dim Rb As Integer
                cmd2 = New SqlCommand("update Addemployees set Leave_num ='" & TextBox4.Text & "'", cn)
                cmd2.Connection = cn
                Rb = cmd2.ExecuteNonQuery()
                MessageBox.Show("Process successful!", "Save", MessageBoxButtons.OK, MessageBoxIcon.Information)
                cn.Close()
            Catch
                MessageBox.Show("Error!", "exit", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        ElseIf Me.TextBox4.ReadOnly = True Then
            MessageBox.Show("Error!, please select selectr all option", "exit", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    TextBox1.Clear()
    TextBox2.Clear()
    TextBox3.Clear()
    TextBox4.Clear()
    TextBox6.Clear()
    Me.CheckBox1.Checked = False

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    If Me.CheckBox1.Checked = True Then
        Me.TextBox4.ReadOnly = False
    ElseIf Me.CheckBox1.Checked = False Then
        Me.TextBox4.ReadOnly = True
    End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

---

最终类“

取决于您的sqlserver版本。 检查您的服务器名称，只需打开cmd并键入SQLCMD-L。 检查服务器实例名称sqllocaldb i

在sql server express 2012中，实例名称通常为LocalDB\v11.0

错误-提供程序：命名管道提供程序，错误：40-无法打开到SQL Server的连接，指出SQL Server部件上的配置错误。请检查并确保服务器接受通过命名管道的连接。 在我的机器中，应用程序正在工作，但在用户的机器中，它不工作。。。。。。。a请检查防火墙是否可以访问端口1433或任何其他定义的端口， b请转到用户计算机上的服务，重新启动“SQL Server” 在服务本身中，如果需要，重新启动“Windows防火墙”。 当用户输入密码和用户名时，应用程序工作，他移动到出现问题的下一个表单…似乎您的每个表单都需要身份验证。 我建议您从用户的机器上取下数据库，移动到您的机器上，提供对用户机器的访问，并从用户的机器上进行测试？您需要为远程计算机创建SQL server用户，而不是windows用户，并对其进行测试。我认为这应该解决数据库连接问题。

---

您需要怀疑sql连接字符串。错误在连接中，并且将与连接字符串相关，假设SQL可用，并且正如您所证明的那样连接。是的，我在这个阶段完全迷失了方向。我该怎么办do@OuallaWalid我们无法从这里猜测，但您必须检查sql连接字符串，还要检查服务器是否正在运行。我已经检查了连接字符串以及服务器很多次，但一切都是正确的。我建议您创建一个新表单，只需简单介绍连接到SQL所需的内容，以证明它是有效的，或者让它正常工作。然后从那里开始建造。如果需要，从工作表单中的连接代码开始。这可能会突出说明正在发生的事情。非常感谢你的帮助，最后一个是为我工作，非常感谢你的帮助和支持