Question

哪位大神帮我看看VB DTpicker的问题，在线等，毕设啊~~

mycon.Execute "insert 销售情况统计表 values ('" & Text5.Text & "' ,'" & Text1.Text & "','" & Text2.Text & "','" & Text4.Text & "','" & Text3.Text & "','" & DTP1.DataField & "')" 帮我看看哪里错了，通过VB的控件DTpicker修改数据库的值，但不管选择的日期是多少，最后数据库里面的数值都是1900-1-1，求解答！！

Answer 1

VB里面DTPicker不是那么好用哦，你要及其注意，你的语句写错了，他的值是.Value属性，DataField那是数据源属性，你没绑定就是个默认值，一般是默认最小值1900-1-1，楼上几个哥们也有才，还有并不是所有操作系统都能识别'" & DTP1.Value & "'着重格式，要拼接字符串，直接拼凑了事。如
Dim str As String
str="Select * from 表 where 日期=#" + Str(DTPicker1.Value) + "#";
懂了没，我直接机械化拼接，管他那么多。

Answer 2

日期和时间类型的值，两边不是用单引号，而是用井号
就是 #
所以应该这样：

mycon.Execute "insert 销售情况统计表 values ('" & Text5.Text & "' ,'" & Text1.Text & "','" & Text2.Text & "','" & Text4.Text & "','" & Text3.Text & "',#" & DTP1.DataField & "#)"

切记切记！！！！

追问

实时错误'在此上下文中不允许使用'##'.此处只允许使用常量、表达式或变量。不允许使用列名。
不行啊

Answer 3

mycon.Execute "insert 销售情况统计表 values ('" & Text5.Text & "' ,'" & Text1.Text & "','" & Text2.Text & "','" & Text4.Text & "','" & Text3.Text & "','" & DTP1.DataField & "')"
好像没有对应的字段名：
mycon.Execute "insert 销售情况统计表(字段名1,字段名2,字段名3,字段名4,字段名5,字段名6) values ('" & Text5.Text & "' ,'" & Text1.Text & "','" & Text2.Text & "','" & Text4.Text & "','" & Text3.Text & "','" & DTP1.DataField & "')"