Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合并数据操作问题


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

主题：合并数据操作问题
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		合并数据操作问题  发帖心情 Post By：2023/8/24 10:31:00 [显示全部帖子]

表A的字段：单号，料号，品名，数量，日期，审核
表B的字段：单号，料号，品名，数量，日期，审核，客户


注：
，
2.合并后在，单号，料号，品名，在同一行


'Dim cmd As New SQ-LCommand
'Dim dt As DataTable
'Dim sCols() As String = {"单号", "料号", "品名", "数量", "日期"}
'Dim dCols() As String = {"单号", "料号", "品名", "表A数量", "日期"}
'cmd.C'"
'cmd.CommandText = "SELEC-T * From {表A}WHERE 审核 = '未审核"
'dt = cmd.ExecuteReader()
'For Each dr As DataRow In dt.DataRows
'    Dim nr As DataRow = DataTables("员工").AddNew()
'    For i As Integer = 0 To sCols.Length - 1
'        nr(dCols(i)) = dr(sCols(i))
'    Next
'Next
[此贴子已经被作者于2023/8/25 16:51:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/24 11:42:00 [显示全部帖子]

Dim cmd As New SQ-LCommand
cmd.C'
Dim dt As DataTable
cmd.CommandText = select a.单号，a.料号，a.品名，a.数量 as 表A数量，a.日期 as 表A日期，表B数量，表C数量，a.审核 from 表A as a inner join ( select 单号，料号，品名，sum(数量) as 表B数量 from 表B group by 单号，料号，品名) as b on a.单号=b.单号 and a.料号=b.料号 and a.品名=b.品名 inner join ( select 单号，料号，品名，sum(数量) as 表C数量 from 表C group by 单号，料号，品名) as c on a.单号=c.单号 and a.料号=c.料号 and a.品名=c.品名 
Tables("表D").DataSource = cmd.ExecuteReader()
执行报错
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
SELEC-T 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确
[此贴子已经被作者于2023/8/24 11:42:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/24 11:59:00 [显示全部帖子]

现数据源是ACCESS，还有一个，以表A:单号，料号，品名，数量，日期，审核=未审核，审核=未审核，要加在哪位置？

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/24 15:10:00 [显示全部帖子]

Dim cmd As New SQ-LCommand
cmd.C'
Dim dt As DataTable
cmd.CommandText = select a.单号，a.料号，a.品名，a.数量 as 表A数量，a.日期 as 表A日期，表B数量，表C数量，a.审核 from 表A as a inner join ( select 单号，料号，品名，sum(数量) as 表B数量 from 表B group by 单号，料号，品名) as b on a.单号=b.单号 and a.料号=b.料号 and a.品名=b.品名 inner join ( select 单号，料号，品名，sum(数量) as 表C数量 from 表C group by 单号，料号，品名) as c on a.单号=c.单号 and a.料号=c.料号 and a.品名=c.品名 where a.审核='未审核'
msgbox(cmd.CommandText) '
Tables("表D").DataSource = cmd.ExecuteReader()'
MsgBox(1)'

执行后，没报错，也没有数据显示，调试也没显示内容，如何解决？据源是ACCESS
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/24 15:27:00 [显示全部帖子]

老师，找不到问题，还是没有数据显示，如何解决？

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/24 16:50:00 [显示全部帖子]

执行后，提示如图，还是没数据

图片点击可在新窗口打开查看此主题相关图片如下：sql报错1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/25 10:04:00 [显示全部帖子]

这个生成是临时表，如何写正表，表D?

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/25 10:13:00 [显示全部帖子]

cmd.CommandText = select a.单号，a.料号，a.品名，a.数量 as 表A数量，a.日期 as 表A日期，表B数量，表C数量，a.审核 from (表A as a inner join ( select 单号，料号，品名，sum(数量) as 表B数量 from 表B group by 单号，料号，品名) as b on a.单号=b.单号 and a.料号=b.料号 and a.品名=b.品名) inner join ( select 单号，料号，品名，sum(数量) as 表C数量 from 表C group by 单号，料号，品名) as c on a.单号=c.单号 and a.料号=c.料号 and a.品名=c.品名 where a.审核='未审核' and a.审核=''

改为红字代码条件，数据临时表也显示
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/25 10:49:00 [显示全部帖子]

：

Dim cmd As New SQ--LCommand
Dim dt As DataTable
Dim sCols() As String = {"列名1", "列名2", "列名3"}
Dim dCols() As String = {"列名A", "列名B", "列名C"}
cmd.ConnectionName = "C"
cmd.CommandText = "SELEC--T * From {表A}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
    Dim nr As DataRow = DataTables("表D").AddNew()
    For i As Integer =0 To sCols.Length -1
        nr(dCols(i)) = dr(sCols(i))
    Next
Next


问题一：

cmd.CommandText = "SELEC--T * From {表A}"是照抄，还是要把*改为"列名1", "列名2", "列名3"？
[此贴子已经被作者于2023/8/25 16:49:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/25 16:13:00 [显示全部帖子]

11


[此贴子已经被作者于2023/8/25 16:48:27编辑过]
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07617 秒, 5 次数据查询