Foxtable(狐表)用户栏目专家坐堂 → SQL重复使用相同子查询如何优化


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

主题:SQL重复使用相同子查询如何优化

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


加好友 发短信
等级:小狐 帖子:322 积分:2662 威望:0 精华:0 注册:2014/6/24 17:29:00
SQL重复使用相同子查询如何优化  发帖心情 Post By:2024/1/5 16:12:00 [显示全部帖子]

Dim cmd As new SQ LCommand
cmd.C

For Each dr As Row In Tables("电子进度").Rows
    cmd.CommandText = "S elect Count(DISTINCT SNCode) FROM {AutoTPJ} WHERE SNCode In (S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") & "')"
    dr("t1") = cmd.ExecuteScalar()
    
    cmd.CommandText = "S elect Count(DISTINCT 条形码) FROM {检验} WHERE 工序 = '焊线' And 条形码 In (S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") & "')"
    dr("t2") = cmd.ExecuteScalar()
    
    cmd.CommandText = "S elect Count(DISTINCT bh) FROM {wbSheet} WHERE bh In (S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") & "')"
    dr("t3") = cmd.ExecuteScalar()
    
    cmd.CommandText = "S elect Count(DISTINCT bh) FROM {Creep1} WHERE bh In (S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") & "')"
    dr("t4") = cmd.ExecuteScalar()
    
    cmd.CommandText = "S elect Count(DISTINCT SNCode) FROM {HistoryStoreData} WHERE SNCode In (S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") & "')"
    dr("t5") = cmd.ExecuteScalar()
Next

上面的代码SQL子查询中重复使用了S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") 
请教如何优化可以提高效率?
[此贴子已经被作者于2024/1/5 16:14:19编辑过]

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


加好友 发短信
等级:小狐 帖子:322 积分:2662 威望:0 精华:0 注册:2014/6/24 17:29:00
  发帖心情 Post By:2024/1/5 16:36:00 [显示全部帖子]

如果将:S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") 先执行,返回数据,再将数据合成为字符串s,是否可行呢?

Dim cmd As new SQ LCommand
cmd.C  

For Each dr As Row In Tables("电子进度").Rows

Dim dt As DataTable
cmd.CommandText = "S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") & "')"
dt = cmd.ExecuteReader()
 Dim kss As List(Of String)
 Dim s As String
 kss = dt.GetValues("主键")  
    For Each k As String In kss
          s = s & "'" & k & "',"
     Next
     s = s.Remove(s.Length-1,1)  

    cmd.CommandText = "S elect Count(DISTINCT SNCode) FROM {AutoTPJ} WHERE SNCode In (‘”& s & "')"
    dr("t1") = cmd.ExecuteScalar()
    
    cmd.CommandText = "S elect Count(DISTINCT 条形码) FROM {检验} WHERE 工序 = '焊线' And 条形码 In (‘”& s & "')"
    dr("t2") = cmd.ExecuteScalar()
    
    cmd.CommandText = "S elect Count(DISTINCT bh) FROM {wbSheet} WHERE bh In (‘”& s & "')"
    dr("t3") = cmd.ExecuteScalar()
    
    cmd.CommandText = "S elect Count(DISTINCT bh) FROM {Creep1} WHERE bh In (‘”& s & "')"
    dr("t4") = cmd.ExecuteScalar()
    
    cmd.CommandText = "S elect Count(DISTINCT SNCode) FROM {HistoryStoreData} WHERE SNCode In (‘”& s & "')"
    dr("t5") = cmd.ExecuteScalar()
Next
[此贴子已经被作者于2024/1/5 16:40:14编辑过]

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


加好友 发短信
等级:小狐 帖子:322 积分:2662 威望:0 精华:0 注册:2014/6/24 17:29:00
  发帖心情 Post By:2024/1/5 16:45:00 [显示全部帖子]

好的,明白了,谢谢
500行的表,整个执行完一次要50秒左右,明间太长
现在准备直接在SQL服务器上60分钟定时执行一次数据更新算了

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


加好友 发短信
等级:小狐 帖子:322 积分:2662 威望:0 精华:0 注册:2014/6/24 17:29:00
  发帖心情 Post By:2024/1/5 17:41:00 [显示全部帖子]

"电子进度"和“条形码记录表”
在同一个数据库,同一个数据库一条sql,代码怎么写呢?
[此贴子已经被作者于2024/1/5 17:41:48编辑过]

 回到顶部