我想使用VB.Net将JSON数据复制到SQL表中。

Imports Newtonsoft.Json
Imports System.Data.SqlClient

' 定义JSON数据结构对应的类
Public Class Person
    Public Property Name As String
    Public Property Age As Integer
End Class

' 解析JSON数据
Dim json As String = "{""Name"": ""John"", ""Age"": 30}"
Dim person As Person = JsonConvert.DeserializeObject(Of Person)(json)

' 连接数据库
Dim connectionString As String = "Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword"
Using connection As New SqlConnection(connectionString)
    connection.Open()

    ' 创建SQL表（如果不存在）
    Dim createTableSql As String = "CREATE TABLE IF NOT EXISTS Persons (Name VARCHAR(50), Age INT)"
    Using createTableCommand As New SqlCommand(createTableSql, connection)
        createTableCommand.ExecuteNonQuery()
    End Using

    ' 插入数据
    Dim insertSql As String = "INSERT INTO Persons (Name, Age) VALUES (@Name, @Age)"
    Using insertCommand As New SqlCommand(insertSql, connection)
        insertCommand.Parameters.AddWithValue("@Name", person.Name)
        insertCommand.Parameters.AddWithValue("@Age", person.Age)
        insertCommand.ExecuteNonQuery()
    End Using
End Using