conectar ASP con una B.D de ACCESS
MARCO
22 de Febrero del 2002
hola amigos, quiero hacerles una consulta ¿como puedo conectar? la pagina de ASP con una base de datos hecha en ACCESS no me refiero al ODBC, si no al codigo, agradezco su comprension es porque soy un novato en ASP. agradecere a a quien me responda...
PEPE
22 de Febrero del 2002
Mira si es esto lo que quieres:
--------------------------------->
<html>
<head><title>Listado de registros</title></head>
<%SQLtxt = "SELECT Producto, Cantidad, Precio FROM almacen "%>
<body>
' Conectamos a la BASE DE DATOS
<%set rs = CreateObject("ADODB.Recordset")
rs.Open SQLtxt, "DSN=Mibase"
%>
<center>
<table border="0" width="32%" bgcolor="#C0C0C0">
<tr>
<td width="100%">
<p align="center"><b><big>Listado de registros</big></b></td>
</tr>
</table>
<h3></center>
<br>
</h3>
<table BORDER="1" CELLSPACING="0" BORDERCOLOR="#000000"
CELLPADDING="2" width="100%">
<tr>
<td BGCOLOR="#C0C0C0"><b>Nombre de producto</b></td>
<td BGCOLOR="#C0C0C0"><b>Cantidad</b></td>
<td BGCOLOR="#C0C0C0" align="right"><b>Precio</b></td>
</tr>
' Mostramos los registros en un LOOP
<%
Do While NOT rs.EOF%>
<tr>
<td><%= rs("Producto")%></td>
<td><%= rs("Cantidad")%></td>
<td align="right"><%= FormatCurrency(rs("Precio"))%></td>
</tr>
<% rs.MoveNext
Loop
rs.Close
%>
</table>
</body></html>
---------------------------------------
Un saludo
--------------------------------->
<html>
<head><title>Listado de registros</title></head>
<%SQLtxt = "SELECT Producto, Cantidad, Precio FROM almacen "%>
<body>
' Conectamos a la BASE DE DATOS
<%set rs = CreateObject("ADODB.Recordset")
rs.Open SQLtxt, "DSN=Mibase"
%>
<center>
<table border="0" width="32%" bgcolor="#C0C0C0">
<tr>
<td width="100%">
<p align="center"><b><big>Listado de registros</big></b></td>
</tr>
</table>
<h3></center>
<br>
</h3>
<table BORDER="1" CELLSPACING="0" BORDERCOLOR="#000000"
CELLPADDING="2" width="100%">
<tr>
<td BGCOLOR="#C0C0C0"><b>Nombre de producto</b></td>
<td BGCOLOR="#C0C0C0"><b>Cantidad</b></td>
<td BGCOLOR="#C0C0C0" align="right"><b>Precio</b></td>
</tr>
' Mostramos los registros en un LOOP
<%
Do While NOT rs.EOF%>
<tr>
<td><%= rs("Producto")%></td>
<td><%= rs("Cantidad")%></td>
<td align="right"><%= FormatCurrency(rs("Precio"))%></td>
</tr>
<% rs.MoveNext
Loop
rs.Close
%>
</table>
</body></html>
---------------------------------------
Un saludo