特定の条件に基づいて特定のレコードセットの行番号を取得しようとしています。以下の表を検討してください
Name Id
abc 1
cde 2
efg 3
ここで、従業員「cde」の行番号またはレコードセット番号を取得する方法 (以下のコードによると、結果を 2 として取得する必要があります)。これについて何か助けてください。
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
strSource="C:\Test.xls"
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strSource & ";Extended Properties=""Excel 8.0;HDR=Yes;"";"
Set conn = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
conn.Open strConnection
objRecordset.Open "Select Name FROM [sheet1$] Where Id = 2", conn, adOpenStatic, adLockOptimistic, adCmdText
msgbox objRecordset.GetString
conn.Close
Set conn = Nothing