ASP y ACCESS

[gabrican]

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

[sikociado]

Saludos.
Haber si puedo ayudarte igual intetare ser lo mas explicito posible.
Comencemos.
Lo primero ( crear la conexion a la base de datos).
de esta forma

Código PHP:

  Dim oConn,rs  
 
Set oConn = Server.CreateObject("ADODB.Connection")  
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Nombre de la base de datos.mdb") 
   

aca solamente hemos cargado el driver de conexion que en este caso es el de access .

Segundo:
creamos la consulta usando nuestro recordeset que en este caso es la variable "rs"

creamos la consulta de la siguiente manera:

Código PHP:

  set rs = oConn.Execute("SELECT DISTINCT CamposBD FROM NOMBRE_BD") 
   

la consulta debes tu agregarla al segun sea tu necesidad. Si en caso de que quieras hacer un filtro de datos en la consulta usa la clausula Where.
Un ejemplo:

Código PHP:

  set rs = oConn.Execute("SELECT DISTINCT Usuario,contrasena,nombre,apellidos,cargo FROM USUARIOBOD WHERE tipo='0'") 
   

en la consulta anterior solo estoy pidiendo que la base de datos me muestre solo los usuarios que tengan como tipo una valor = 0
bueno aunque no es el caso. Te puede servir de ayuda.
y tercer paso :
Crear un bucle que nos permita mostrar todos los datos de la consulta realizada.
De la siguiente manera.

Código PHP:

  <% 
while not rs.EOF  
'aca van los campos de la bd que quieres mostrar.
 
Response.Write(rs.Fields("Campo1"))
'Obviamente aca debes poner un salto de linea con el html que es de esta manera <br>
Response.Write(rs.Fields("Campo2"))
'Obviamente aca debes poner un salto de linea con el html que es de esta manera <br>
Response.Write(rs.Fields("Campo3"))
'Obviamente aca debes poner un salto de linea con el html que es de esta manera <br>
Response.Write(rs.Fields("Campo4"))
rs.MoveNext  
wend  
%> 
   

y como paso final cerraromos la conexion y el recordeset de la base de datos y limpiamos las variables

Código PHP:

  rs.Close  
set rs = nothing  
oConn.Close  
set oConn = nothing 
   

eso seria :D

CODIGO entero

Código PHP:

  <html>
<%
Dim oConn,rs  
Set oConn = Server.CreateObject("ADODB.Connection")  
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("nombre_Bd.mdb")
 Realizamos la consulta  
set rs = oConn.Execute("SELECT DISTINCT campobd1, campobd2,campobdN FROM NombreTabla")  
%>
<body>
<table>
<tr>
<td>VALORES DEL CAMPO1</td>
<td>VALORES DEL CAMPO2</td>
<td>VALORES DEL CAMPON</td>
</tr>
<%
while not rs.EOF  
%>
<tr>
<td><%Response.write(rs.Fields("campobd1"))%></td>
<td><%Response.write(rs.Fields("campobd2"))%></td>
<td><%Response.write(rs.Fields("campobdN"))%></td>
</tr>
<%
rs.MoveNext
wend  
 
rs.Close  
set rs = nothing  
oConn.Close  
set oConn = nothing  
%>
</table>
</body>
</html> 
   

Espero te sirva de ayuda ... Saludos :D