vb.net连接数据库的代码怎么写

以下是使用VB.NET连接数据库的基本代码示例：

1. 首先需要在程序中引用 System.Data.SqlClient 命名空间。

2. 在代码中定义连接字符串，指定要连接的数据库服务器、数据库名称、用户名和密码等信息。例如：

Dim connStr As String = "Server=myServerAddress;Database=myDataBase;User Id=myUsername;Password=myPassword;"

3. 创建一个 SqlConnection 对象，使用连接字符串打开数据库连接。例如：

Dim conn As New SqlConnection(connStr)
conn.Open()

4. 在需要执行 SQL 语句的地方，创建一个 SqlCommand 对象，并将 SQL 语句和 SqlConnection 对象传递给它。例如：

Dim sql As String = "SELECT * FROM myTable"
Dim cmd As New SqlCommand(sql, conn)

5. 调用 SqlCommand 对象的 ExecuteReader 方法执行 SQL 查询，并获取返回的数据。例如：

Dim reader As SqlDataReader = cmd.ExecuteReader()
While reader.Read()

   ' 读取数据并进行处理
End While
reader.Close()

6. 在程序结束时，关闭数据库连接。例如：

conn.Close()

完整的示例代码如下：

Imports System.Data.SqlClient

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       ' 定义连接字符串

       Dim connStr As String = "Server=myServerAddress;Database=myDataBase;User Id=myUsername;Password=myPassword;"

       ' 创建 SqlConnection 对象并打开连接

       Dim conn As New SqlConnection(connStr)

       conn.Open()

       ' 创建 SqlCommand 对象并执行查询

       Dim sql As String = "SELECT * FROM myTable"

       Dim cmd As New SqlCommand(sql, conn)

       Dim reader As SqlDataReader = cmd.ExecuteReader()

       ' 处理返回的数据

       While reader.Read()

           ' 读取数据并进行处理

       End While

       ' 关闭连接和释放资源

       reader.Close()

       conn.Close()

   End Sub
End Class