杭州交通信息网中国历届奥运会歌曲:vb高手进啊
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/04 18:55:27
现要将个日期添加到数据库.原先我是用TEXT控件然后手工输入日期添加.这样很麻烦.现在想要用DTpicker直接添加.语句怎么改.
以下是原先用TEXT做的有关日期添加的语句:
If Not testtxt(Text6.Text) Then
MsgBox "请输入申请日期！", vbOKOnly + vbExclamation, "警告"
Text6.SetFocus
Exit Sub
End If
.
.
.
rs.Open " insert into 维护表(楼房编号,寝室号,维修项目,物品价格,维修费用,申请日期,是否已修) values ( '" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Text5.Text) & "','" & Trim(Text6.Text) & "','" & Trim(Combo1.Text) & "')", db, adOpenStatic, adLockReadOnly---------(Trim(Text6.Text)为日期)
以下是原先用TEXT做的有关日期添加的语句:
If Not testtxt(Text6.Text) Then
MsgBox "请输入申请日期！", vbOKOnly + vbExclamation, "警告"
Text6.SetFocus
Exit Sub
End If
.
.
.
rs.Open " insert into 维护表(楼房编号,寝室号,维修项目,物品价格,维修费用,申请日期,是否已修) values ( '" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Text5.Text) & "','" & Trim(Text6.Text) & "','" & Trim(Combo1.Text) & "')", db, adOpenStatic, adLockReadOnly---------(Trim(Text6.Text)为日期)
把Text6.Text的部分换成DTPicker.Value就行了
DTPicker.Value无法清空只能是附上某天的值
附成当前系统的日期的语句是
DTPicker.Value=Date