Manejo de Base de Datos en ASP

ASPirin · #1 (**permalink**) 06/06/2005, 08:15

Hola a todos:
Soy nuevo en esto, me gustaría saber si alguien puede ayudarme con el código necesario, para conectar una base de datos a un servidor. El siguiente es el código utilizado, que NO funciona :
Este es el código de index.asp y la base es novelty , en ese path
-------------------------------------

<% @ language="VBSCRIPT" %>
<html>
<head>
<title>
Query
</title>
</head>
<%
Dim Conn, RS
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
DSNStatement = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DSNStatement = DSNStatement & Server.MapPath("/planbe/database/novelty.mdb")
Conn.Open DSNStatement
RS.Open "Select * from tblCustomers"
Do Until rs.EOF
Response.Write(rs.Fields("FirstName") & " " & rs.Fields("LastName") &
"<br>"
rs.MoveNext
Loop
RS.Close
Conn.Close
%>
</body>
</html>

-------------------------------------------

Desde ya muchas gracias !

El_Metallick · #2 (**permalink**) 06/06/2005, 08:33

Código:

Set conn = Server.CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("planbe/database/novelty.mdb"))
 
sql="Select * From tblCustomers"
rs.Open sql, Conn
 
If Not rs.eof Then
Do While Not rs.eof
Response.Write(rs.Fields("FirstName") & " " & rs.Fields("LastName") & 
"<br>"
rs.MoveNext
Loop
Else
Respone.write "no hay registros"
End If

Saludos y suerte