-1

我想将我的 VB.net 应用程序与位于不同位置的 SQL 数据库服务器远程连接。

我在服务器和客户端机器上都安装了 LogMeIn Hamachi，并在客户端机器上加入了现有网络。

我按照本教程中提供的步骤为安装在服务器计算机上的 SQL Server 启用 TCP 连接。

我使用以下连接字符串并调用Hascon()Windows 表单加载事件来测试连接。当我构建 VB.net 应用程序时，要么我没有收到任何错误，要么应用程序没有响应。

Private conn As New SqlConnection With {.ConnectionString = "Data Source=IP address provided by Hamachi,1433;Network Library=DBMSSOCN;Initial Catalog=SIIU;User ID=sa;Password=12345;"}
Public Function Hascon() As Boolean
        Try
            Sconn.Open()
            Return True
            Sconn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
End Function

我在互联网上搜索并尝试了所有可能的解决方案，但没有解决问题。

可能是什么问题呢？有任何想法吗？

谢谢，

4

1 回答 1

0

您可以使用这样的简单函数来测试您的连接：

浜町注意事项：

请记住，如果您使用 Hamachi，您可能需要在防火墙和防病毒软件以及您的机器上授权该端口。

在这里不需要，con.Close()因为我实现Using了你应该总是做的IDisposable。

Public Function IsConnectionPossible(ByVal ConnectionString As String) As Boolean
    Dim Result As Boolean = False
    Try
        Using con As New SqlClient.SqlConnection(ConnectionString)
            'Open the connection
            Try
                con.Open()
            Catch ex As Exception
                Debug.WriteLine(ex.Message)
            End Try
            'Get the state
            If con.State = ConnectionState.Open Then
                Result = True
            End If
        End Using
    Catch ex As Exception
        Debug.WriteLine(ex.Message)
    End Try
    Return Result
End Function

你可以简单地这样调用：

IsConnectionPossible("Data Source=IP address provided by Hamachi,1433;Network Library=DBMSSOCN;Initial Catalog=SIIU;User ID=sa;Password=12345;")

请注意，此功能将纯粹测试连接，实现此功能以打开连接以供将来使用是不切实际的。为此，我建议使用一个类。

于 2017-05-24T14:07:24.903 回答