Не удалось найти устанавливаемый ISAM

Я хочу создать функцию поиска на своей веб-странице с первым

<form id="form1" name="form1" method="get" action="mySearchResults.asp">
  <label>Enter Keywords:`
  <input type="text" name="searchTerm" />`
  </label>`
  <p>
    <input type="submit" name="Submit" value="Submit" />
  </p>
</form>

потом

<% 
'open the connection
Dim Connect, myRecordSet
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Database='SVCS.mdb'"
%>

<%
'collect the form input
searchInput = Request.QueryString("searchTerm")`

'check for a match
Set myRecordSet = Connect.Execute ("SELECT * FROM Inventory WHERE myColumn LIKE '%" & searchInput & "%'")


'display the results
if myRecordSet.EOF then
response.write("You searched for: " & searchInput & "<br>")
response.write("A match was not found.<br>Sorry try again.")
else
response.write("You searched for: " & searchInput & "<br>")
response.write("The record was found!<br>The match is: " & myRecordSet("myColumn"))
end if
%>
<br><br>
<a href="mySearchForm.asp">Try Again</a> 

И ошибка

Microsoft JET Database Engine error '80004005' 
Could not find installable ISAM. 
/sarah lee video club website/mySearchResults.asp, line 5

Подскажите пожалуйста как это решить


person Gabriel Leong    schedule 15.07.2012    source источник
comment
Вы можете использовать кнопку кода {} для форматирования кода.   -  person Fionnuala    schedule 15.07.2012


Ответы (1)


Вы не должны цитировать имя базы данных для одной вещи, это источник данных, а не база данных, и вам не нужны равные с Open.

Set con = Server.CreateObject("ADODB.Connection") 
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SVCS.mdb"

См. также http://connectionstrings.com.

person Fionnuala    schedule 15.07.2012