当前位置：首页 > 数据库 > 正文

VB如何连接SQL数据库

admin
数据库
2025-06-16
4934

在VB中操作SQL数据库主要通过ADO.NET组件实现，使用SqlConnection建立数据库连接；通过SqlCommand执行SQL命令或存储过程；用SqlDataAdapter填充DataSet获取数据，注意参数化查询防止注入攻击。

在Visual Basic (VB.NET) 中连接和操作SQL数据库的完整指南

环境准备

开发工具：
- 使用 Visual Studio（推荐 2019 或更高版本）
- 安装 .NET Framework（与项目目标版本匹配，如 4.8）
数据库支持：

SQL Server（本地/云实例）、Azure SQL Database 或 LocalDB（轻量级本地开发库）

核心步骤：连接数据库

引用必要命名空间
在VB.NET文件顶部添加：

Imports System.Data
Imports System.Data.SqlClient

构建安全连接字符串
示例（根据实际修改参数）：

Dim connectionString As String = 
    "Server=你的服务器名或IP; " & 
    "Database=数据库名; " & 
    "User Id=用户名; " & 
    "Password=密码; " & 
    "Trusted_Connection=False;"  ' 若用Windows身份验证，改为True并移除User Id/Password

创建连接对象并打开

VB如何连接SQL数据库第1张

Using conn As New SqlConnection(connectionString)
    Try
        conn.Open()
        ' 此处执行数据库操作
    Catch ex As SqlException
        ' 错误处理（记录日志或提示用户）
        Console.WriteLine("连接失败: " & ex.Message)
    End Try
End Using  ' 自动关闭连接，避免资源泄漏

数据库操作实战（CRUD示例）

查询数据（SELECT）

Dim query As String = "SELECT UserID, UserName FROM Users WHERE Active = @Active"
Using cmd As New SqlCommand(query, conn)
    cmd.Parameters.AddWithValue("@Active", True)  ' 参数化防SQL注入
    Using reader As SqlDataReader = cmd.ExecuteReader()
        While reader.Read()
            Dim id As Integer = reader.GetInt32(0)
            Dim name As String = reader.GetString(1)
            Console.WriteLine($"ID: {id}, Name: {name}")
        End While
    End Using
End Using

插入数据（INSERT）

Dim insertSql As String = 
    "INSERT INTO Products (ProductName, Price) VALUES (@Name, @Price)"
Using cmd As New SqlCommand(insertSql, conn)
    cmd.Parameters.AddWithValue("@Name", "无线鼠标")
    cmd.Parameters.AddWithValue("@Price", 89.99)
    Dim rowsAffected As Integer = cmd.ExecuteNonQuery()
    If rowsAffected > 0 Then
        Console.WriteLine("插入成功！")
    End If
End Using

更新与删除（UPDATE/DELETE）
沿用参数化方式，结构同INSERT

关键安全与性能实践

防御SQL注入
- 必须使用参数化查询（如SqlParameter），禁止拼接SQL字符串
- 示例错误做法："SELECT * FROM Users WHERE Name = '" + txtName.Text + "'"
资源释放
- 用 Using 语句包裹 SqlConnection, SqlCommand, SqlDataReader 确保自动关闭
连接池优化

默认启用连接池,避免频繁创建/销毁连接，保持字符串一致性
异常处理
- 捕获 SqlException 处理数据库错误（如超时、权限问题）
- 记录日志辅助调试：ex.Number (错误代码), ex.LineNumber (SQL错误行)

进阶操作

存储过程调用：

Using cmd As New SqlCommand("usp_GetUserOrders", conn)
    cmd.CommandType = CommandType.StoredProcedure
    cmd.Parameters.AddWithValue("@UserID", 1001)
    ' ...执行逻辑同前
End Using

事务处理：

Using transaction As SqlTransaction = conn.BeginTransaction()
    Try
        ' 多个cmd.Transaction = transaction
        transaction.Commit()  ' 提交事务
    Catch ex As Exception
        transaction.Rollback() ' 回滚
    End Try
End Using