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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多表查询

共有2623人关注过本帖树形打印复制链接主题：[求助]多表查询

2900819580

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

加好友

发短信

等级：六尾狐帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00

[求助]多表查询 发帖心情

Post By：2018/10/7 16:17:00 [显示全部帖子]

如下代码，我是加载了第一个表，再加载列，再遍历行，查找相关的数据，能不能用SQL 中的INNER JOIN语句，或者有没有其它更好的方法，

因为遍历的话，如果行数多的话，会很慢！

Dim cmd As new SQLCommand

Dim Sqldt1 As DataTable

cmd.C

cmd.CommandText = "sel ect Top 10 * from {ICInventory} "

Sqldt1 = cmd.ExecuteReader

Dim tb As Table = Tables(e.Form.Name & "_Table1")

Dim dt As DataTable = tb.DataTable

tb.DataSource = Sqldt1

Dim lms() As String = {"代码","名称","规格型号"}

For Each lm As String In lms

If lm = "用量" Then

dt.DataCols.Add(lm,Gettype(Single))

Else

dt.DataCols.Add(lm,Gettype(String),250)

End If

Dim cmd As new SQLCommand

Dim Sqldt As DataTable

cmd.C

For Each r As Row In tb.Rows

cmd.CommandText = "Sel ect * From {t_ICItemCore} Where [FItemID] = '" & r("FItemID") & "'"

Sqldt = cmd.ExecuteReader

If Sqldt.DataRows.Count > 0 Then

Dim dr As DataRow = sqldt.DataRows(0)

r("代码") = dr("FNumber")

r("名称") = dr("FName")

r("规格型号") = dr("Fmodel")

End If

2900819580

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

加好友

发短信

等级：六尾狐帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/10/8 14:56:00 [显示全部帖子]

列名 'FName' 不明确。

多表出现以上错误，以下是代码

cmd.CommandText = "Sele ct a.*,b.FNumber As 代码,b.FName As 名称,b.Fmodel as 规格型号,c.Fnote as 库位号,e.FName as 仓库名称 from {ICInventory} As a "

cmd.CommandText &= " Inner join {t_ICItemCore} As b on a.FItemID = b.FItemID "

cmd.CommandText &= " Inner join {t_ICItemMaterial} As c on a.FItemID = c.FItemID "

cmd.CommandText &= " Inner join {t_ICItemBase} As d on a.FItemID = d.FItemID "

cmd.CommandText &= " Inner join {t_ICItemBase} As e on d.FDefaultLoc = e.FItemID "

cmd.CommandText &= " WHERE FName LIKE '%机壳%'"

2900819580

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

加好友

发短信

等级：六尾狐帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/10/8 15:08:00 [显示全部帖子]

以下是引用有点甜在2018/10/8 15:05:00的发言：

条件 WHERE FName LIKE '%机壳%' 中的 fname 是哪个表的？也要指定表名的

解决了，cmd.CommandText &= " WHERE E.FName LIKE '%机壳%'"

谢谢老师

2900819580

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

加好友

发短信

等级：六尾狐帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/10/9 15:26:00 [显示全部帖子]

老师，如果两个表不在同一个数据库上，怎么办。

’~~~~~~~~~~~~~~~~~~~~~~~`{t_ICItemCore}

Dim cmd As new SQLCommand

Dim Sqldt As DataTable

cmd.Conn ecti

‘~~~~~~~~~~~~~~~~~~~{物料表}

Dim cmd1 As new SQLCommand

Dim Sqldt As DataTable

cmd1.Conn ecti

cmd.CommandText = "Se lect b.FNumber As 代码,b.FName As 名称,b.Fmodel as 规格型号,c.Fnote as 库位号,e.FName as 仓库名称 from {t_ICItemCore} As b "

cmd.CommandText &= " Inner join {物料表} As C on c.代码 = b.FNumber "

Sqldt = cmd.ExecuteReader

[此贴子已经被作者于2018/10/9 15:27:12编辑过]

2900819580

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

加好友

发短信

等级：六尾狐帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/10/9 15:46:00 [显示全部帖子]

老师，都是SQL数据库上，也是同一个服务器，只是数据源名称不一样，

代码应该怎么写。数据源名称没办法上传

Dim cmd As new SQLCommand

Dim Sqldt As DataTable

‘cmd.Connec ti

Dim cmd1 As new SQLCommand

Dim Sqldt As DataTable

’cmd1.Connec ti

cmd.CommandText = "Selec t b.FNumber As 代码,b.FName As 名称,b.Fmodel as 规格型号,c.Fnote as 库位号,e.FName as 仓库名称 from {t_ICItemCore} As b "

cmd.CommandText &= " Inner join {物料表} As C on c.代码 = b.FNumber "

Sqldt = cmd.ExecuteReader

[此贴子已经被作者于2018/10/9 15:47:58编辑过]

2900819580

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

加好友

发短信

等级：六尾狐帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/10/9 16:33:00 [显示全部帖子]

cmd.CommandText = "Sel ect b.FNumber As 代码,b.FName As 名称,b.Fmodel as 规格型号,c.Fnote as 库位号,e.FName as 仓库名称 from {cmd.ado.t_ICItemCore} As b "

cmd.CommandText &= " Inner join {cmd1.ado.物料表} As C on c.代码 = b.FNumber "

对象名 'cmd.ado.t_ICItemCore' 无效。

2900819580

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

加好友

发短信

等级：六尾狐帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/10/10 9:14:00 [显示全部帖子]

此主题相关图片如下：无标题.png

cmd.CommandText = "Se lect b.FNumber As 代码,b.FName As 名称,b.Fmodel as 规格型号,c.名称 as 名称2 from AIS20170303202558.dbo.t_ICItemCore As b "

cmd.CommandText &= " Inner join {201701.dbo.物料表} As C on c.代码 = b.FNumber "

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2018.3.9.1

错误所在事件：

详细错误信息：

对象名 '201701.dbo.物料表' 无效。

试过加括号和不加括号，201701.dbo.物料表和 201701.ado.物料表都试过。

[此贴子已经被作者于2018/10/10 9:16:42编辑过]

2900819580

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

加好友

发短信

等级：六尾狐帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/10/10 10:21:00 [显示全部帖子]

[201701].dbo.物料表这个方法可以了，谢谢老师

2900819580

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

加好友

发短信

等级：六尾狐帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/10/10 10:49:00 [显示全部帖子]

此主题相关图片如下：无标题.png

老师还有一个新问题：

AIS20170303202558.dbo.t_ICItemCore 这个数据表上有 8.0002 但 [201701].dbo.物料表没有这个料号，同时加载的话是不会显示出来的，

我想实现的是按AIS20170303202558.dbo.t_ICItemCore 这个数据表加载，如果在 8.0002 但 [201701].dbo.物料表这个数据表上没有，则名称2空白。

代码如下

cmd.CommandText = "Sel ect b.FNumber As 代码,b.FName As 名称,b.Fmodel as 规格型号,c.名称 as 名称2 from AIS20170303202558.dbo.t_ICItemCore As b "

cmd.CommandText &= " Inner join [201701].dbo.物料表 As C on c.代码 = b.FNumber "

2900819580

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

加好友

发短信

等级：六尾狐帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/10/10 14:36:00 [显示全部帖子]

老师，如果两个表的数据都加进来呢

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

总数 11 1 2 下一页

主题：[求助]多表查询