vb.net测试数据库是否能连接

serverstring = "Server=" &服务器IP &"DataBase=" &库名 &"Userid=" &用户名 &"Password=" &密码

Try

Conn = New MySqlConnection(serverstring)

Conn.Open()

MsgBox("连接成功")

Conn.Dispose()

Conn.Close()

Catch ex As Exception

MsgBox("连接失败！")

End Try

这是 mysql 的，自己改成 sql server 的就行了

1，使用ADO connection对象

首先，要建立ADO引用，定义connection这个类，然后实例化对象。

代码完成如下：

        <span style="font-size:18px">Dim objCn As New Connection, objRs As New Recordset        

     objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51" & "Data Source=" & App.Path & "\实例01.mdb"

     objCn.Open  

</span>

2，使用ODBC数据源

首先，打开电脑上的ODBC数据源，建立关系。

步骤如下：

1），打开电脑上的ODBC数据源

如下图所示：

             

2）点击添加

3）命名

4）和数据库源建立关系

5）用代码实现连接

<span style="font-size:18px">       

    dim objCn As Connection  

  Set objCn = New Connection  

  objCn.Open "DSN=实例2DSN"  

</span>

3、ADO Data 控件创建连接

1）右击data控件，选择ADODC属性

2）从三种连接资源中选择一种。

使用data Link 文件：直接点击浏览，找到包含连接字符串的.udl文件即可

使用ODBC数据源连接，单击新建

选择用户数据库，之后的 *** 作跟2中步骤一样。

使用连接字符串：单击生成

测试连接

4、使用数据环境设计器创建数据库连接

添加引用

右击创建连接，在右击想要连接的属性，之后的 *** 作跟data控件中使用字符串中的 *** 作一致

SqlConnection con=new SqlConnection("连接字符串")

con.open()

open的时候 如果没异常 就说明 能连接成功

反之有问题

---