以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查询表不能 sqlfind吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131121)

--  作者:ycwk
--  发布时间:2019/2/17 22:36:00
--  查询表不能 sqlfind吗?
资产汇总查询表是用sql拼起来的4张表的一个查询表,现在用   Dim dr1 As DataRow= DataTables("资产汇总查询表").SQLFind("SN = \'" & e.GetValues("SN") &  "\'")    不行吗?
               Dim dr1 As DataRow= DataTables("资产汇总查询表").SQLFind("SN = \'" & e.GetValues("SN") &  "\'")    
                If dr1 IsNot Nothing Then    \'如果资产管理表中有此资产编号对应的资料               
                    msgbox(dr1("SN"))
                      wb.AddForm("","form1","PdResult.htm")
                      With wb.AddInputGroup("form1","ipg1","请核对资料")
                        .AddInput("sn","SN","text").Value=dr1("SN")
                        .AddInput("zcgs","资产归属","text").Value=dr1("资产归属")
                        .AddInput("sblx","设备类型","text").Value=dr1("设备类型")
                        .AddInput("interIP","内网_IP","text").Value=dr1("内网_IP")      
                        .AddInput("outerIP","外网_IP","text").Value=dr1("外网_IP")
                        .AddInput("szl","所在楼","text").Value=dr1("所在楼")
                        .AddInput("szks","所在科室","text").Value=dr1("所在科室")
                        .AddInput("szfj","所在房间","text").Value=dr1("所在房间")
                       \' .AddInput("pw","密码","password")
                      End With

--  作者:ycwk
--  发布时间:2019/2/18 8:43:00
--  
\'用union 组合4个表后,查询sn=\'141709430192\' 的数据,却查询不到了,但是确实明明存在 其中一个表中的,请问这是怎么回事?

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "S elect 资产卡片号,SN,设备类型,内网_IP,内网_MAC,内网_交换机IP,内网_交换机端口,外网_IP,外网_MAC,外网_交换机IP,外网_交换机端口,所在楼,所在科室,所在房间,资产归属,用途,\'电脑终端管理表\' 来源表  from 电脑终端管理表 union S elect 资产卡片号,SN,设备类型,内网_IP,内网_MAC,内网_交换机IP,内网_交换机端口,外网_IP,外网_MAC,外网_交换机IP,外网_交换机端口,所在楼,所在科室,所在房间,资产归属,用途,\'其它终端管理表\' 来源表  from 其它终端管理表 union S elect 资产卡片号,SN,区域类型 \'设备类型\',\'无\' \'内网_IP\',\'内网_MAC\',\'无\' \'内网_交换机_IP\',\'无\' \'内网_交换机端口\',\'无\' \'外网_IP\',\'无\' \'外网_MAC\',\'无\' \'外网_交换机_IP\',\'无\' \'外网_交换机端口\',所在楼,所在科室,所在房间,资产归属,用途,\'网络交换机管理表\' 来源表 from 网络交换机管理表 union S elect 资产卡片号,SN,设备型号 \'设备类型\',\'内网_IP\',\'无\' \'内网_MAC\',\'无\' \'内网_交换机_IP\',\'无\' \'内网_交换机端口\',\'无\' \'外网_IP\',\'无\' \'外网_MAC\',\'无\' \'外网_交换机_IP\',\'无\' \'外网_交换机端口\',所在楼,所在科室,所在房间,资产归属,用途,\'服务器管理表\' 来源表 from 服务器管理表"


Dim DA As DataTable = cmd.ExecuteReader()


               Dim dr1 As DataRow= da.SQLFind("[SN] = \'141709430192\'")    
                If dr1 IsNot Nothing Then    \'如果资产管理表中有此资产编号对应的资料               
                    msgbox(dr1("SN"))
               End If


--  作者:ycwk
--  发布时间:2019/2/18 8:57:00
--  
我在sqlserver 中 创建了一个视图 : 资产汇总查询视图  ,现在想在狐表中,对这个视图进行查找操作,请问如何写代码?
--  作者:有点蓝
--  发布时间:2019/2/18 9:40:00
--  
Dim cmd As New SQLCommand
cmd.Connecti
cmd.CommandText = "select * from 视图名称 where sn=\'141709430192\'"
Dim DA As DataTable = cmd.ExecuteReader()