Consultar una tabla de access

07/11/2006 - 13:51 por Mel | Informe spam
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("noticias.mdb")
sqltext = "SELECT * FROM Noticias"
rst.Open sqltext,cnn,3,3

'Recogemos los datos y validamos que no haya ningun campo vacio
dim titulo, copete, noticia, fecha
fecha = Request.Form("fecha")
titulo = Request.Form("titulo")
copete = Request.Form("copete")
noticia = Request.Form("noticia")

if copete = "" or titulo ="" or noticia ="" or fecha="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

rst.AddNew
rst("fecha") = fecha
rst("titulo") = titulo
rst("copete") = copete
rst("noticia") = noticia
rst.update

'Terminamos e imprimimos un mensaje
Response.Write "La noticia se ha ingresado con exito"
%>
<html>

<head>
<title>Página nueva </title>
</head>

<body>
</body>
</html>
ese es el codigo, perdon por no mandarlo antes...
gracias por interesarse.
Mel
 

Leer las respuestas

#1 Matías Iacono
08/11/2006 - 00:24 | Informe spam
Cual es el problema?

Matías Iacono
Microsoft MVP
Orador Regional INETA
"Mel" escribió en el mensaje
news:
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("noticias.mdb")
sqltext = "SELECT * FROM Noticias"
rst.Open sqltext,cnn,3,3

'Recogemos los datos y validamos que no haya ningun campo vacio
dim titulo, copete, noticia, fecha
fecha = Request.Form("fecha")
titulo = Request.Form("titulo")
copete = Request.Form("copete")
noticia = Request.Form("noticia")

if copete = "" or titulo ="" or noticia ="" or fecha="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

rst.AddNew
rst("fecha") = fecha
rst("titulo") = titulo
rst("copete") = copete
rst("noticia") = noticia
rst.update

'Terminamos e imprimimos un mensaje
Response.Write "La noticia se ha ingresado con exito"
%>
<html>

<head>
<title>Página nueva </title>
</head>

<body>
</body>
</html>
ese es el codigo, perdon por no mandarlo antes...
gracias por interesarse.
Mel

Preguntas similares