En este grupo En todos

Foro de ASP



ASP y Access

GaboDuque
Antioquia, Colombia
Escrito por Gaboduque
el 09/06/2008
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 %>