输入日期并保存到访问原因时，INSERT INTO 语句中的语法错误

Question

我有这个代码：

Public Sub insert_item(ByVal mydate As Date)
    Dim cmd As New OleDbCommand("insert into shop1 (date) values (@mydate)", con)
    cmd.Parameters.Add("@mydate'", OleDbType.Date).Value = mydate

当它运行时，我收到此错误：

！[这是我的问题][1]

我该如何解决它？

Answer 1

OleDB 并没有真正执行命名参数。您可以使用?字符作为 SQL 字符串中的占位符。还应为每个查询创建一个新的连接对象，并且仅在尽可能短的时间内保持打开状态;通常，这是通过 Using 关键字完成的：

Public Sub insert_item(ByVal mydate As Date)
    Using con As New OleDbConnection("connection string here"), _
          cmd As New OleDbCommand("insert into shop1 (date) values (?)", con)
        cmd.Parameters.Add("@mydate'", OleDbType.Date).Value = mydate
        con.Open()
        cmd.ExecuteNonQuery()
    End Using
End Sub