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

根据datetimepicker控件选择记录

2 个答案: