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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]SQLCommand

共有3943人关注过本帖树形打印复制链接主题：[原创]SQLCommand

L88919138

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

加好友

发短信

等级：三尾狐帖子：725 积分：6936 威望：0 精华：0 注册：2012/3/1 7:20:00

[原创]SQLCommand 发帖心情

Post By：2015/5/7 15:52:00 [显示全部帖子]

想从SQL外部数据源里“采购付款表”找出与存货档案当前记录相同的存货名称，并将里面单价和余额取值到存货档案中相对应列去，下面代码虽可正确执行，只是效率太慢，如何优化,请大师们帮忙指点下，谢谢。

L88919138

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

加好友

发短信

等级：三尾狐帖子：725 积分：6936 威望：0 精华：0 注册：2012/3/1 7:20:00

Post By：2015/5/7 15:54:00 [显示全部帖子]

发不上来，一直提示错误。

L88919138

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

加好友

发短信

等级：三尾狐帖子：725 积分：6936 威望：0 精华：0 注册：2012/3/1 7:20:00

Post By：2015/5/7 15:55:00 [显示全部帖子]

??????????

请仔细阅读论坛帮助文件，确保您有相应的操作权限。

L88919138

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

加好友

发短信

等级：三尾狐帖子：725 积分：6936 威望：0 精华：0 注册：2012/3/1 7:20:00

Post By：2015/5/7 15:57:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:想从sql外部数据源里.zip

把代码以压缩文件打包下传。

L88919138

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

加好友

发短信

等级：三尾狐帖子：725 积分：6936 威望：0 精华：0 注册：2012/3/1 7:20:00

Post By：2015/5/7 16:02:00 [显示全部帖子]

Dim cmd As new SQLCommand
cmd.cFONT-FAMILY: 宋体; mso-ascii-font-family: Verdana; mso-hansi-font-family: Verdana">鲜迪数据库"
For Each dr As DataRow In DataTables("存货档案").DataRows
    cmd.CommandText = "Select top 1 单价 F rom {采购付款表} Where 商品名称 = '" & dr("存货名称") & "' and 单价 is not null order by [_sortkey] desc "
    If cmd.CommandText IsNot Nothing
        dr("参考单价") = cmd.executescalar
    Else
        dr("参考单价") = 0
    End If
    cmd.CommandText = "Select top 1 余额 F rom {采购付款表} Where 商品名称 = '" & dr("存货名称") & "' and 余额 is not null order by [_sortkey] desc "
    If cmd.CommandText IsNot Nothing
        dr("账面数量") = cmd.executescalar
    Else
        dr("账面数量") = 0
    End If
Next

L88919138

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

加好友

发短信

等级：三尾狐帖子：725 积分：6936 威望：0 精华：0 注册：2012/3/1 7:20:00

Post By：2015/5/7 16:04:00 [显示全部帖子]

还真是

SQL语句中的 F ROM 要带空格才能发

前就一直试发不上来，以为我没权限发了，弄个压缩包来发。

L88919138

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

加好友

发短信

等级：三尾狐帖子：725 积分：6936 威望：0 精华：0 注册：2012/3/1 7:20:00

Post By：2015/5/7 16:05:00 [显示全部帖子]

Dim cmd As new SQLCommand

cmd.cFONT-FAMILY: 宋体; mso-ascii-font-family: Verdana; mso-hansi-font-family: Verdana">鲜迪数据库"

For Each dr As DataRow In DataTables("存货档案").DataRows
    cmd.CommandText = "Select top 1 单价 F rom {采购付款表} Where 商品名称 = '" & dr("存货名称") & "' and 单价 is not null order by [_sortkey] desc "
    If cmd.CommandText IsNot Nothing
        dr("参考单价") = cmd.executescalar
    Else
        dr("参考单价") = 0
    End If
    cmd.CommandText = "Select top 1 余额 F rom {采购付款表} Where 商品名称 = '" & dr("存货名称") & "' and 余额 is not null order by [_sortkey] desc "
    If cmd.CommandText IsNot Nothing
        dr("账面数量") = cmd.executescalar
    Else
        dr("账面数量") = 0
    End If
Next