数据库字符串连接和数字统计问题，比较难一点。

TarringWu

现有数据库如下
AA BB CC DD
1 F01 12 15
2 F01 16 18
3 F02 19 21
4 F03 22 25
5 F01 26 28
6 F03 29 31

需要得到如下结果：
EE为：需要分类的数据。
FF为：每行的数据DD-CC+1，然后所有相同的进行统计。
GG为：每行CC-DD，然后连接其他相同的数据，就是把数据变成字符串连接起来。

EE FF GG
F01 10 12-15/16-18/26-28
F02 3 19-21
F03 7 22-25/29-31


以上为调用access数据库，需要用sql语句得出结果。

非常感谢！

TarringWu

数据和需要达到的效果附后。

Henry D. Sy

1. Private Sub Command0_Click()
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim rst As New ADODB.Recordset
   
4.     Dim cnn As New ADODB.Connection
   
5.     Dim strSQL As String
   
6.     Dim sSQL As String
   
7.     Dim str As String
   
8.     Dim lng As Long
   
9.     Dim i As Integer
   
10.     On Error GoTo Command0_Click_Error
    
11. 
    
12.     Set cnn = CurrentProject.Connection
    
13.     CurrentDb.Execute "delete from JG"
    
14.     strSQL = "select distinct bb from 数据"
    
15.     rs.Open strSQL, cnn, adOpenKeyset, adLockReadOnly
    
16.     Do While Not rs.EOF
    
17.         strSQL = "select cc,dd from 数据 where bb='" & rs.Fields(0) & "'"
    
18.         rst.Open strSQL, cnn, adOpenKeyset, adLockReadOnly
    
19.         Do While Not rst.EOF
    
20.             str = str & rst.Fields("cc") & "-" & rst.Fields("dd") & "/"
    
21.             lng = lng + rst.Fields("dd") - rst.Fields("cc") + 1
    
22.             rst.MoveNext
    
23.         Loop
    
24.         rst.Close
    
25.         i = i + 1
    
26.         If str <> "" Then
    
27.             str = Left(str, Len(str) - 1)
    
28.         End If
    
29.         sSQL = "insert into JG(AA,BB,FF,GG)VALUES(" & i & ",'" & rs.Fields(0) & "'," & lng & ",'" & str & "')"
    
30.         CurrentDb.Execute sSQL
    
31.         rs.MoveNext
    
32.         lng = 0
    
33.     Loop
    
34.     DoCmd.OpenTable "JG", acViewNormal
    
35.     rs.Close
    
36.     Set rs = Nothing
    
37.     Set rst = Nothing
    
38.     Set cnn = Nothing
    
39. 
    
40.     On Error GoTo 0
    
41.     Exit Sub
    
42. 
    
43. Command0_Click_Error:
    
44. 
    
45.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
46. End Sub
    

复制代码

Henry D. Sy

对不起，在lng = 0下面漏掉一句  str = ""
请自己补上！