ASP y Access
Publicado por Gabo (2 intervenciones) el 09/06/2008 22:57:55
Hola a todos...
Tengo un pequeño inconveniente que se ha convertido en una gran espina...
Lo que pasa es que tengo un script de una consulta a una bd Access, pero al
parecer conecta pero no me refleja información, pensé que depronto era la
conexion y lo intenté con DSN y sin éste pero de ninguna forma me da
resultados, he intentado con diferentes formas y tampoco, tal vez me puedan
ayudar... la bd se llama jubilables, la tabla expertos y los campos son
nombre y proceso... (fácil no?)... Esta es la muestra de dos cód que tengo...
-------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" %>
<%
Dim BDD ' variable que se encarga de la base de datos
Dim TABLA ' variable que se encarga de la tabla
'creo los objetos que manejan la base de datos y la tabla
Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")
'abro la base de datos
BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" +
Server.MapPath("jubilables.mdb"))
'abro la tabla
TABLA.Open "relevos", BDD ' indico el nombre de la tabla y la base de datos
'ahora recorro toda la tabla y muestro los datos
While NOT TABLA.EOF 'recorre la tabla hasta que EOF sea verdadero
Response.Write "Nombre:" & TABLA.fields("nombre") & "<br>"
Response.Write "C de A:" & TABLA.fields("cda") & "<br>"
Wend
'cierro todo y libero los objetos
TABLA.Close
BDD.Close
Set BDD = Nothing
Set TABLA = Nothing
%>
--------------------------------------------------------
Este es otro:
<%
Set BDD = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
BDD.Open "Access10","user","1234"
Do while NOT Rs.EOF
Rs.Open " select * from expertos ",cnx
Response.Write "Nombre:" & Rs("Nombre") & " "
Response.Write "Proceso:" & Rs("Proceso") & " "
Rs.moveNext
loop
Rs.Close
BDD.Close
Set BDD = Nothing
Set Rs = Nothing
%>
------------------------------------------------------------------
He aqui el ultimo...
<%@LANGUAGE="VBSCRIPT" %>
<%
dim txt
dbfile=Server.MapPath("jubilables.mdb")
set cnx= Server.CreateObject("ADODB.Connection")
cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq="&dbfile
set rs=server.CreateObject("ADODB.recordset")
rs.Open " select * from expertos ,cnx
%>
Tengo un pequeño inconveniente que se ha convertido en una gran espina...
Lo que pasa es que tengo un script de una consulta a una bd Access, pero al
parecer conecta pero no me refleja información, pensé que depronto era la
conexion y lo intenté con DSN y sin éste pero de ninguna forma me da
resultados, he intentado con diferentes formas y tampoco, tal vez me puedan
ayudar... la bd se llama jubilables, la tabla expertos y los campos son
nombre y proceso... (fácil no?)... Esta es la muestra de dos cód que tengo...
-------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" %>
<%
Dim BDD ' variable que se encarga de la base de datos
Dim TABLA ' variable que se encarga de la tabla
'creo los objetos que manejan la base de datos y la tabla
Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")
'abro la base de datos
BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" +
Server.MapPath("jubilables.mdb"))
'abro la tabla
TABLA.Open "relevos", BDD ' indico el nombre de la tabla y la base de datos
'ahora recorro toda la tabla y muestro los datos
While NOT TABLA.EOF 'recorre la tabla hasta que EOF sea verdadero
Response.Write "Nombre:" & TABLA.fields("nombre") & "<br>"
Response.Write "C de A:" & TABLA.fields("cda") & "<br>"
Wend
'cierro todo y libero los objetos
TABLA.Close
BDD.Close
Set BDD = Nothing
Set TABLA = Nothing
%>
--------------------------------------------------------
Este es otro:
<%
Set BDD = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
BDD.Open "Access10","user","1234"
Do while NOT Rs.EOF
Rs.Open " select * from expertos ",cnx
Response.Write "Nombre:" & Rs("Nombre") & " "
Response.Write "Proceso:" & Rs("Proceso") & " "
Rs.moveNext
loop
Rs.Close
BDD.Close
Set BDD = Nothing
Set Rs = Nothing
%>
------------------------------------------------------------------
He aqui el ultimo...
<%@LANGUAGE="VBSCRIPT" %>
<%
dim txt
dbfile=Server.MapPath("jubilables.mdb")
set cnx= Server.CreateObject("ADODB.Connection")
cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq="&dbfile
set rs=server.CreateObject("ADODB.recordset")
rs.Open " select * from expertos ,cnx
%>
Valora esta pregunta


0