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

Winhost > 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 ("Provider= Microsoft.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 
%> 
 

If you run in to problems using this code, please post in our community forum. Technical support cannot assist with specific coding related issues.
Article ID: 686, , Modified: 8/19/2018 at 3:14 PM

Was this article helpful?

Share this article