使用vb.net将JSON文件导入到SQL Server数据库

Imports System.Data.SqlClient
Imports Newtonsoft.Json

' 解析JSON文件
Dim json As String = File.ReadAllText("path/to/json/file.json")
Dim data As List(Of JObject) = JsonConvert.DeserializeObject(Of List(Of JObject))(json)

' 连接到SQL Server数据库
Dim connectionString As String = "Data Source=server_name;Initial Catalog=database_name;User ID=username;Password=password"
Using connection As New SqlConnection(connectionString)
    connection.Open()

    ' 创建数据库表（假设表名为JsonData，包含id和data两列）
    Dim createTableQuery As String = "CREATE TABLE JsonData (id INT PRIMARY KEY, data NVARCHAR(MAX))"
    Using createTableCommand As New SqlCommand(createTableQuery, connection)
        createTableCommand.ExecuteNonQuery()
    End Using

    ' 插入数据
    Dim insertQuery As String = "INSERT INTO JsonData (id, data) VALUES (@id, @data)"
    For Each item As JObject In data
        Dim id As Integer = item("id")
        Dim jsonData As String = item.ToString()

        Using insertCommand As New SqlCommand(insertQuery, connection)
            insertCommand.Parameters.AddWithValue("@id", id)
            insertCommand.Parameters.AddWithValue("@data", jsonData)
            insertCommand.ExecuteNonQuery()
        End Using
    Next

    ' 关闭数据库连接
    connection.Close()
End Using