用本地数据更新未加载sql数据表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用本地数据更新未加载sql数据表

共有2066人关注过本帖树形打印复制链接主题：用本地数据更新未加载sql数据表

home8225

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：169 积分：1678 威望：0 精华：0 注册：2014/3/27 16:44:00

用本地数据更新未加载sql数据表 发帖心情

Post By：2017/11/21 20:56:00 [只看该作者]

项通过按钮click用本地数据更新未加载sql数据表

Dim cmd As New SQLCo mmand

cmd.C

cmd.Comman dText = "UP DATE {SUGGESTION_PLAN} SET [QTY] = A.[需求量] from [数据库].[物料需求计划] As A WHERE [SUGGESTION_PLAN].[APS_DOC_NO]= [A].[APS单号] And [SUGGESTION_PLAN].[MDS_VERSION_TIMES]='2301-170928001-18-1-cs'"

cmd.ExecuteNonQuery()

Dim dt As Tables = Tables("物料需求计划")

Dim cmd As New SQLC ommand

cmd.C

cmd.CommandText = "UP DATE {SUGGESTION_PLAN} SET [QTY] = dt（"需求量"） WHERE [SUGGESTION_PLAN].[APS_DOC_NO]=dt（"APS单号"）And [SUGGESTION_PLAN].[MDS_VERSION_TIMES]='2301-170928001-18-1-cs'"

cmd.ExecuteNonQuery()

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110624 积分：563022 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/11/21 21:08:00 [只看该作者]

cmd.CommandText = "UP DATE {SUGGESTION_PLAN} SET [QTY] = '" & dt（"需求量"） & "' WHERE [SUGGESTION_PLAN].[APS_DOC_NO]= '" & dt（"APS单号"） & "' And [SUGGESTION_PLAN].[MDS_VERSION_TIMES]='2301-170928001-18-1-cs'"

http://www.foxtable.com/webhelp/scr/1284.htm

home8225

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：169 积分：1678 威望：0 精华：0 注册：2014/3/27 16:44:00

Post By：2017/11/22 15:18:00 [只看该作者]

方案一：

Dim str As String = Tables("物料需求计划").Current("计划批号")

Dim dt As DataRow In Tables("物料需求计划").dataRows

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "UP DATE {SUGGESTION_PLAN} SET [QTY] = '" & dt("需求量") & "' WHERE {SUGGESTION_PLAN}.[APS_DOC_NO]= '" & dt("APS单号") & "' And {SUGGESTION_PLAN}.[MDS_VERSION_TIMES]='" & str & "'"

cmd.ExecuteNonQuery()

此主题相关图片如下：qq截图20171122103338.png

方案二：

Dim str As String = Tables("物料需求计划").Current("计划批号")

Dim drs As List(of DataRow) = DataTables("物料需求计划").SQLSelect("计划批号 = '" & str & "'")

For Each dr As DataRow In drs

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "UP DATE {SUGGESTION_PLAN} SET [QTY] = '" & dr("本次发放数量") & "', [CURRENT_RELEASE_QTY] = '" & dr("本次发放数量") & "' WHERE {SUGGESTION_PLAN}.[APS_DOC_NO]= '" & dr("APS单号") & "'"

cmd.ExecuteNonQuery()

如果改成Dim drs As List(of DataRow) = DataTables("物料需求计划").SQLSelect("计划批号 = '固定值' ")测试过是行得通批量更新的！但是我把他改成str代号后好像就只能update第一行了,求助一下

[此贴子已经被作者于2017/11/22 15:18:48编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/22 15:42:00 [只看该作者]

Dim str As String = Tables("物料需求计划").Current("计划批号")
Dim cmd As New SQLCommand
For Each dr As DataRow In DataTables("物料需求计划").Select("计划批号 = '" & str & "'")
cmd.CommandText = "UP DATE {SUGGESTION_PLAN} SET [QTY] = '" & dr("需求量") & "' WHERE {SUGGESTION_PLAN}.[APS_DOC_NO]= '" & dr("APS单号") & "' And {SUGGESTION_PLAN}.[MDS_VERSION_TIMES]='" & str & "'"
cmd.ExecuteNonQuery()
Next

home8225

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：169 积分：1678 威望：0 精华：0 注册：2014/3/27 16:44:00

Post By：2017/11/22 18:35:00 [只看该作者]

谢谢版主~试验成功了~

home8225

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：169 积分：1678 威望：0 精华：0 注册：2014/3/27 16:44:00

Post By：2017/11/23 19:48:00 [只看该作者]

新的问题。。。以下按钮代码执行时报错：关键字 'WHERE' 附近有语法错误。

ITEMID原来是个GUID字段，从sql导入的时候我把他转换为string，是不是因为从本地导到sql中时GUID字段和string字段冲突？求助...

然后我请教了其他人说新增行需要用newid()人为地增加GUID主键，是这样子么？

Dim str As String = Tables("物料需求计划").Current("APS单号")

Dim cmd As New SQLCommand

cmd.c

Dim dr As DataRow

dr = DataTables("物料需求计划").find("APS单号 = '" & str & "'")

cmd.CommandText = "Insert Into {SUGGESTION_PLAN} (APS_DOC_NO,MDS_VERSION_TIMES,REMARK,PLAN_TYPE,ITEM_ID,QTY,CURRENT_RELEASE_QTY) Values('" & dr("APS单号") & "'," & dr("计划批号") & ",'" & dr("备注") & "','" & dr("计划类型") & "','" & dr("ITEMID") & "','" & dr("需求量") & "','" & dr("需求量") & "') WHERE {SUGGESTION_PLAN}.[APS_DOC_NO]= '" & str & "'"

cmd.ExecuteNonQuery()

messagebox.Show("已更新", "提示")

[此贴子已经被作者于2017/11/23 19:56:57编辑过]

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/23 21:05:00 [只看该作者]

insert into 是插入一行数据，根本就没有where的语法。把where 和后面的内容删除。

如果你要更新某一条件下的某些数据，你应该用update语句

下一主题 >> << 上一主题

主题：用本地数据更新未加载sql数据表