vb6 - 基于 datetimepicker 控件选择记录

Question

我正在使用 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 但不显示日期并引发错误“在与请求的名称或序号相对应的集合中找不到项目”。

我应该怎么办？

Answer 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

Answer 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