rsSearchResults.Open strSQL, strCon, 3
lngTotalRecordsFound = CLng(rsSearchResults.RecordCount)
If Request.QueryString( "submit ") = "Random Search " and NOT rsSearchResults.EOF Then
Randomize Timer
rsSearchResults.Move CLng(RND * lngTotalRecordsFound) - 0.5
rsSearchResults.Filter = "IDNo = " & rsSearchResults( "IDNO ")
Else
rsSearchResults.PageSize = 9
IF NOT rsSearchResults.EOF Then rsSearchResults.AbsolutePage = intRecordPositionPageNum
lngTotalNumPages = CLng(rsSearchResults.PageCount)
这是一个搜索引擎的一段代码...我修改了数据库(Access)一点点东西就说Microsoft OLE DB Provider for ODBC Drivers '80040e10 ' ,rsSearchResults.Open strSQL, strCon, 3 有错误
------解决方案--------------------
rsSearchResults.Open strSQL, strCon, 3
改成
rsSearchResults.Open strSQL, strCon, 1,3
------解决方案--------------------
将代码:rsSearchResults.Open strSQL, strCon, 3
改为:
rsSearchResults.Open strSQL, strCon,1,3 或者是rsSearchResults.Open strSQL,strCon,3,3
应该就可以了啊