这样的查询该怎么做?

wuaza

费了好大的劲，终于做出来一个。大家看看。

andymark

辛苦啦 [em27]

老鬼

先建个函数，用来返回源表中字段值的组合:

Function strget()
Dim rs As New ADODB.Recordset
Dim STR As String
rs.Open "select 源表字段 from 源表", CurrentProject.Connection
STR = rs.GetString(adClipString, , , ";")
strget = Left(STR, Len(STR) - 1)
End Function

建个表，将表字段设成“索引（不重复）”，然后运行一段代码：

Private Sub CommandButton_Click()
arr = Split(strget, ";")
For Each ar In arr
    DoCmd.SetWarnings False
    DoCmd.RunSQL "insert into 新表(字段) select '" & ar & "'"
    DoCmd.SetWarnings True
Next
MsgBox "set OK!"
End Sub

就可以了，详见附件：

wuaza

后来发现我那个查询2是多余的，缺省情况下UNION 运算时不返回重复的记录！

直接用“查询1”就可以了。

在一般情况下，如果允许用辅助表，那么老鬼的方法值得一试。

lhsh

学习学习

andymark

不用临时表，在10楼例子的基础上改成联合查询的方式

[此贴子已经被作者于2006-7-23 16:17:35编辑过]

老鬼

不用临时表的意思是不是说，也不能用临时的查询？因为两者的性质接近啊。那怎么处理哦。

楼上的高手们可以把UNION ALL中的ALL去掉，得出的查询值就不会重复了，用不着DISTINCT。

andymark

以下是引用老鬼在2006-7-23 15:34:00的发言：


不用临时表的意思是不是说，也不能用临时的查询？因为两者的性质接近啊。那怎么处理哦。

楼上的高手们可以把UNION ALL中的ALL去掉，得出的查询值就不会重复了，用不着DISTINCT。

        没看到楼主的例子,大家都只是按题意各人理解,具体要怎么样,只有楼主才清楚

         

静儿

因为程序须在光盘上只读使用，因此会有所限制。我试了一下，11楼wuaza做的可以使用，但我看不懂，wuaza能不能解释一下下呢？

wuaza

主要是分段取出字符串，然后再联合。

andymark版主的应该也可以实现你的要求。原理大同小异。

具体在QQ上聊吧。