Hola a todos...
Tengo un pequeño problemilla, yo que se la solucion puede ser facir pero lo he intentado de muchas formas y no me funciona. Resulta que tengo una bd en Access que se llama jubilables, una tabla llamada expertos con dos campos a mostrar: nombres y proceso.
He intentado conectarme por varios metodos... con y sin DSN pero no funciona, no me arroja ningun resultado de la tabla... Aqui les muestro 3 de mis script que ninguno me ha querido funcionar... si alguien sabe que está malo o que puedo hacer por favor AYUDA
!!!! mi Gracias!!!
Primero:
<%
dim txterror
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
%>
Segundo:
<%
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
%>
Tercero:
<%
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
%>
CUALQUIER AYUDA... MIL GRACIAS