vb中修改数据库的代码

' 引入ADO库
Imports System.Data.OleDb

Public Sub UpdateDatabase()
    ' 数据库连接字符串，这里以Access数据库为例
    Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb"
    
    ' 创建连接对象
    Dim connection As New OleDbConnection(connectionString)
    
    ' 打开连接
    connection.Open()
    
    ' 创建命令对象
    Dim command As New OleDbCommand()
    
    ' 设置命令文本，这里是一个更新操作的SQL语句
    command.CommandText = "UPDATE YourTable SET YourColumn = ? WHERE YourConditionColumn = ?"
    
    ' 添加参数
    command.Parameters.AddWithValue("@YourColumn", "NewValue")
    command.Parameters.AddWithValue("@YourConditionColumn", "ConditionValue")
    
    ' 设置命令类型为更新
    command.CommandType = CommandType.Text
    
    ' 将命令与连接关联
    command.Connection = connection
    
    ' 执行更新操作
    Dim rowsAffected As Integer = command.ExecuteNonQuery()
    
    ' 关闭连接
    connection.Close()
    
    ' 输出受影响的行数
    Console.WriteLine("Rows affected: " & rowsAffected)
End Sub