RE:Insertar imagen en sql 7.0 con asp
Publicado por
Pablo (1 intervención) el 05/04/2010 17:18:06
Buenos dias, estoy teniendo un problema con este codigo:
Private Sub Command1_Click()
'1.- SE ESTABLECE EL ARCHIVO DE LA IMAGEN A LA CONEXION ADOSTREAM
Dim SetImagen As New ADODB.Stream
SetImagen.Type = adTypeBinary
SetImagen.Open
SetImagen.LoadFromFile "C:\Factura.JPG"
'2.- SE ABRE UN RECORDSET, USTEDES PUEDEN ABRIRLO A SU MODO, YO UTILICE UNA CADENA DE CONEXION
Dim ObjetoRecordset As New ADODB.Recordset
ObjetoRecordset.ActiveConnection = "Provider=SQLOLEDB.1;Password=........"
SQL = "SELECT * FROM T_Fedr WHERE (Id_Factura = 1)"
ObjetoRecordset.Source = SQL
ObjetoRecordset.CursorType = adOpenStatic
ObjetoRecordset.CursorLocation = adUseServer
ObjetoRecordset.LockType = adLockOptimistic
ObjetoRecordset.Open
'3.- SE ASIGNA LA CONEXION ADOSTREAM A EL RECORDSET Y SE GUARDA
ObjetoRecordset.Source!Id_Factura = SetImagen.Read
ObjetoRecordset.Update
'NOTAS. SE PUEDEN INCLUIR OTROS CAMPOS DE LA BASE PARA ASI AL MISMO TIEMPO GUARDAR OTROS DATOS
'ESTE CODIGO MANEJA LA REFERENCIA AL ADO Microsoft ActiveX Data Objects 2.8 Library que viene con el MDAC 2.
en la linea :ObjetoRecordset.Source!Id_Factura = SetImagen.Read me da error(424 se requiere un objeto...) alguien me puede ayudar?????
Desde ya muchas gracias.