'从字符串 "dd-MM-YYYY" 到类型 'Integer' 的转换无效。'

Question

我有一个使用 SQL 数据库的插入查询。插入查询效果很好，但是当我使用 DateTimePicker 时，它会显示上面的错误消息。
你能告诉我如何在插入查询中使用 DateTimePicker 吗？

    Public Function SearchData(ByVal qr As String) As DataSet
        da = New SqlDataAdapter(qr, con)
        ds = New DataSet
        da.Fill(ds)
        Return ds
    End Function

    Private Sub SaveEmp_Click(sender As Object, e As EventArgs) Handles SaveEmp.Click

        Dim ms As New MemoryStream
        PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
        Dim img() As Byte
        img = ms.ToArray()

        Dim insertquery As String = "Insert into AddNew(Userid,EmpSalary,EmpName,FatherName,EmailAddress,BankAccount,HomeAddress,PersonalMobile,DateofBirth,EmpImage) values(" & EmpID.Text _
 & "," & EmpSalary.Text & ",'" & EmpName.Text & "','" & FatherName.Text & "','" & EmailAddress.Text & "'," & BankAccount.Text & ",'" & HomeAddress.Text & "'," & PersonalMobile.Text & ",'" & DtpDOB.Value.Date.ToShortDateString("dd-MM-YYYY") & "',@img)"

        Dim cmd As New SqlCommand(insertquery, con)
        cmd.Parameters.Add("@img", SqlDbType.Image).Value = img
        ExecuteMyQuery(cmd, "Image Inserted")
    End Sub

Answer 1

要回答所提出的问题，这部分代码没有意义：

DtpDOB.Value.Date.ToShortDateString("dd-MM-YYYY")

您应该已经阅读了相关文档并自己解决了问题。那会告诉您ToShortDateString 方法没有参数。该方法的重点是它使用当前系统的标准短日期格式返回指定的日期。这个：

DtpDOB.Value.Date.ToShortDateString()

等价于：

DtpDOB.Value.Date.ToString("d")

如果你想要一个特定的格式，不管系统设置如何，那么你需要调用ToString并传递适当的自定义格式字符串：

DtpDOB.Value.Date.ToString("dd-MM-YYYY")

实际发生的情况是编译器正在对您要完成的工作做出最佳猜测，并认为您正在尝试索引ToShortDateString 返回的String，即

DtpDOB.Value.Date.ToShortDateString()("dd-MM-YYYY")

或者像这样：

Dim str As String = DtpDOB.Value.Date.ToShortDateString()
Dim ch As Char = str("dd-MM-YYYY")

这失败了，因为索引需要 Integer 并且该格式字符串无法转换为 Integer，因此出现错误消息。

除了使用 ADO.NET 的参数，使格式无关紧要外，您还应该在项目属性和 IDE 选项中打开 Option Strict On。