How to query an Access 2007 database with ASP using a DSN-less connection

Programming, error messages and sample code > sample code

 

<%  
Dim cnnSimple ' ADO connection  
Dim rstSimple ' ADO recordset  
Set cnnSimple = Server.CreateObject("ADODB.Connection")  
 
' DSNLess  
cnnSimple.Open ("ProviderMicrosoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("\test.accdb"))  
 
Set rstSimple = cnnSimple.Execute("SELECT * FROM tbltest")  
%> 
 
<P> Connecting to Access with Ole connection </P> 
<table border="1">  
 
<%  
Do While Not rstSimple.EOF  
%> 
 
 <tr> 
  <td><%= rstSimple.Fields(0).Value %></td>  
  <td><%= rstSimple.Fields(1).Value %></td>  
 </tr> 
 
<%  
rstSimple.MoveNext  
Loop  
%> 
 
</table> 
 
<%  
rstSimple.Close  
Set rstSimple = Nothing 
cnnSimple.Close  
Set cnnSimple = Nothing 
%>