Question

vb操作sql，sql里没有设置ID号，想获得当前记录在sql里的行数，怎么在vb里写这个语句，谢谢

Answer 1

你用什么连接数据库的？

例如：
Rst.AbsolutePosition

追问

ado控件连接的，比如我选出了连续的几条记录，我想知道这几条记录的第一条在sql里是第几条该怎么写

追答

也是AbsolutePosition属性
上面是使用ADO对象的使用方法，而ADO控件的方法如下：
msgbox Adodc1.Recordset.AbsolutePosition '显示当前记录的序号

追问

 你好，以上是我实验的代码，用的excel,选出一条记录，弹出窗口显示1，可是实际在表中不是第一条记录啊，问题出在哪儿了呢，谢谢

追答

你对语句不理解，满足： Where 条件的记录可能有多条
adodc1.Refrash
adodc1.recordset.Movefirst '应该移动到首记录,这个是指指向返回的记录集合中的首记录
Msgbox adodc1.recordset.absoluteposision

追问

你好，我把代码改成你给我建议的movefirst了，但是弹出的还是1，可是被选出的第一条记录是在原表中的第6行啊，是ado属性设置的问题吗，或者是absoluteposision以被选出来的记录为基础从而指出其在这些记录中的相对位置，而不是以原来的整张表为基础而指出的在整张表中所处的位置，谢谢了

追答

那你不能用贴出来的代码？？？？
要这样：

Adodc1.RecordSource = "select * From [sheet1$]"
Adodc1.Refresh
Adodc1.Recordset.Find "month(时间)=' " & dd & "' and hour(时间)='" & cc & "'"
If Not Adodc1.Recordset.EOF Then
'找到了满足条件的首记录
MsgBox Adodc1.Recordset.AbsolutePosition
End If