
29/08/2002, 09:38
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Marti 206 Depto 2 Col. Escandon
Mensajes: 23
Antigüedad: 23 años, 3 meses Puntos: 0 | |
Re: Guardar Imagen en una Base de Datos es es el Codigo que tengo
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath"FileDB.mdb")
' Recordset object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Files", connStr, 2, 2
' Adding data
rs.AddNew
rs("File Name") = fileName
rs("File Size") = fileSize rs("File Data").AppendChunk fileData
rs("Content Type") = contentType
rs("First Name") = fnameInput
rs("Last Name") = lnameInput
rs("Profession") = profession
rs.Update
rs.Close
Set rs = Nothing
donde me manda el error es en la linia que esta con negritas |