Ver Mensaje Individual
  #2 (permalink)  
Antiguo 05/10/2004, 15:19
Avatar de u_goldman
u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses
Puntos: 98
Un ejemplo:

Código:
<%
'Creamos una conexión
path = "D:\inetpub\wwwroot\carpetaDB\"
Set objConn = Server.CreateObject("ADODB.Connection") 
ObjConn.Mode = 3
objConn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & path & "base.mdb"

'Abrimos un recordset
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT campo1, campo2, campoN FROM tabla"
rs.Open strSQL, ObjConn, 3, 3

'Evaluamos al recordset
If not rs.EOF THen
  Response.Write(rs("campo1"))
Else
  Response.Write("No se encontraron coincidencias")
End If

'Cerramos y destruimos objetos
rs.Close
Set rs = Nothing
ObjConn.Close
Set ObjConn = Nothing
%>
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway