求助关于查询的问题？急盼答复

[maoxg]

有以下记录：
电话号码 分组
2600000 2600
2600001 2600
2600003 2601
2600004 2601
2600005 2600
2600007 2600
2600008 2600
2600009 2601
请问：用什么语句可以取得同一分组的号码段（例：2600000，2600001，2600；
2600009，2600009，2601），
并保存在另一个表文件中。本人初学请提供全部语句。谢谢 ！

[maoxg]

对不起，我粘贴的时候把数据粘错了

应为 号码 分组
2600000 2600
2600001 2600
2600002 2600
2600004 2601
2600006 2601
2600007 2601
2600009 2600

要求执行后出现以下数据
起始号码 结束号码 分组
2600000 2600002 2600
2600004 2600004 2601
2600006 2600007 2601
2600009 2600009 2600

我的思路是按号码排序后，设置4个变量，读出第一个号码到变量1，第一个分组到变量2，输出变量1的值，读出第二个号码到变量3，读出第二个分组到变量4，然后判断变量2是否等于变量4，若成立，就判断变量1加1是否等于变量3，若成立就把变量3的值赋给变量1，依次循环。若不等于就输出变量3减1的值和变量4的值。谢谢

[wwwwb]

详细一点，不太明白你的意思

[maoxg]

就是按分组2600或2601统计号段
按上数据执行后得到以下数据
格式如：2600 2600001-2600001
2601 2600003-2600005
2600 2600007-2600008
2601 2600009-2600009
谢谢

[wwwwb]

还是不太明白
2600 2600001-2600001 2600000?
2601 2600003-2600005 为什么是3-5？
2600 2600007-2600008
2601 2600009-2600009

[wwwwb]

2601为什么不是4-7？

[maoxg]

因为要统计号码段，就是统计一个分组中连续的号码段的开始号码和结束号码。号码中没有2600005 所以2601不是4-7。
谢谢

[gxlishuxin]

Private Sub Command1_Click()
Dim t As Integer
Dim mystr As String
Dim myrst As New ADODB.Recordset
Dim myrsp As New ADODB.Recordset
Dim mycnn As New ADODB.Connection
Set mycnn = CurrentProject.Connection
mystr = "SELECT 号码, 分组 FROM 号码记录表 ORDER BY 号码, 分组;"
myrst.Open mystr, mycnn, 3, 3
mystr = "SELECT 分段, 开始号码, 结束号码 FROM 号码统计表;"
myrsp.Open mystr, mycnn, 3, 3
myrst.MoveFirst
t = 0
myrsp.AddNew
myrsp.Update "分段", myrst(1)
myrsp.Update "开始号码", myrst(0)
myrsp.Update "结束号码", myrst(0)
Do Until myrst.EOF
If myrsp(0) = myrst(1) And Eval(myrsp(2)) = Eval(myrst(0) - t) Then
t = 1
myrsp.Update "结束号码", myrst(0)
Else
myrsp.AddNew
myrsp.Update "分段", myrst(1)
myrsp.Update "开始号码", myrst(0)
myrsp.Update "结束号码", myrst(0)
End If
myrst.MoveNext
Loop

End Sub

[maoxg]

谢谢大家

[maoxg]

谢谢