Foxtable(狐表)用户栏目专家坐堂 → 有几个虫子


  共有11655人关注过本帖树形打印复制链接

主题:有几个虫子

帅哥哟,离线,有人找我吗?
唐尸三摆手
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:928 积分:7769 威望:0 精华:13 注册:2008/9/1 11:58:00
有几个虫子  发帖心情 Post By:2010/4/1 8:38:00 [只看该作者]

1.外部查询表能够编辑。
2.预览sql命令不能显示查询结果。
3.下面的代码为什么提示出错呢?sql语句在sql查询管理器中执行正常,但是在FOXTABLE中的命令窗口执行错误如图
Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim cmd3 As New SQLCommand
Dim cmd4 As New SQLCommand
Dim Count AS Integer
Dim Count1 AS Integer
Dim Count2 AS Integer
Dim Count3 AS Integer
Dim Count4 AS Integer
cmd1.CommandText = "update aef00000 set aef00000.deptcode=b.deptcode from aef00000 a,abb00000 b where a.itemcode=b.itemcode and  a.deptcode='' and a.centercode='0100' and a.plannum<>0"
Count1= cmd1.ExecuteNonQuery()
cmd2.CommandText = "update aef00000 set aef00000.workcentercode=b.workcentercode from aef00000 a,abc00000 b where a.itemcode=b.itemcode and  a.workcentercode='' and a.centercode='0100' and a.plannum<>0 and b.code='0001'"
Count2= cmd2.ExecuteNonQuery()
cmd3.CommandText = "update aeg00000 set aeg00000.deptcode=b.deptcode from aeg00000 a,abb00000 b where a.itemcode=b.itemcode and  a.deptcode='' and a.centercode='0100' and a.plannum<>0"
Count3= cmd3.ExecuteNonQuery()
cmd4.CommandText = "update aeg00000 set aeg00000.workcentercode=b.workcentercode from aeg00000 a,abc00000 b where a.itemcode=b.itemcode and  a.workcentercode='' and a.centercode='0100' and a.plannum<>0 and b.code='0001'"
Count4= cmd4.ExecuteNonQuery()
count=Count1+Count2+Count3+Count4
Messagebox.Show( "总共更新" & Count & "行!")

图片点击可在新窗口打开查看此主题相关图片如下:pic036.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/4/1 9:13:00 [只看该作者]

1、不算错误
2、我查查
3、说明你组合的语句有误,这么测试一下:
Messagebox.show(cmd4.CommandText)


[此贴子已经被作者于2010-4-1 9:14:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
唐尸三摆手
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:928 积分:7769 威望:0 精华:13 注册:2008/9/1 11:58:00
  发帖心情 Post By:2010/4/2 13:27:00 [只看该作者]

Dim cmd As New SQLCommand
Dim Count AS Integer
cmd .CommandText = "update aeg00000 set plandesc=contractno from aeg00000 where centercode='0100' and finishnum=0 and ifprocess=0 and warehousecode='0110'"
Count= cmd.ExecuteNonQuery()
Messagebox.Show( "总共删除" & Count & "行!")

这段代码执行报错,为什么呢?
在SQL查询管理器中没问题的呀?

老大,帮我分析分析上面的红色部分有什么问题呀,贴图考出来

图片点击可在新窗口打开查看此主题相关图片如下:pic043.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2010-4-2 13:30:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/4/2 13:29:00 [只看该作者]

删除?
删除应该是Delete啊?

 回到顶部
帅哥哟,离线,有人找我吗?
唐尸三摆手
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:928 积分:7769 威望:0 精华:13 注册:2008/9/1 11:58:00
  发帖心情 Post By:2010/4/2 13:35:00 [只看该作者]

老大,这个词语改成更新也报错的,所以不是它的问题

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/4/2 15:48:00 [只看该作者]

 你的代码似乎没有指定数据源名称

 回到顶部
帅哥哟,离线,有人找我吗?
唐尸三摆手
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:928 积分:7769 威望:0 精华:13 注册:2008/9/1 11:58:00
  发帖心情 Post By:2010/4/3 8:16:00 [只看该作者]

单独一行指定数据源还是在更新语句中使用dbo.erp.aeg00000格式

 回到顶部