Question

我试图在我的项目中包含datagrid视图并且错误_（{＆＃34;在建立与SQL Server的连接时发生与网络相关或特定于实例的错误。未找到服务器或无法访问服务器。验证实例名称是否正确，并且SQL Server配置为允许远程连接。（提供程序：命名管道提供程序，错误：40 - 无法打开与SQL Server的连接）＆＃34;}）显示。

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

这是弹出错误的代码： - Private Sub Button2_Click（发送者作为对象，e作为EventArgs）处理Button2.Click Dim connectionString As String =＆＃34; Data Source = PatDatabaseDataSet; Initial Catalog = pubs; Integrated Security = True＆＃34; Dim sql As String =＆＃34; SELECT * FROM Name＆＃34; Dim连接As New SqlConnection（connectionString） Dim dataadapter As New SqlDataAdapter（sql，connection） Dim ds As New DataSet（） connection.Open（）{带下划线的部分突出显示为错误位置} dataadapter.Fill（ds，＆＃34; Patient_table＆＃34;）的Connection.close（） DataGridView1.DataSource = ds.Tables（） DataGridView1.DataMember =＆＃34; Patient_table＆＃34; 结束子

Answer 1

使用Try-catch块

在出现错误的代码中发生异常

以下是样本：

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        connection()
        Sql = "Select * From LoginTable Where username='" & TextBox1.Text & "' And password='" & TextBox2.Text & "'"
        da = New SqlDataAdapter(Sql, conn)
        Dim ds As New DataSet
        da.Fill(ds, "LoginTable")
        If ds.Tables("LoginTable").Rows.Count <> 0 Then
            Me.Hide()
            Dim Menu As New Form
            Menu.Show()
        Else

            MsgBox("Login Failed")
        End If
        conn.Close()
    Catch
        MsgBox("Login Failed")
    End Try
End Sub

类型＆＃39; System.Data.SqlClient.SqlException＆＃39;未处理的异常发生在

1 个答案: