vb数据库写入

Imports System.Data.SqlClient

Module Module1
    Sub Main()
        Dim connectionString As String = "Server=your_server_name;Database=your_database_name;User Id=your_username;Password=your_password;"
        Dim connection As New SqlConnection(connectionString)
        
        Try
            connection.Open()
            
            Dim command As New SqlCommand("INSERT INTO YourTable (Column1, Column2) VALUES (@Value1, @Value2)", connection)
            command.Parameters.AddWithValue("@Value1", "Hello")
            command.Parameters.AddWithValue("@Value2", "World")
            
            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