Question

想知道是否有人可以帮助我。在向访问数据库添加数据时，我收到以下错误消息。我知道它是一个时间问题函数，但我不知道如何修复它，所以我可以在数据库中添加数据要求的格式。验证规则禁止一个或多个值＆＃39;时间（）＆＃39;设置为＆＃39; tblmph＆＃39;。输入此字段的表达式可以接受的值。

Public Sub Add_Data()

    con.Open()

    Dim rs As New OleDb.OleDbCommand("Insert into tblmph(ID,ThisDate,TimeStart,TimeFinish,Notes) " _
        & "values ('" & TextBox1.Text & "' , '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , '" _
        & TextBox4.Text & "', '" & TextBox5.Text & "')", con)

    rs.ExecuteNonQuery()

    con.Close()
    Display_Data()

End Sub

列的格式如下

ID =自动编号 - 长整数
ThisDate =短日期
TimeStart =中等时间，默认值=时间（）
TimeFinish =中等时间，默认值=时间（）
备注=备忘录

Answer 1

不要插入ID的值。如果它确实是一个自动编号，Access将自动为新插入的行分配一个值。尝试在字段中插入值将导致错误并阻止插入工作。

将您的Dim声明更改为：

Dim rs As New OleDb.OleDbCommand( "Insert into tblmph( ThisDate, TimeStart, TimeFinish, Notes ) values ( '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , '" & TextBox4.Text & "', '" & TextBox5.Text & "' ) ", con)

时间格式问题

1 个答案: