2012-07-15 316 views
1

我想创建第一找不到可安装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 

请告诉我如何解决此问题

+0

请参见您可以使用代码按钮'{}'格式化你的代码。 – Fionnuala 2012-07-15 19:23:53

回答

0

Yo你不应该引用数据库名称的一个问题,它是数据源,而不是数据库,并且你不需要与Open相等。

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

http://connectionstrings.com

相关问题