VB中如何操作数据库（使用ADO.NET连接和查询数据库）

在Visual Basic (VB) 中操作数据库，特别是在较新版本的Visual Studio中（如Visual Studio 2010及以上），通常使用ADO.NET来连接和查询数据库。ADO.NET是一个在.NET Framework中用于数据访问的类库，它提供了丰富的类来连接数据库、执行命令、检索数据等。

以下是一个简单的示例，展示如何在VB.NET中使用ADO.NET来连接SQL Server数据库并执行一个简单的查询。

步骤 1: 添加引用

确保你的项目中已经添加了System.Data和System.Data.SqlClient的引用。在Visual Studio中，这些通常是默认添加的。

步骤 2: 编写连接字符串

你需要一个连接字符串来指定数据库的位置、名称、认证信息等。

vb复制代码

	Dim connString As String = "Data Source=你的服务器地址;Initial Catalog=你的数据库名;Integrated Security=True"
	' 如果使用SQL Server认证，则需要改为类似下面的形式
	' Dim connString As String = "Data Source=你的服务器地址;Initial Catalog=你的数据库名;User ID=你的用户名;Password=你的密码"

步骤 3: 创建SqlConnection对象

使用连接字符串创建一个SqlConnection对象。

vb复制代码

Dim conn As New SqlConnection(connString)

步骤 4: 打开连接

在执行数据库操作之前，需要打开连接。

vb复制代码

conn.Open()

步骤 5: 执行SQL查询

你可以使用SqlCommand对象来执行SQL查询。

vb复制代码

Dim cmd As New SqlCommand("SELECT * FROM 你的表名", conn)

步骤 6: 读取数据

使用SqlDataReader来读取查询结果。

vb复制代码

	Dim reader As SqlDataReader = cmd.ExecuteReader()
	While reader.Read()
	' 假设你的表有一个名为"ID"和一个名为"Name"的列
	Console.WriteLine(String.Format("{0}, {1}", reader("ID"), reader("Name")))
	End While
	reader.Close()

步骤 7: 关闭连接

完成数据库操作后，关闭连接。

vb复制代码

conn.Close()

完整示例

将上述步骤组合起来，你可以得到以下完整的示例代码：

vb复制代码

	Imports System.Data.SqlClient
	Module Module1
	Sub Main()
	Dim connString As String = "Data Source=你的服务器地址;Initial Catalog=你的数据库名;Integrated Security=True"
	Dim conn As New SqlConnection(connString)
	Try
	conn.Open()
	Dim cmd As New SqlCommand("SELECT * FROM 你的表名", conn)
	Dim reader As SqlDataReader = cmd.ExecuteReader()
	While reader.Read()
	Console.WriteLine(String.Format("{0}, {1}", reader("ID"), reader("Name")))
	End While
	reader.Close()
	Catch ex As Exception
	Console.WriteLine("发生错误: " & ex.Message)
	Finally
	If conn.State = ConnectionState.Open Then
	conn.Close()
	End If
	End Try
	End Sub
	End Module

请确保将连接字符串、表名和列名替换为你自己的信息。