Ver Mensaje Individual
  #7 (permalink)  
Antiguo 24/06/2002, 06:20
Avatar de epa2
epa2
 
Fecha de Ingreso: abril-2002
Ubicación: Málaga
Mensajes: 1.475
Antigüedad: 23 años
Puntos: 9
Re: introducir la foto en la base de datos

oye galindo no me funciona con lo que tu me has dado(quizás es por que no he configurao bien la base de datos con el script que me has mandado.

SOCORROOOOOOOOOOOOOOOOOOOOO
AYUDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
NECESITO QUE ALGUIEN HELP ME. PLEASE.

De momento lo que he hecho es lo siguiente.
en access he creado una BD con los campos foto(objeto OLE) y foto2(hipervinculo).

Luego he hecho con frontpage un form con un unload que al pulsar en submit lo envía a la base de datos.

y por último he creado una página donde se muestra los resultados de introducir los datos en el upload. pero NO ME SALEEEEEE.

AYUUUDAAAAAAAAAAAAAAA.

QUE ALGUIEN ME AYUDE CON UN EJEMPLO PRÁCTICO.SOCORROOOOOOOOO..


A CONTINUACION TE ENVIO LOS CODIGOS DE LAS PÁGINAS QUE HE HECHO.

EN LA PÁGINA DEL FORMULARIO.
<%
' FP_ASP ASP generado automáticamente por un componente de Frontpage. No lo modifique.

On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Session.LCID = 3082
Err.Clear

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD" ) = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "No se puede crear una conexión"

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "No se puede crear un conjunto de registros"

fp_conn.Open Application("alumnos_ConnectionString")
FP_DumpError strErrorUrl, "No se puede abrir la base de datos"

fp_rs.Open "alumnos", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "No se puede abrir el conjunto de registros"

fp_rs.AddNew
FP_DumpError strErrorUrl, "No se puede agregar un nuevo conjunto de registros a la base de datos"
Dim arFormFields0(1)
Dim arFormDBFields0(1)
Dim arFormValues0(1)

arFormFields0(0) = "F1"
arFormDBFields0(0) = "F1"
arFormValues0(0) = Request("F1")

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0


fp_rs.Update
FP_DumpError strErrorUrl, "No se puede actualizar la base de datos"

fp_rs.Close
fp_conn.Close

FP_FormConfirmation "text/html; charset=windows-1252",_
"Confirmación de formulario",_
"Gracias por enviar la información siguiente:",_
"index.asp",_
"Volver al formulario."

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>