0

私は vb6 (およびバックエンドで MSAccess) を使用しており、1 つの dtpicker コントロール、1 つのボタン、および 2 つのテキスト ボックスを含むフォームを作成しました。データベース側には、日時列として定義され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は正しく表示されますが、日付は表示されず、「要求された名前または序数に対応するコレクションにアイテムが見つかりません」というエラーが発生します。

私は何をすべきか？

4

2 に答える 2

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
于 2012-12-06T17:54:07.293 に答える
0 
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
于 2015-09-14T09:04:48.620 に答える