我来帮你搞定这两个日期时间相关的问题，顺便修正你代码里的几个小问题：

1. 将数据库日期时间转换为表单标签显示格式 #

不管数据库里存的是Date/Time类型还是字符串类型的日期时间，核心思路是先拿到强类型的DateTime对象，再根据需求格式化显示：

• 如果数据库字段是Date/Time类型（推荐这种存储方式）：

  ' 假设从查询结果的DataRow中取出日期时间值
  Dim dbDateTime As DateTime = CType(yourDataRow("DateTimeColumn"), DateTime)
  ' 自定义格式，比如"yyyy-MM-dd HH:mm:ss"（24小时制）或"MM/dd/yyyy hh:mm tt"（12小时制带AM/PM）
  LblTime.Text = dbDateTime.ToString("yyyy-MM-dd HH:mm:ss")
  

• 如果数据库存的是字符串类型的日期：
  先尝试把字符串转成DateTime，避免格式错误导致的异常：

  Dim dbDateStr As String = yourDataRow("DateStringColumn").ToString()
  Dim dbDateTime As DateTime
  If DateTime.TryParse(dbDateStr, dbDateTime) Then
      LblTime.Text = dbDateTime.ToString("yyyy-MM-dd HH:mm:ss")
  Else
      ' 处理转换失败的情况，比如显示提示
      LblTime.Text = "无效日期格式"
  End If
  

2. 对比Access表「Time」列与表单标签的时间 #

这里最容易踩坑的是直接拼接SQL字符串，不仅有SQL注入风险，还会因为日期格式不匹配导致查询失败。正确的做法是使用参数化查询，同时保证类型一致：

修正后的完整代码 #

' 注意：Access里的Time、User是保留字，要用方括号括起来避免语法错误
Dim sql As String = "SELECT CompanyCode FROM LAPostingCoCode WHERE CompanyCode = ? AND [User] = ? AND [Time] = ?"

Using Olecon As New OleDbConnection(cons)
    Using command As New OleDbCommand(sql, Olecon)
        ' OleDb不支持命名参数，参数顺序要和SQL中问号的顺序严格对应
        command.Parameters.AddWithValue("@CompanyCode", ComboBox1.Text)
        command.Parameters.AddWithValue("@User", txtuser.Text)
        
        ' 先将标签文本转换为DateTime类型，提前校验格式有效性
        Dim labelTime As DateTime
        If Not DateTime.TryParse(LblTime.Text, labelTime) Then
            MessageBox.Show("标签时间格式不正确，请检查！")
            Return
        End If
        command.Parameters.AddWithValue("@Time", labelTime)
        
        Using adapter As New OleDbDataAdapter(command)
            Dim Table As New DataTable()
            adapter.Fill(Table)
            
            ' 根据查询结果直接设置按钮状态
            btnSave.Enabled = Table.Rows.Count > 0
        End Using
    End Using
End Using

关键注意点 #

• 保留字处理：Access的Time和User是内置保留字，必须用[Time]、[User]包裹，否则会报语法错误
• 参数化查询：避免直接拼接字符串，既安全又能自动处理日期时间的格式适配，不用操心Access的日期格式要求
• 类型校验：用DateTime.TryParse提前校验标签时间的有效性，避免程序因格式错误崩溃

内容的提问来源于stack exchange，提问作者Ronnie Jimenez