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

发布网友发布时间：5小时前

共3个回答

热心网友时间：2024-10-21 15:48

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

热心网友时间：2024-10-21 15:48

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

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

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

热心网友时间：2024-10-21 15:49

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 & "')"