vb修改数据库数据

Imports System.Data.SqlClient

Module Module1
    Sub Main()
        Dim connectionString As String = "Server=your_server;Database=your_database;User Id=your_username;Password=your_password;"
        Dim connection As New SqlConnection(connectionString)
        
        Try
            connection.Open()
            
            Dim command As New SqlCommand("UPDATE your_table SET column1 = @value1 WHERE id = @id", connection)
            command.Parameters.AddWithValue("@value1", "new_value")
            command.Parameters.AddWithValue("@id", 1)
            
            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