VB应用程序中使用MSSQL数据库管理信息

1. 前言

数据库应用程序是编写VB应用程序的重要领域之一。在VB应用程序中，我们经常需要对数据库进行读取、修改、删除等操作，以便管理各种信息。本文将介绍如何使用MSSQL数据库在VB应用程序中管理信息。

2. 数据库及表的创建

2.1. 创建数据库

在SQL Server Management Studio(以下简称SSMS)中创建一个新数据库，操作如下：

在对象资源管理器中，右击“数据库”，选择“新建数据库…”

在“新建数据库”对话框中，输入“数据库名称”等信息，按“确定”按钮保存。

例如，我们创建一个名为“TestDB”的数据库。

CREATE DATABASE TestDB;

2.2. 创建表

在TestDB数据库中创建一个名为“Student”的表，包含“学号”、“姓名”和“年龄”三个字段。操作如下：

在SSMS中选择TestDB数据库，右击“表”，选择“新建表…”

在“新建表”对话框中，创建列“学号”、“姓名”、“年龄”，选择数据类型，添加主键等约束。

例如，我们创建的Student表结构如下：

CREATE TABLE [dbo].[Student](

  [Sno] [varchar](10) NOT NULL PRIMARY KEY,
  [Sname] [nvarchar](20) NULL,
  [Sage] [int] NULL
);

3. VB应用程序中连接数据库

在VB应用程序中，我们需要连接到数据库并执行相关操作。以下是VB .Net应用程序中连接到SQL Server的步骤：

导入命名空间Imports System.Data.SqlClient

创建SqlConnection对象，指定连接字符串。

打开连接，并进行相关操作。

关闭连接。

例如，在VB应用程序中连接到TestDB数据库，代码如下：

Imports System.Data.SqlClient

 
Public Class Form1
  Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click
    Dim conn As SqlConnection
    Dim connStr As String
    connStr = "Data Source=(local);Initial Catalog=TestDB;User ID=sa;Password=123456"
    Try
      conn = New SqlConnection(connStr)
      conn.Open()
      MessageBox.Show("连接成功！")
      conn.Close()
    Catch ex As Exception
      MessageBox.Show("连接失败！" & ex.Message)
      End Try
  End Sub
End Class

4. VB应用程序中查询数据库数据

在VB应用程序中连接到数据库后，我们需要从数据库中获取数据以进行操作。以下是VB应用程序中查询数据的步骤：

导入命名空间Imports System.Data.SqlClient

创建SqlConnection、SqlCommand和SqlDataReader对象。

指定SqlCommand对象需要执行的SQL语句，并执行SqlCommand对象，将查询结果赋给SqlDataReader对象。

遍历SqlDataReader对象以获取查询结果。注意：当遍历结束后，应关闭SqlDataReader对象和SqlConnection对象。

例如，我们在VB应用程序中查询Student表中的数据，并用MessageBox显示结果，代码如下：

Imports System.Data.SqlClient

 
Public Class Form1
  Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click
    Dim conn As SqlConnection
    Dim cmd As SqlCommand
    Dim rdr As SqlDataReader
    Dim connStr As String
    connStr = "Data Source=(local);Initial Catalog=TestDB;User ID=sa;Password=123456"
    Try
      conn = New SqlConnection(connStr)
      conn.Open()
      cmd = New SqlCommand("SELECT * FROM Student", conn)
      rdr = cmd.ExecuteReader
      Dim str As String = ""
      While rdr.Read
        str = str & rdr.Item("Sno").ToString & " " & rdr.Item("Sname").ToString & " " & rdr.Item("Sage").ToString & vbCrLf
      End While
      MessageBox.Show(str)
      rdr.Close()
      conn.Close()
    Catch ex As Exception
      MessageBox.Show("查询失败！" & ex.Message)
    End Try
  End Sub
End Class

5. VB应用程序中插入、修改、删除数据库数据

在VB应用程序中，我们不仅可以查询数据库数据，还可以对数据库进行插入、修改、删除等操作。以下是VB应用程序中插入、修改、删除数据的步骤：

导入命名空间Imports System.Data.SqlClient

创建SqlConnection和SqlCommand对象，指定需要执行的SQL语句。

如果是插入或修改操作，可以使用SqlCommand对象的ExecuteNonQuery()方法执行SQL语句并返回受影响的行数。如果是查询或删除操作，可以使用SqlCommand对象的ExecuteReader()方法执行SQL语句并返回包含查询结果的SqlDataReader对象。在插入、修改、删除操作后，必须调用SqlCommand对象的Dispose()方法释放资源。

在VB应用程序中插入、修改、删除数据库数据。

例如，我们在VB应用程序中插入一条学生记录，代码如下：

Imports System.Data.SqlClient

 
Public Class Form1
  Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
    Dim conn As SqlConnection
    Dim cmd As SqlCommand
    Dim connStr As String
    connStr = "Data Source=(local);Initial Catalog=TestDB;User ID=sa;Password=123456"
    Dim sno As String = txtSno.Text.Trim
    Dim sname As String = txtSname.Text.Trim
    Dim sage As String = txtSage.Text.Trim
    Dim sql As String = "INSERT INTO Student VALUES('" & sno & "','" & sname & "'," & sage & ")"
    Try
      conn = New SqlConnection(connStr)
      conn.Open()
      cmd = New SqlCommand(sql, conn)
      Dim i As Integer = cmd.ExecuteNonQuery
      If i > 0 Then
        MessageBox.Show("插入成功！")
      Else
        MessageBox.Show("插入失败！")
      End If
      cmd.Dispose()
      conn.Close()
    Catch ex As Exception
      MessageBox.Show("插入失败！" & ex.Message)
    End Try
  End Sub
End Class

6. 总结

本文以MSSQL数据库为例，介绍了在VB应用程序中连接数据库、查询数据库数据、插入、修改、删除数据库数据的方法，希望能够对大家的开发工作有所帮助。