联合查询语句没错,我已经能够查询.但我想把查询保存到表DJ3时,报错!搞不懂!
语句如下:
sql = "insert into dj3(bzw,xtbh ,xm , gxfl ,fsdx,sqsy ,sqje, djwp ,fssj ,sqsj ) select bzw,xtbh ,xm , gxfl ,fsdx,sqsy ,sqje, djwp ,fssj ,sqsj from sqdjb1 where xm = '" + Text1.Text + "' or (fssj between # " & Format(DTPicker1.Value, "yyyy-M-dd") & " # and #" & Format(DTPicker2.Value, "yyyy-M-dd") & "# ) union all select * from sqdjb2 where xm = '" + Text1.Text + "' or (fssj between # " & Format(DTPicker1.Value, "yyyy-M-dd") & " # and #" & Format(DTPicker2.Value, "yyyy-M-dd") & "# "
cnn.Execute sql
语句如下:
sql = "insert into dj3(bzw,xtbh ,xm , gxfl ,fsdx,sqsy ,sqje, djwp ,fssj ,sqsj ) select bzw,xtbh ,xm , gxfl ,fsdx,sqsy ,sqje, djwp ,fssj ,sqsj from sqdjb1 where xm = '" + Text1.Text + "' or (fssj between # " & Format(DTPicker1.Value, "yyyy-M-dd") & " # and #" & Format(DTPicker2.Value, "yyyy-M-dd") & "# ) union all select * from sqdjb2 where xm = '" + Text1.Text + "' or (fssj between # " & Format(DTPicker1.Value, "yyyy-M-dd") & " # and #" & Format(DTPicker2.Value, "yyyy-M-dd") & "# "
cnn.Execute sql
解决方案 »
- VB中怎么点击一个按钮,打开txt文件?
- VB使用ADO操作EXCEL填写公式无效如何解决
- vb写ocx其中使用了picture进行图像处理老出现这种错误AutoRedraw对象不能创建,不知道为什么
- 请高手帮我解释一下这代码.
- vsflexgrid中单元格怎样可以进行编辑
- 端口监听和数据拦截的问题?
- 请问怎么得到split返回的子字符串有多少个吗?急……
- 请问各位朋友,你们有没有注意到VB菜单中的“查询”与“图表”的各项子菜单都无效啊??
- 如何让小数点后第三位无论是何值都进到第二位,而不是四舍五入?给分50分!!!
- vb是怎样做链表的呢?
- 如何去掉字符串里面某个规定的字符
- 求vb开发控制程序音量原理~
ssql=ssql & vbcrlf &"select bzw,xtbh ,xm , gxfl ,fsdx,sqsy ,sqje, djwp ,fssj ,sqsj"
ssql=ssql & vbcrlf &"from sqdjb1 where xm = '"& text1.text &"' or (fssj between '1999-02-02' and '1999-02-02') "
ssql=ssql & vbcrlf &"union all "
ssql=ssql & vbcrlf &"select * "
ssql=ssql & vbcrlf &"from sqdjb2 where xm = '"& text1.text &"' or (fssj between '1999-2-01' and '1999-02-02')"
--表sqdjb2最好写全字段. 写出SQL语句后再加条件.
sql = "insert into dj3(bzw,xtbh ,xm , gxfl ,fsdx,sqsy ,sqje, djwp ,fssj ,sqsj ) select bzw,xtbh ,xm , gxfl ,fsdx,sqsy ,sqje, djwp ,fssj ,sqsj from sqdjb1 where fssj between # " & Format(DTPicker1.Value, "yyyy-M-dd") & " # and #" & Format(DTPicker2.Value, "yyyy-M-dd") & "# order by bzw,xm"
cnn.Execute sql
sql = "insert into dj3(bzw,xtbh ,xm , gxfl ,fsdx,sqsy ,sqje, djwp ,fssj ,sqsj ) select bzw,xtbh ,xm , gxfl ,fsdx,sqsy ,sqje, djwp ,fssj ,sqsj from sqdjb2 where fssj between # " & Format(DTPicker1.Value, "yyyy-M-dd") & " # and #" & Format(DTPicker2.Value, "yyyy-M-dd") & "# order by bzw,xm"
cnn.Execute sql