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

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

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

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

有点蓝

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

加好友

发短信

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

Post By：2018/10/7 17:21:00 [只看该作者]

Select Top 10 a.*,b.FNumber As 代码,b.FName As 名称 from {ICInventory} As a Inner join {t_ICItemCore} As b on a.FItemID = b.FItemID

2900819580

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 '%机壳%'"

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/8 15:05:00 [只看该作者]

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

2900819580

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/9 15:28:00 [只看该作者]

如果都是sqlserver数据库，在同一个电脑上，可以加上数据库的名称查询；

如果都是access数据库，同样也可以直接查询。

如果一个sql一个access，或者一个内部一个外部，不能直接写sql语句。

2900819580

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/9 15:51:00 [只看该作者]

1、connectionName随便用任意一个；

2、sql语句的表名，要修改一下，比如之前叫表A、表B，那就要改成数据库1.ado.表A，数据库2.ado.表B

2900819580

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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' 无效。

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

总数 18 1 2 下一页

主题：[求助]多表查询