以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于提取备注列不重复字段的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77833)
--  作者：ap9709130
--  发布时间：2015/11/26 10:15:00
--  关于提取备注列不重复字段的问题

大红袍老师

   

        我现在的数据库里有个表，表的行数比较多，大概40万行左右。表里有个备注列。备注列的内容是分 ：号把相关的元素分格开  有没有好的方法 取得这个列的不重复的元素。

 

比如  第一列的内容为：A:F:G:H     第二列的内容为：A:B:H:Z    多谢！
--  作者：大红袍
--  发布时间：2015/11/26 10:53:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76784&skin=0

 

 
--  作者：ap9709130
--  发布时间：2015/11/26 11:52:00
--  

大红袍老师

 

是我写错了。和想要的和你的例子有点不一样。比如下表   假如我的备注列的  名称是：项目

                                  项目

第一行：             A:N:K:B:V:C

第二行：            A:B:Y:C:K:J:F

第三行：           B:C:H:U:I:K:F

第四行：         K:A

.

.

.

   因为行数很多，如果少的话把它们Load出来，然后再用集全处理，得至少不重复的项目：A|B|C|K .....   

 

但行数太多了，有没有什么好方法可以得到。多谢！

 

 

 
--  作者：大红袍
--  发布时间：2015/11/26 12:08:00
--  

一样的意思。

 

你可以用sqlcommand查询临时表dt，然后循环每一行。

 

必须循环每一行内容，才能得到结果的。
--  作者：lsy
--  发布时间：2015/11/26 14:15:00
--  
Dim cmd As New SQLCommand
cmd.ConnectionNam e = "" ‘复制后请消除关键字中的空格
cmd.CommandText = "Selec t Max([_Identify]) Fro m {表A} Where [第九列] Is Not Null" ‘复制后请消除关键字中的空格
Dim cnt As Integer = cmd.ExecuteScalar
Dim lst As New List(Of String)
Dim str As String
Dim dt As DataTable
For i As Integer = 1 To cnt
    cmd.CommandText = "Selec t [第九列] Fro m {表A} Where [_Identify] = " & i ‘复制后请消除关键字中的空格
    dt = cmd.ExecuteReader
    If dt.DataRows.Count > 0 Then
        str = dt.DataRows(0)("第九列")
        For Each s As String In str.Split(":")
            If lst.Contains(s) = False Then
                lst.Add(s)
            End If
        Next
    End If
Next
str = ""
lst.Sort
For i As Integer = 0 To lst.Count - 1
    str + = lst(i) & "|"
Next
Output.Show(str.Trim("|"))
[此贴子已经被作者于2015/11/26 14:18:06编辑过]