VB.NET：动态添加列的DataGridView数据批量保存至SQL表

嘿，这个动态列DataGridView存SQL的需求我太熟了！硬编码列名肯定行不通，得靠动态生成参数化SQL语句来搞定，完全不用提前指定列名和参数。下面给你一套完整的实现方案，亲测好用：

既然列是用户运行时动态添加的，那我们就从DataGridView里直接提取所有列名，动态拼接INSERT语句的字段列表和参数列表，再循环每行数据给参数赋值，全程不用写死任何列名。

如果你的SQL表是提前建好的，那要保证用户新增的列和表字段一一对应；要是想更灵活，可以在保存前自动检查并同步表结构——比如表不存在就创建，表存在但缺列就新增列。给你个检查并添加列的代码片段：

Private Sub SyncTableStructure(ByVal connectionString As String, ByVal tableName As String, ByVal dgv As DataGridView)
    Using conn As New SqlConnection(connectionString)
        conn.Open()
        ' 获取现有表的所有列名
        Dim existingColumns As New List(Of String)()
        Dim cmd As New SqlCommand($"SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = '{tableName}'", conn)
        Using reader As SqlDataReader = cmd.ExecuteReader()
            While reader.Read()
                existingColumns.Add(reader("COLUMN_NAME").ToString().ToLower())
            End While
        End Using

        ' 遍历DataGridView的列，新增不存在的列
        For Each col As DataGridViewColumn In dgv.Columns
            If col.Visible AndAlso Not existingColumns.Contains(col.Name.ToLower()) Then
                ' 这里默认用NVARCHAR(MAX)，你可以根据实际需求调整数据类型
                Dim alterCmd As New SqlCommand($"ALTER TABLE {tableName} ADD [{col.Name}] NVARCHAR(MAX)", conn)
                alterCmd.ExecuteNonQuery()
            End If
        Next
    End Using
End Sub

注意：这里默认给新增列用NVARCHAR(MAX)，如果需要匹配DataGridView列的实际类型（比如数字、日期），可以加个判断逻辑转换对应的SQL类型。

这是核心部分，用参数化查询避免SQL注入，同时完全适配动态列：

Private Sub SaveDgvToSql(ByVal connectionString As String, ByVal tableName As String, ByVal dgv As DataGridView)
    ' 先同步表结构（可选，如果你已经确保表结构一致可以跳过）
    SyncTableStructure(connectionString, tableName, dgv)

    Using conn As New SqlConnection(connectionString)
        conn.Open()
        ' 1. 动态生成字段列表和参数列表
        Dim columnNames As New List(Of String)()
        Dim parameterNames As New List(Of String)()
        For Each col As DataGridViewColumn In dgv.Columns
            If col.Visible Then ' 只处理可见列
                columnNames.Add($"[{col.Name}]")
                parameterNames.Add($"@{col.Name}")
            End If
        Next
        If columnNames.Count = 0 Then Return ' 没有列就直接返回

        ' 2. 拼接INSERT语句
        Dim insertSql As String = $"INSERT INTO {tableName} ({String.Join(", ", columnNames)}) VALUES ({String.Join(", ", parameterNames)})"
        Using cmd As New SqlCommand(insertSql, conn)
            ' 3. 循环处理每一行数据
            For Each row As DataGridViewRow In dgv.Rows
                If row.IsNewRow Then Continue For ' 跳过DataGridView的空新行
                cmd.Parameters.Clear() ' 清空上一行的参数

                ' 给每个参数赋值
                For Each col As DataGridViewColumn In dgv.Columns
                    If col.Visible Then
                        Dim cellValue As Object = row.Cells(col.Name).Value
                        ' 处理空值，转换成DBNull
                        cmd.Parameters.AddWithValue($"@{col.Name}", If(cellValue Is Nothing Or cellValue Is DBNull.Value, DBNull.Value, cellValue))
                    End If
                Next

                ' 执行插入
                cmd.ExecuteNonQuery()
            Next
        End Using
    End Using
End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    Dim connStr As String = "你的SQL连接字符串"
    Dim tableName As String = "你的目标表名"
    SaveDgvToSql(connStr, tableName, Even_Log_Grid)
    MessageBox.Show("保存成功！")
End Sub

• 批量插入提速：如果数据量很大，一行一行插效率低，可以把DataGridView转成DataTable，然后用SqlBulkCopy批量写入，速度快很多。
• 数据类型匹配：如果需要严格匹配SQL数据类型，可以在同步表结构的时候，根据DataGridView列的ValueType来设置对应的SQL类型（比如Integer对应INT，DateTime对应DATETIME等）。
• 错误处理：建议加上Try-Catch块，捕获数据库操作的异常，给用户友好提示。

内容的提问来源于stack exchange，提问作者Arrow