使用ADO对数组排序

leolee82

网上看到的，代码如下，比自己常用的慢5-10倍，效率还是不错的。二维数组排序没测试应该也差不多是这水平，自己的一二维数组排序是同样思路实现的，都是先得到排序后的index再调整数组。用ADO操作主要是简单通用，还能进行筛选等SQL操作。

1. '* ************************************** *
   
2. '* 模块名称：modSort.bas
   
3. '* 模块功能：使用ADO实现数组排序
   
4. '* 作者：http://blog.csdn.net/lyserver
   
5. '* ************************************** *
   
6. Sub main()
   
7.     Dim pstr As String
   
8.    
   
9.     pstr = "4aaaa/5.1hhhhhh/1.2pppppp/4.1ttttttt/5.2dddddddd"
   
10.     Dim t As Long
    
11.    
    
12.     Dim v As Variant, v_array As Variant, rs As Object
    
13.     v_array = CreateObject("EXDIY.f").GenRandomStrArray(10, 20, 100000)'10-20长度随机字符串
    
14.     t = Timer
    
15.     CreateObject("EXDIY.f").Array1D_SortByIndex (v_array)
    
16.     Debug.Print Timer - t
    
17.    
    
18.     t = Timer
    
19.     Set rs = CreateObject("ADODB.Recordset")
    
20.     rs.Fields.Append "zd1", 129, 100
    
21.     rs.Open
    
22.     For Each v In v_array
    
23.         rs.AddNew "zd1", v
    
24.     Next
    
25.    
    
26.     rs.Sort = "zd1 ASC"
    
27.     rs.MoveFirst
    
28. '    Do While Not rs.EOF
    
29. '        'Debug.Print rs.AbsolutePosition, , rs!zd1
    
30. '        rs.MoveNext
    
31. '    Loop
    
32.     'arr = rs.getrows
    
33.     rs.Close
    
34.     Debug.Print Timer - t
    
35. End Sub
    

复制代码

f8b1987

v_array = CreateObject("EXDIY.f").GenRandomStrArray(10, 20, 100000)
提示不能创建对象，这是要引用什么吗

WANT-T

感谢分享，祝您生活愉快，再见

vitrel

遇到的情况与2楼相同，
尝试百度关键字“CreateObject("EXDIY.f")”无法找到相关的内容，
可以的话，请楼主指点一下。

perfect131

https://club.excelhome.net/threa ... amp;_dsign=6eacd90c

vitrel

刚从网上找到了一个用ADO对数组排序的实例，实测通过，
在此分享一下，以作为对楼主实例的补充。
注：以下代码需引用“Microsoft ActiveX Data Objects 6.1 Library”

1. '* ************************************** *
   
2. '* 模块名称：modSort.bas
   
3. '* 模块功能：使用ADO实现数组排序
   
4. '* 作者：http://blog.csdn.net/lyserver
   
5. '* ************************************** *
   
6. Sub main()
   
7.     Dim pstr As String
   
8.    
   
9.     pstr = "4aaaa/5.1hhhhhh/1.2pppppp/4.1ttttttt/5.2dddddddd"
   
10.    
    
11.     Dim v As Variant, v_array As Variant, rs As Object
    
12.     v_array = Split(pstr, "/")
    
13.     Set rs = CreateObject("ADODB.Recordset")
    
14.     rs.Fields.Append "zd1", adChar, 100
    
15.     rs.Open
    
16.     For Each v In v_array
    
17.         rs.AddNew "zd1", v
    
18.     Next
    
19.     rs.Sort = "zd1 ASC"
    
20.     rs.MoveFirst
    
21.     Do While Not rs.EOF
    
22.         Debug.Print rs.AbsolutePosition, , rs!zd1
    
23.         rs.MoveNext
    
24.     Loop
    
25.     rs.Close
    
26. End Sub

复制代码

vitrel

perfect131 发表于 2023-7-9 14:31
https://club.excelhome.net/thread-1610342-1-1.html?_dsign=61b7ca91&_dsign=6eacd90c

非常感谢，看来还是Google强哦~~

leolee82

perfect131 发表于 2023-7-9 14:31
https://club.excelhome.net/thread-1610342-1-1.html?_dsign=61b7ca91&_dsign=6eacd90c

我错了，我是加了点东西测试后直接贴上来的。请忽略。
重点是可以弄个通用函数把二维数组放到Recordset中，再进行SQL操作，虽然普效率低点但通用。