Question

我用SQL查询出一个值，怎样得到现在RS游标所在的行数或是ID值

如图

Public Sub sameshift() Dim strSQLS As String Dim rsS As Recordset Set rsS = New Recordset Dim CSame As Variant Dim CurID As Variant strSQLS = "SELECT [Morningshift]" strSQLS = strSQLS & "FROM [DateAndShift] " strSQLS = strSQLS & "WHERE [Morningshift]= [Nightshift] And [Date]>#2015-6-15# and [Date]<#2015-7-16# And [Nightshift]='B'And [Morningshift]='B' " rsS.Open strSQLS, g_conn, adOpenForwardOnly, adLockReadOnly, adCmdText CSame = rsS.RecordCount rsS.MoveFirst CurID =rss. ' 请问这儿应该怎么写??我就是想怎么通过rss来得到目前所在的ID Set rsS = Nothing End Sub
就如上数据库中的11和13行
我要的结果是返回CurID=11 或 13
我现在有一新问题
Dim strSQLMA As String
Dim rsmA As Recordset
Set rsmA = New Recordset
Dim UMorningshift As Variant
Dim UNightshift As Variant

CurID = rsS("ID")
CurIDJ = CurID - 1

strSQLMA = "SELECT [Morningshift],[Nightshift]"
strSQLMA = strSQLMA & "FROM [DateAndShift] "
strSQLMA = strSQLMA & "WHERE [ID]=CurID - 1"
rsmA.Open strSQLMA, g_conn, adOpenForwardOnly, adLockReadOnly, adCmdText
为什么运行不起，
但是如果我把CurID - 1换成具体数字，比如10就能运行，可是我的这个数是个可变的，所以不能用定值，请问我的表达错在那儿，

Answer 1

CurID =rss.fields(0).value

追问

谢谢我用这个方式已经解决了
CurID = rsS("ID")

追答

rsS("ID") == rss.fields(0)
不同写法，效果一样。

追问

那我的补充问题呢，请教了

追答

strSQLMA = strSQLMA & "WHERE [ID]="& CurID-1
拼SQL，你要把你的字符变成你最终的SQL
你原来的语句，CurID放在字符串里，可数据库里没有这个CurID字段。
想办法就成SQL中能运行的语句。