基于 datetimepicker 控件选择记录答案

【问题标题】：selecting records based on datetimepicker control基于 datetimepicker 控件选择记录
【发布时间】：2012-12-06 17:33:25
【问题描述】：

我正在使用 vb6（和后端的 MSAccess）并创建了一个包含一个 dtpicker 控件、一个按钮和两个文本框的表单。在数据库方面，有一个表，id 为数字，dt 定义为日期时间列。

现在我想根据日期选择记录，并在一个文本框上显示 id，在另一个文本框上显示日期。

我在点击按钮时所做的是：

Private Sub Command1_Click()
    Set rs = con.Execute("Select * from table1 Where DateValue(dt) =#" & DateValue(DTPicker1.Value) & "#")
    Text1.Text = rs("id")
    Text2.Text = rs("dtpicker1")
End Sub

正确显示id但不显示日期并引发错误“在与请求的名称或序号对应的集合中找不到项目”。

我该怎么办？

【问题讨论】：

标签： vb6

【解决方案1】：

将rs("dtpicker1") 更改为rs("dt")

Private Sub Command1_Click() 
    Set rs = con.Execute("Select * from table1 Where DateValue(dt) =#" & DateValue(DTPicker1.Value) & "#") 
    Text1.Text = rs("id") 
    'Text2.Text = rs("dtpicker1") ' old/bad code
    Text2.Text = rs("dt")         ' new/good code
End Sub

【讨论】：

【解决方案2】：

Private Sub CommandButton4_Click()
Dim intYear As Integer
Dim intMonth As Integer
Dim intDay As Integer
intYear = Year(TextBox1.Value)
intMonth = Month(TextBox1.Value)
intDay = Day(TextBox1.Value)`enter code here`
Date = DateSerial(intYear, intMonth, intDay)
End Sub

【讨论】：

您可能想为您的代码添加一些解释。