| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 查询表不能 sqlfind吗？ (http://www.foxtable.com/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() |