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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 两个表更新数据

共有2140人关注过本帖树形打印复制链接主题：两个表更新数据

fubblyc

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

加好友

发短信

等级：九尾狐帖子：2355 积分：16181 威望：0 精华：0 注册：2013/9/1 8:09:00

两个表更新数据 发帖心情

Post By：2019/9/19 11:09:00 [只看该作者]

老师，两个后台表

1.商品资料表

表名：条码货号，字段：

ean sku

2.盘点明细表，字段：

条码货号（无值）

盘点明细表的条码，就是条码货号的ean ，货号就相当于是条码货号表的 SKU

现在想把盘点明细表的货号（现在是NULL值），更新为对应条码货号表的 sku

我这样写，感觉太慢了：

Dim st As Date = Date.Now

'要测试耗时的代码

Dim cmd As new SQLCommand

cmd.C

Dim dt1 As DataTable '资料表

Dim dt2 As DataTable '盘点表

Dim dr1 As DataRow

Dim dr2 As DataRow

cmd.CommandText = "selec t * from 条码货号 "

dt1 = cmd.ExecuteReader()

cmd.CommandText = "selec t * from 盘点明细表 where 盘点日期 = '" & Date.Today & "' "

dt2 = cmd.ExecuteReader()

For Each dr2 In dt2.DataRows

dr1 = dt1.sqlfind("ean = '" & dr2("条码") & "'")

If dr1 IsNot Nothing Then

cmd.CommandText = " updat e 盘点明细表 set 货号 = '" & dr1("sku") & "' where 条码 = '" & dr1("ean") & "' and 货号 is null "

cmd.ExecuteNonQuery()

End If

output.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

有点蓝

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

加好友

发短信

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

Post By：2019/9/19 11:26:00 [只看该作者]

一条sql就够了

update 盘点明细表 set 货号 = a.sku from 商品资料表 as a where a.ean = 盘点明细表.条码 and 货号 is null

fubblyc

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

加好友

发短信

等级：九尾狐帖子：2355 积分：16181 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2019/9/19 11:37:00 [只看该作者]

老师，你太厉害了。

7万条数据，1.2秒搞定

fubblyc

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

加好友

发短信

等级：九尾狐帖子：2355 积分：16181 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2019/9/29 17:41:00 [只看该作者]

cmd.commandtext = "updat e 资金日报账户表 set 本日增加 = a.本日增加 , 本日减少 = a.本日减少 from 科目表明细 As a where a.项目编号 = 资金日报账户表.项目编号 and a.日期 = 资金日报账户表.日期 and a.分销商 = 资金日报账户表.分销商 and a.分销商 = '" & gongsi & "' and a.日期 >= '" & ddate & "' " '

cmd.ExecuteNonQuery

老师，这个数据库表总行数有 25.5万条，符合这个更新条件的有1.1万。

更新速度非常慢，要十几分钟，不知道为什么。。。

老师有什么办法可以优化吗