如何从VB.NET将DateTimePicker日期插入SQL Server及代码报错解决

咱们一步一步来梳理问题——你的代码存在几个关键问题导致报错，同时还需要正确处理DateTimePicker的日期值以顺利插入SQL Server：

先说说你现有代码的核心问题 #

1. INSERT语句未指定目标字段：直接写insert into TBL_STUDENT values (...)风险很高，一旦表结构调整（比如新增字段）就会因字段数量不匹配报错，而且无法确保参数和字段的对应顺序。
2. 缺失@date参数的赋值：SQL语句里声明了@date参数，但代码里完全没添加对应的DateTimePicker值，这必然触发参数缺失的错误。
3. 语法不完整：With语句没有闭合End With，也没执行ExecuteNonQuery()触发插入操作，数据库连接用完也没正确释放。
4. 资源管理不规范：直接操作SqlConnection和SqlCommand容易忘记关闭连接，导致数据库连接池耗尽。

修正后的完整代码（带注释说明） #

' 使用Using语句自动管理连接和命令对象，避免资源泄漏
Using con As New SqlConnection("你的数据库连接字符串")
    con.Open()
    
    ' 明确指定INSERT的字段列表，确保参数和字段一一对应
    ' 注意：如果字段名是SQL关键字（比如date、add），必须用方括号[]包裹
    Dim sql As String = "INSERT INTO TBL_STUDENT (lrn, fn, mn, ln, ext, [add], gen, cont, [date], place, citi, reli, father, fatherscont, mother, motherscont, guardian, guardianscont, lastschool, grade) 
                         VALUES (@lrn, @fn, @mn, @ln, @ext, @add, @gen, @cont, @date, @place, @citi, @reli, @father, @fatherscont, @mother, @motherscont, @guardian, @guardianscont, @lastschool, @grade)"
    
    Using cmd As New SqlCommand(sql, con)
        ' 清空并添加所有参数
        With cmd.Parameters
            .Clear()
            .AddWithValue("@lrn", TXT_LRN.Text)
            .AddWithValue("@fn", TXT_FN.Text)
            .AddWithValue("@mn", TXT_MN.Text)
            .AddWithValue("@ln", TXT_LN.Text)
            .AddWithValue("@ext", TXT_EXT.Text)
            .AddWithValue("@add", TXT_ADDRESS.Text)
            .AddWithValue("@gen", TXT_GENDER.Text)
            .AddWithValue("@cont", TXT_CONTACT.Text)
            ' 关键：直接传递DateTimePicker的DateTime类型值，无需转字符串
            .AddWithValue("@date", DateTimePicker1.Value)
            .AddWithValue("@place", TXT_PLACE.Text) ' 替换为你的对应控件
            .AddWithValue("@citi", TXT_CITY.Text)
            .AddWithValue("@reli", TXT_RELIGION.Text)
            .AddWithValue("@father", TXT_FATHER.Text)
            .AddWithValue("@fatherscont", TXT_FATHER_CONT.Text)
            .AddWithValue("@mother", TXT_MOTHER.Text)
            .AddWithValue("@motherscont", TXT_MOTHER_CONT.Text)
            .AddWithValue("@guardian", TXT_GUARDIAN.Text)
            .AddWithValue("@guardianscont", TXT_GUARDIAN_CONT.Text)
            .AddWithValue("@lastschool", TXT_LAST_SCHOOL.Text)
            .AddWithValue("@grade", TXT_GRADE.Text)
        End With ' 必须闭合With语句
        
        Try
            ' 执行插入操作，返回受影响的行数
            Dim rowsAffected As Integer = cmd.ExecuteNonQuery()
            If rowsAffected > 0 Then
                MessageBox.Show("数据插入成功！")
            End If
        Catch ex As SqlException
            ' 捕获数据库异常，方便排查具体问题（比如字段类型不匹配）
            MessageBox.Show("数据库错误：" & ex.Message)
        Catch ex As Exception
            MessageBox.Show("操作错误：" & ex.Message)
        End Try
    End Using
End Using ' 自动关闭并释放数据库连接

关键注意事项 #

• 参数化查询：一定要用参数化方式传值，绝对不要拼接SQL字符串——既能防止SQL注入，又能避免不同地区日期格式不兼容的问题。
• DateTimePicker值处理：直接传递DateTimePicker1.Value即可，SQL Server的date/datetime类型可以直接接收.NET的DateTime对象，无需手动转换为字符串。
• 资源管理：Using语句会在代码块结束时自动释放连接和命令对象，彻底避免连接池耗尽的问题。
• 异常处理：添加Try...Catch块能捕获并显示具体错误信息，帮你快速定位问题（比如参数类型不匹配、字段名拼写错误等）。

内容的提问来源于stack exchange，提问作者Joe Bry Basil