xelUpload + GuardarBD

[rrufo]

buenos dias a todos, menos a quien el jueves se fue de fiesta: --> Zzz:

estoy estudiando el xelUpload y tengo q felicitar a Carlos de la Orden Dijs,
de asp facil quien aparece como creador.

la duda la tengo en la carga del fichero bin a la BD.

viendo el ejomplo, llega un momento de cargar el fichero en la BD:

veo la funcion:

Código:

Public Sub GuardarBD (byRef field)
if LenB(Datos) = 0 then Exit Sub

field.AppendChunk Datos
End Sub

y como se llama asi en el ejemplo:

Código:

'una vez abierta la BD.
		'Añadimos un nuevo registro
		rs.AddNew
		rs.Fields("Nombre") = strNombre
		rs.Fields("Edad") = strEdad
		rs.Fields("NombreFichero") = objFich.Nombre

		'Llamamos a GuardarBD pasandole el campo correspondiente!!!
		objFich.GuardarBD rs.Fields("Imagen")

		'Guardamos el nuevo registro
		rs.Update

el problema es q no entiendo como funciona GuardarBD y como puedo adaptarlo a mi forma de guardar en BD tipo DW.

donde creo un insert: MM_editQuery = "insert into . . . value MM_fields(1)
con los valores del form:

MM_fields(1) = CStr(objUpload.Form("imagen"))

y creo q tendria q ser algo del tipo:

MM_fields(1) = objFich.GuardarBD rs.Fields("Imagen")
en definitiva como pongo el binario en MM_fields(1)???

[rrufo]

GuardarBD (objField)

Guarda los datos binarios en el objeto Field de ADO
pasado como argumento. El objeto Field debe pertenecer
a un objeto Recordset abierto, y creado con LockType
apropiado, que permita modificarlo. Además debe
corresponder a un campo en una tabla de la base de
datos que permite guardar datos binarios grandes.

[El_Metallick]

hace unos dias alguien pregunto y le di un ejemplo de como yo lo hacia... aqui te dejo el link

http://www.forosdelweb.com/f15/problema-con-xelupload-conectar-db-376115/

saludos

[rrufo]

ya lo vi en su dia.

pero tenia esta duda:

'Creación de la sentencia SQL correspondiente
producto_sql="Insert Into tabla.....

como hago el insert, mas concretamente como se pasa el binario a una variable.

si lo haces no lo veo.

[rrufo]

me deje de complicaciones y lo hice asi:

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = MM_MyEmpresas_STRING
Rs.Source = "SELECT * FROM empresa.pixel"
Rs.CursorType = 0
Rs.CursorLocation = 2
Rs.LockType = 3
Rs.Open()


'Añadimos un nuevo registro
rs.AddNew
rs.Fields("Nombre") = strNombre
rs.Fields("Fichero") = objFich.Nombre

'Llamamos a GuardarBD pasandole el campo correspondiente!!!
objFich.GuardarBD rs.Fields("Imagen")


otra cosa sera mostrar la imagen.

[veahdark]

Saludos !!

Soy nuevo en el Diseño y programacion de paginas Web, y necesito saber como puedo construir una web,- por ejemplo: tienda virtual- que el cliente pueda modificar sus fotografias y datos personalizados (precios y otras informaciones) sin la necesidad de que tenga que recurrir al WebMaster que le diseño su Site.

Gracias de antemano por su gran ayuda.