vb修改数据库代码

Imports System.Data.SqlClient

Module Module1
    Sub Main()
        Dim connectionString As String = "Server=your_server;Database=your_db;User Id=your_user;Password=your_password;"
        Dim connection As New SqlConnection(connectionString)
        
        Try
            connection.Open()
            
            Dim command As New SqlCommand("UPDATE YourTable SET ColumnName = @Value WHERE ConditionColumn = @ConditionValue", connection)
            command.Parameters.AddWithValue("@Value", "NewValue")
            command.Parameters.AddWithValue("@ConditionValue", "ConditionValue")
            
            Dim rowsAffected As Integer = command.ExecuteNonQuery()
            Console.WriteLine("Rows affected: " & rowsAffected)
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Sub
End Module