誰かが私を助けてくれないかと思っていました。
私はこのような配列を持っています
fileArray = '2612(25).jpg', '2012(15).jpg', '2012(31).jpg', '2012(21).jpg', '2012(58).jpg'
今、私は次のコードを持っています。
Set DBConn = CreateObject("ADODB.Connection")
DBConn.Open strOLEDBString, strODBCUser, strODBCPass
SQL = "SELECT p, sum(vote) as likes FROM vote WHERE p in (" & fileArray & ") GROUP BY p ORDER BY sum(vote) desc"
Set rs = DBConn.Execute(SQL)
If rs.eof Then
HTMLTable = HTMLTable & " Nothing returned"
Else
HTMLTable = HTMLTable & rs("p")
End If
結果には配列内の最後のファイル名のみが表示され、それらすべてが表示されているはずです。