Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Calling Access from ASP 1
- Thread starter AgentM
- Start date
suntsu
Programmer
- Aug 26, 2001
- 72
here is an example I just pulled from VB6 Database Programming from Wrox:
<%
dim myconnection
dim rsTitleList
set myconnection = server.createobject("ADODB.connection"
myconnection.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BegDB\Biblio.mdb"
SQLQUERY = "SELECT title from titles"
set rsTitleList = myConnection.execute(SQLQuery)
do until rsTitleList.eof
response.write rsTitleList("Title"
%>
<br>
<%
rsTitleList.movenext
LOOP
rsTitleList.close
set rsTitleList = nothing
%>
<br>
<!end server side script>
<hr>
</center>
</body>
</html>
Hope this helps
<%
dim myconnection
dim rsTitleList
set myconnection = server.createobject("ADODB.connection"
myconnection.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BegDB\Biblio.mdb"
SQLQUERY = "SELECT title from titles"
set rsTitleList = myConnection.execute(SQLQuery)
do until rsTitleList.eof
response.write rsTitleList("Title"
%>
<br>
<%
rsTitleList.movenext
LOOP
rsTitleList.close
set rsTitleList = nothing
%>
<br>
<!end server side script>
<hr>
</center>
</body>
</html>
Hope this helps
-
1
- #3
WELCOMESAQI
Programmer
<HTML>
<HEAD>
<TITLE>GET DATA FROM ACCESS USING ASP</TITLE>
</HEAD>
<BODY>
<%
Dim MyConnection
Dim MyRecordset
Set MyConnection =Server.CreateObject("Adodb.Connection"
With MyConnection
.open "Provider=microsoft.jet.oledb.4.0" & _
"datasource =c:\MyDatabase.mdb"
End With
MyRecordset.open "table_name",MyConnection,3,3
MyRecordset.movefirst
Response.Write "<table><tr><td>Name</td></RollNo</td></tr>"
While not MyRecordset.eof
Response.Write "<tr><td>"
Response.Write Myrecordset!name & "</td>"
Response.Write "<td>" & Myrecordset!rollno & "</td>"
Response.Write "</tr>"
Myrecordset.movenext
Wend
%>
</table>
</body>
</html>
<HEAD>
<TITLE>GET DATA FROM ACCESS USING ASP</TITLE>
</HEAD>
<BODY>
<%
Dim MyConnection
Dim MyRecordset
Set MyConnection =Server.CreateObject("Adodb.Connection"
With MyConnection
.open "Provider=microsoft.jet.oledb.4.0" & _
"datasource =c:\MyDatabase.mdb"
End With
MyRecordset.open "table_name",MyConnection,3,3
MyRecordset.movefirst
Response.Write "<table><tr><td>Name</td></RollNo</td></tr>"
While not MyRecordset.eof
Response.Write "<tr><td>"
Response.Write Myrecordset!name & "</td>"
Response.Write "<td>" & Myrecordset!rollno & "</td>"
Response.Write "</tr>"
Myrecordset.movenext
Wend
%>
</table>
</body>
</html>
WELCOMESAQI
Programmer
YRTYERTYYERTYY
YERTY
ERTY
ETY
ERTYRYY
YER
TY
T
YERTY
ERTY
ETY
ERTYRYY
YER
TY
T
- Thread starter
- #6
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
