DataBase ACCESS

[iPunto]

Hace tiempo yo usaba esta clase en asp (ahora ya no programo en asp), y tenia el fichero mdb en un directorio del servidor:

Código:

<%
	Class ConexionBD
		Private Conexion
		Public NombreDSN														
		Public  rst	
							
		Public Sub Class_Initialize ()
			Set rst = Server.CreateObject("ADODB.Recordset")
			'NombreDSN="Nombre de la bd"
       NombreDSN = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
       NombreDSN = NombreDSN & Server.MapPath("/Bd/NombredelaBd.mdb")			
			
		End Sub
		
		Public Sub Class_Terminate ()
			Set rst = Nothing
		End Sub

        Public Sub Cerrar_BaseDatos () 
          Conexion.close ()
		  set Conexion=Nothing
        End Sub

        Public Sub Cerrar_Recordset () 
          rst.close ()
        End Sub
				
		Public Sub Abrir_BaseDatos (nombre)
          set Conexion=Server.CreateObject ("ADODB.Connection")
          Conexion.Mode=3
          Conexion.open (nombre)		
		End Sub		
		
        Public Sub Abrir_Recordset (strSql) 
          rst.open strSql,Conexion,1,2
		End Sub  

        Public Sub Ejecutar_Sql (strSql) 
          Conexion.Execute (strSql)
  		End Sub  
		
		Public Sub MoverPrimero
		  rst.movefirst
		End Sub 

		Public Sub MoverUltimo
		  rst.movelast
		End Sub 
		
		Public Sub MoverSiguiente
		  rst.movenext
		End Sub
						
	End Class
%>