前言

在现代化的信息时代，无论是哪行哪业，都会接触到数据，知道如何连接数据库以及进行操作是很重要的，本文将介绍如何使用VB进行数据库连接与操作。

一、数据库连接

VB可以与多种数据库进行连接，例如SQL Server、Access、Oracle等。这里以连接SQL Server为例进行讲解。关于其他数据库的连接方式与SQL Server基本相同，只是连接字符串不同。

首先，需要在本地计算机上安装SQL Server，并建立一个数据库，这里假设数据库名称为MyDatabase。

打开VB新建项目，选择Windows窗体应用程序，如图所示：


在设计模式下，选择工具箱中的“数据”选项卡，右键单击“SqlDataSource”属性中的“SqlDataSource1”以编辑连接字符串，如图所示：


在弹出的“连接属性”窗口中，填写SQL Server的服务器名称和数据库名称（即MyDatabase），可选择Windows身份验证或SQL Server身份验证，最后单击“测试连接”按钮以测试连接是否成功。如连接成功，则保存连接字符串，关闭“连接属性”窗口，并返回到设计模式，如图所示：


此时，会发现“SqlDataSource1”控件下出现了一个“DataSet1”控件，如图所示：


至此，成功连接SQL Server数据库。

二、数据库操作

在连接成功后，接下来就可以对数据库进行操作了。这里以对MyTable表进行增删改查操作为例。

1.查询操作

在设计模式下，选择工具箱中的“数据”选项卡，将“DataSet1”控件拖入表单中，如图所示：


在“DataSet1”控件的属性中，选择数据适配器“SqlDataAdapter”，打开其属性窗口，选择数据源为“SqlDataSource1”，选择查询语句为“SELECT * FROM MyTable”（MyTable代表要查询的表名），如图所示：


在表单中放置一个DataGridView控件，将数据源属性设置为DataSet1，并运行程序，即可看到查询结果，如图所示：


2.添加操作

在设计器中，选择工具箱中的按钮控件，将其拖入表单中，如图所示：


在代码模式下，选择“添加事件处理程序”，将复制以下代码：

```

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

Dim sql As String = "INSERT INTO MyTable (Name, Age) VALUES (@Name, @Age)"

Dim conn As New SqlConnection(SqlDataSource1.ConnectionString)

Dim cmd As New SqlCommand(sql, conn)

cmd.Parameters.AddWithValue("@Name", "张三")

cmd.Parameters.AddWithValue("@Age", 20)

conn.Open()

cmd.ExecuteNonQuery()

conn.Close()

MessageBox.Show("添加成功！")

End Sub

```

上述代码用于向MyTable表中插入一条数据，插入了一个名为“张三”，年龄为20岁的数据。

运行程序，单击“添加”按钮，可看到添加成功提示，如图所示：


3.修改操作

在设计器中，选择工具箱中的编辑框控件，将其拖入表单中，如图所示：


在代码模式下，选择“添加事件处理程序”，将复制以下代码：

```

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim sql As String = "UPDATE MyTable SET Name = @Name WHERE Age = @Age"

Dim conn As New SqlConnection(SqlDataSource1.ConnectionString)

Dim cmd As New SqlCommand(sql, conn)

cmd.Parameters.AddWithValue("@Name", "李四")

cmd.Parameters.AddWithValue("@Age", 20)

conn.Open()

cmd.ExecuteNonQuery()

conn.Close()

MessageBox.Show("修改成功！")

End Sub

```

上述代码用于将名字为“张三”的数据的姓名修改为“李四”。

运行程序，单击“修改”按钮，可看到修改成功提示，如图所示：


4.删除操作

在设计器中，选择工具箱中的列表框控件，将其拖入表单中，如图所示：


在代码模式下，选择“添加事件处理程序”，将复制以下代码：

```

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Dim sql As String = "DELETE FROM MyTable WHERE Name = @Name"

Dim conn As New SqlConnection(SqlDataSource1.ConnectionString)

Dim cmd As New SqlCommand(sql, conn)

cmd.Parameters.AddWithValue("@Name", "李四")

conn.Open()

cmd.ExecuteNonQuery()

conn.Close()

MessageBox.Show("删除成功！")

End Sub

```

上述代码用于删除MyTable表中姓名为“李四”的数据。

运行程序，单击“删除”按钮，可看到删除成功提示，如图所示：


三、总结

使用VB实现数据库连接与操作，不仅能够提高数据处理效率，还能更有效地管理数据，相信本文对于初学者来说能够起到一定的帮助与指导作用。