VB窗体TextBox数据写入Excel作为数据库报错，求修正（VS2013+Excel2016）

我来帮你解决这个问题！你遇到的System.NullReferenceException核心原因是：你只声明了OleDbConnection和OleDbCommand变量，但没有创建它们的实例（没有使用New关键字初始化），导致变量指向Nothing，调用它们的属性/方法时就会触发空引用错误。

具体修正步骤： #

• 实例化数据库对象：在使用cn和cm之前，必须用New关键字创建实例，让变量指向实际的对象。
• 修正连接字符串语法：你原来的连接字符串末尾多了冗余分号，同时要注意Excel文件格式对应的连接参数（.xls文件可以用Excel 8.0参数，ACE驱动兼容新旧版本）。
• 改用参数化查询：直接拼接TextBox文本到SQL语句会有SQL注入风险，还可能因特殊字符（比如单引号）触发语法错误，参数化查询更安全可靠。
• 添加异常处理：捕获文件不存在、权限不足等可能的异常，提升程序稳定性。
• 使用Using语句：自动释放数据库连接和命令资源，避免手动关闭时的遗漏问题。

完整修正代码： #

Imports System.Data.OleDb
Imports System.IO

Public Class Form2
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim excelPath As String = "C:\Connect To Excel\Book2.xls"
        
        ' 先检查目标Excel文件是否存在
        If Not File.Exists(excelPath) Then
            MsgBox("Excel文件不存在，请检查路径！", MsgBoxStyle.Exclamation, "错误提示")
            Return
        End If

        ' Using语句会自动释放资源，无需手动调用Close
        Using cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & excelPath & ";Extended Properties=""Excel 8.0;HDR=YES""")
            Using cm As New OleDbCommand()
                Try
                    cn.Open()
                    cm.Connection = cn
                    ' 注意Sheet名要加$，同时替换成你Sheet1中实际的列名
                    cm.CommandText = "INSERT INTO [Sheet1$] (列名1, 列名2) VALUES (?, ?)"
                    ' 按顺序添加参数，避免SQL注入和语法错误
                    cm.Parameters.AddWithValue("@Value1", TextBox1.Text)
                    cm.Parameters.AddWithValue("@Value2", TextBox2.Text)
                    cm.ExecuteNonQuery()
                    MsgBox("数据写入成功！", MsgBoxStyle.Information, "操作成功")
                Catch ex As Exception
                    MsgBox("写入失败：" & ex.Message, MsgBoxStyle.Critical, "错误提示")
                End Try
            End Using
        End Using
    End Sub
End Class

额外注意事项： #

• Sheet名称格式：必须在工作表名后加$符号，比如[Sheet1$]，否则程序可能找不到目标工作表。
• HDR参数含义：HDR=YES表示Excel第一行是列标题，所以INSERT语句需要指定对应的列名；如果设为HDR=NO，则用F1、F2这类标识指代列。
• ACE驱动安装：确保你的电脑安装了Microsoft Access Database Engine 2010 Redistributable，且版本（32/64位）和你的VS项目平台一致，否则会出现驱动找不到的错误。

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