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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]知道数值，不知道数据表，不知字段名，如何查找

共有2489人关注过本帖树形打印复制链接主题：[求助]知道数值，不知道数据表，不知字段名，如何查找

2900819580

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

加好友

发短信

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

[求助]知道数值，不知道数据表，不知字段名，如何查找 发帖心情

Post By：2018/10/11 16:18:00 [只看该作者]

知道数值，不知道数据表，不知字段名，如何查找出数据表名称和字段名称

这样能做到吗？主要是想了解一下金碟的字段信息？

如知道料号 “7.05” 如何知道那个数据中有这个数据

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

有点甜

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

加好友

发短信

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

Post By：2018/10/11 16:24:00 [只看该作者]

查询全部表全部列，查找

For Each t As Table In Tables
    For Each c As Col In t.Cols
        Dim i = t.FindRow("convert(" & c.name & ",'System.String')" & " = '7.05'")
        If i >= 0 Then
            msgbox(t.name & " " & i & " " & c.name)
        End If
    Next
Next

2900819580

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

加好友

发短信

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

Post By：2018/10/11 16:54:00 [只看该作者]

老师，是外部SQL数据库来的，代码这样修改后会出错。

无法在 System.Int32 和 System.String 上执行“=”操作。

Dim lst As List(Of String)

lst = Connections("AIS20170303202558").GetTableNames

Dim cmd As New SQLCommand

cmd.C

For Each ls As String In lst

cmd.CommandText = "Se lect * From {" & ls & "} "

Dim dto As DataTable = cmd.ExecuteReader

e.Form.Controls("TextBox2").text &= ls & "|" '& c.Name

For Each c As DataCol In dto.DataCols

Dim DR As DataRow = dto.Find(c.name & " = '7.05'" )

If dr IsNot Nothing Then

msgbox(dto.name & " | " & c.name)

End If

有点甜

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

加好友

发短信

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

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

Dim DR As DataRow = dto.Find(c.name & " = '7.05'" )

改成

Dim DR As DataRow = dto.Find("convert(" & c.name & ",'System.String') = '7.05'")

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

主题：[求助]知道数值，不知道数据表，不知字段名，如何查找