SQL查询结果添加新序号

peterpu

SQL查询结果添加新序号，请老师出手帮助，谢谢！
代码如下：
Sub 查询结果加序号()
Dim CNN As New ADODB.Connection
Dim Sj As New ADODB.Recordset                                                     
     myData = ThisWorkbook.Path & "\" & 2956 & ".mdb"
     With CNN: .Provider = "microsoft.jet.oledb.4.0":.Open myData:End With
     SQL = "SELECT lc1.日期, lc1.收盘, lc1.五分钟 FROM lc1 WHERE lc1.时间=1500 AND lc1.日期>= #" & Sheet3.Range("I2") & "# and lc1.日期<= #" & Sheet3.Range("J2") & "# ORDER BY lc1.日期 asc"
     Sj.Open SQL, CNN, adOpenKeyset, adLockOptimistic
     arr00 = CNN.Execute(SQL).GetRows      
     MsgBox "内存数组 arr00 第一行添加新序号了吗？万分感谢！"     
End Sub

roych

select是不能添加序号的。getrows也不是添加序号的命令，而是将记录集（recordset）转为数组而已。
需要添加序号，应该用absolutePosition来更新。当然，也可以加上dcount，但效率比较低，而且需要添加一定的条件。

peterpu

roych 发表于 2020-6-25 11:07
select是不能添加序号的。getrows也不是添加序号的命令，而是将记录集（recordset）转为数组而已。
需要添 ...

感谢，感谢您的帮助！

peterpu

原本想放弃了，但实际又需要在查询结果上添加新序号，希望有老师帮我解决！

roych

既然是在Excel里处理，何不用Excel的插入一列，然后添加行号公式，例如：
=if(B1="","",row())。
又或者用for也行。
for i=1 to usedrange.rows.count
sheet1.range("A"&i)=i
next
其实这些什么行号，真的不是那么重要。

lss001

peterpu 发表于 2020-10-10 19:35
原本想放弃了，但实际又需要在查询结果上添加新序号，希望有老师帮我解决！

参考附件 Documents.rar (143.56 KB, 下载次数: 23)

2022-5-14 20:23 上传

点击文件名下载附件

peterpu

lss001 发表于 2022-5-14 20:23
参考附件

谢谢您热心的帮助，我给漏掉了，再次感谢！