Foros del Web » Programando para Internet » ASP Clásico »

consultas a db access

Estas en el tema de consultas a db access en el foro de ASP Clásico en Foros del Web. Hola, He hecho un contador de visitas usando una db de Access2000, la abro, y le sumo una visita más a las que tiene, y ...
  #1 (permalink)  
Antiguo 26/06/2002, 12:48
 
Fecha de Ingreso: mayo-2002
Mensajes: 30
Antigüedad: 22 años, 1 mes
Puntos: 0
consultas a db access

Hola,
He hecho un contador de visitas usando una db de Access2000, la abro, y le sumo una visita más a las que tiene, y luego cierro la tabla, la conexión y establezco ambas a Nothing.
Bien ahora me gustaria además de hacer esto, poder capturar la IP del visitante y la Fecha/Hora a la que entró en la página, y guardarlas en otra tabla. Pero no sé si debo cerrar la conexión tras contar la visita y luego volver a abrirla para tomar la IP y la hora, o no hace falta, con establecer solo la consulta a Nothing y cerrar la tabla del contador de visitas seria suficiente.
Quiero decir que si debo poner dos veces esto:
set Conexion = server.Createobject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")

conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/contador.mdb")
SQL = "SELECT * FROM tabla"

RS.Open SQL,Conexion,1,3

If RS.EOF then
---- aqui seria sumar 1 a las visitas--
End IF
total_visitas=RS("visitas")

RS.Close
Conexion.Close
Set RS = nothing
Set Conexion = nothing

y luego volver a abrir la conexion y establacer el RS con la siguiente sentencia, para guardar la IP y la fecha en la otra tabla, ó no tengo porque cerrarlas, porque baste con establecerlas a Nothing.

Espero haberme explicado con claridad, gracias.
  #2 (permalink)  
Antiguo 26/06/2002, 13:26
 
Fecha de Ingreso: diciembre-2001
Ubicación: Rosario (SF)
Mensajes: 193
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: consultas a db access

maquinapez, la conexión la abris y la cerras una ves, la que debes cerrar y volver a abrir es el recordset

conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/contador.mdb")

SQL = "SELECT * FROM tabla"
RS.Open SQL,Conexion,1,3

If RS.EOF then
---- aqui seria sumar 1 a las visitas--
End IF
total_visitas=RS("visitas")
RS.Close

'aca abris la otra tabla
SQL = "SELECT * FROM tabla2"
RS.Open SQL,Conexion,1,3

'haces el addnew

'cerras este recordset
rs.close

Conexion.Close
Set RS = nothing
Set Conexion = nothing

espero te sirva. saludos

Facu
  #3 (permalink)  
Antiguo 26/06/2002, 15:16
 
Fecha de Ingreso: mayo-2002
Mensajes: 30
Antigüedad: 22 años, 1 mes
Puntos: 0
Re: consultas a db access

OK, gracias Facu, es lo que yo pensaba, pero no me atrevia a hacerlo.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:23.