Saber Ke Ahy En La Base De Datos Desde Asp

[mrjhon]

Hola Amigos De Nuevo Por Estos Lados Pidiendo Ayuda

Bueno El Caso Es Ke Deseo Saber Como Accedo A Una Base De Datos Acces De Mi Servidor Con Asp.

Gracias Antemano Por La Ayuda

[u_goldman]

www.connectionstrings.com

Salu2,

[mrjhon]

Haber Si Me Explico Bien Necesito Saber La Informacion Nueva Ke Ha Llegado A La Base De Datos En Este Caso La De Un Formulario...

La Conexion Ya La Tengo Solo Kiero Saber Como Haberiguar Lo Ke Hay Dentro De La Base De Datos ..

De Todas Formas Gracias

U_golman.

[u_goldman]

Has creado recordsets?

[mrjhon]

Si , Espera Te Muestro El Codigo

[mrjhon]

SI , ESPERA TE MUESTRO EL CODIGO

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("librovisitas.mdb")&"")

set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "formulario", Conn, 2, 3

RS.AddNew
rs("nombre")=request.form("nombres")
rs("apellidos")=request.form("apellidos")
rs("empresa")=request.form("empresa")
rs("telefono")=request.form("telefono")
rs("mail")=request.form("mail")
comentario=replace(request.form("comentario"),chr( 10),"<br>")
rs("comentario")=comentario

RS.Update()
RS.Close
conn.Close
set conn = nothing
set conexion = nothing
%>

[u_goldman]

Hagamoslo mas facil, cual es la estructura de tu(s) tabla(s) y que deseas obtener exactamente?

[mrjhon]

la tabla se llama formulario

los datos ke nesecito se llama
nombre ,apellidos, empresa, emmail, telefono, comentario

estos datos son los ke nesecito recoger.
si me entiendes

[u_goldman]

Código:

Set rs = Server.CreateObject("ADODB.Recordset")
qry = "SELECT nombre ,apellidos, empresa, emmail, telefono, comentario FROM formulario"
rs.Open qry, ElNombreDeTuConexion, 3, 3

if not rs.EOF then
  while not rs.EOF
      response.write rs(0) & " | " & rs(1) & " | " & rs(2) & " | " & rs(3) & " | " & rs(4) & " | " & rs(5) & "<br>"
    rs.MoveNext
  wend
else
  response.write "No se encontraron registros"
end if
rs.Close
Set rs = Nothing
ObjConn.Close
Set ObjConn = Nothing

Salu2,

[trasgukabi]

Creo haber entendido que insertas un registro en la base de datos e, inmediatamente después, necesitas recuperar los datos introducidos.
En access lo tendrías jodido, ya que, después de la inserción, tendrías que recuperar un recordset que contenga el mayor de los registros (suponiendo que sigues la normalizacdión de bases de datos) (función SQL MAX. Investiga).

con sql server o mysql lo tendrías muuuuuy fácil:

en sql server sería
Set rsultimo = conn.Execute("SELECT @@IDENTITY")
en mysql
set rsultimo=conn.execute("SELECT LAST_INSERT_ID();")

a partir de ahí, tan sólo tendrías que crear otro recordset filtrando por el valor que te devuelva rsultimo.

**nota:aún siendo creación de recordsets, el impacto en el servidor es mínimo ya que se va contra las tablas de sistema (manejadas a nivel interno con procedimientos compilados)

Si he entendido mal, lo dices.

PD:mare mía, mira que hablo cuando he hecho uso (abusivo o no, a quién le importa? a mi no ) del alcohol.

[mrjhon]

HOLA AMIGOS HAKA DONDE DICE
rs.Open qry, ElNombreDeTuConexion, 3, 3

EL NOMBRE DE LA CONEXION CUAL VENDRIA HASER
NO SE SI SEA EL NOMBRE DE LA BASE DE DATOS O TODO ESTO

("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("librovisitas.mdb")&"")

AHY DISCULPEN MI TORPESA SOY NUEVO EN ESTO SOOLO NESESITO UNAS COSITAS DE ASP Y YA.

[mariano_donati]

Eso que ponés es la cadena de conexion, es lo que necesita el objeto conexión para conectarse con la fuente de datos. Cuando se refiere a ElNombreDeTuConexion, está hablando justamente de ese objeto conexión.
Saludos!.

[mrjhon]

No Entiendo De Ke Objeto Me Disen

Losiento Soy Novato

[mariano_donati]

El objeto conexion, cuando haces set conexion = Server.CreateObject("ADODB.Connection"), y luego conexion.Open("cadena de conexion"), tenés eso en tu código?.
En ese ejemplo, el objeto conexion sería "conexion" (justamente).
De forma general, así es como generalmente se muestran los registros:

[CODE]
set conn = Server.CreateObject("ADODB.Connection")
set RS = Server.CreateObject("ADODB.RecordSet")
conn.Open("cadena_de_conexion")
RS.Open("SELECT * FROM Alguna_tabla"), conn 'nombre de conexion
if not RS.EOF then
' mostras los registros con un bucle generalmente
else
' no se han encontrado registros
end if
RS.Close ' cerras el RS
conn.Close ' cerras la conexion
set RS = nothing 'limpias el RecordSet que creaste
set conn = nothing limpias la conexion que creaste

Espero que lo hayas entendido.
Saludos!.

[mrjhon]

HOLA DE NUEVO TENGO ESTE CODIGO Y NO ME MUESTRA NADA POR KE

<%
Set rs = Server.CreateObject("ADODB.Recordset")
qry = "SELECT nombre ,apellidos, empresa, mail, telefono, comentario FROM formulario"
rs.Open qry, Libro, 3, 3

if not rs.EOF then
while not rs.EOF
response.write rs(0) & " | " & rs(1) & " | " & rs(2) & " | " & rs(3) & " | " & rs(4) & " | " & rs(5) & "<br>"
rs.MoveNext
wend
else
response.write "No se encontraron registros"
end if
rs.Close
Set rs = Nothing
ObjConn.Close
Set ObjConn = Nothing
%>

[mrjhon]

Donati El Codigo Ke Me Distes Tampoko Me Muestra Nada , Claro Esta Yo Lo Modifike Y Nada

[AlZuwaga]

"No muestra nada" significa realmente que no muestra nada (ni siquiera un error, osea una página en blanco) o que no muestra lo que esperás que muestre?

Hacé una cosa, probá nuevamente la página, mirá su código fuente (desde el navegador que uses) y contanos que hay allí.

[mrjhon]

MIRA TENGO ESTE CODIGO Y NO ME MUESTRA LOS DATOS KE NESESITO KE SE VEAN ME PUEDEN DESIR KE TENGO MALO EN EL CODIGO ..

<%
set conn = Server.CreateObject("ADODB.Connection")
set RS = Server.CreateObject("ADODB.RecordSet")
conn.Open("Libro")
RS.Open("SELECT * FROM formulario"), conn
if not RS.EOF then
' mostras los registros con un bucle generalmente
else
' no se han encontrado registros
end if
RS.Close
conn.Close
set RS = nothing
set conn = nothing
%>