![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Guardar imagen en base de datos Access
Hola chicos/as por aquí ando de nuevo. Llevo peinando el blog y el google durante todo el día de ayer y hoy porque intento guardar en una base de datos access imágenes. Pero quiero hacerlo como un filestream, no como una imagen bmp en sí ya que esto último guarda la imagen en bmp más otra estructura con lo que el tamaño de la base de datos aumenta muchísimo. Aparte de que las imágenes no serán en bmp.
Uso Delphi 5 He probado varias formas que no han dado resultado: Código:
query:=TADOQuery.create(Self); query.connection:=AC1; query.SQL.text:='Select Fotografia1 from visitas'; //Fotografia1 es de tipo Objeto OLE query.active:=true; query.Edit; query.LoadFromFile(OpenDialog.FileName); query.Post; Código:
Image1 := TImage.Create(Self); Image1.Picture.LoadFromFile(PATH_IMG+'\logoInforme.bmp'); comm:=TADOCommand.Create(Self); comm.connection:=AC1; comm.CommandText:= 'UPDATE visitas SET Fotografia1=:fichero WHERE NVisita='+IntToStr(numVisita); comm.Parameters.ParamByName('fichero').value:= Variant(Image1); comm.Execute; Lo mismo cambiando el TImage por Código:
fStream:=TFileStream.Create(OpenDialog.FileName,fmOpenRead); tbf:=TBlobField.Create(Self); tbf.LoadFromStream(fStream); ![]() |
#2
|
||||
|
||||
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. ![]() |
#3
|
|||
|
|||
Hola, gracias por ese apunte
![]() Código:
query:=TADOQuery.create(Self); query.connection:=AC1; query.SQL.text:='Select * from visitas WHERE NVisita='+IntToStr(numVisita); query.active:=true; query.edit; TBlobField( query.FieldByName('Fotografia1') ).LoadFromStream( fStream ); query.Post; fStream.Free; query.free; |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Imagen JPG en una base de datos Access | edus1984 | Conexión con bases de datos | 7 | 08-05-2007 01:52:10 |
Guardar Datos de una bd access a una firebird | day_eli | Conexión con bases de datos | 1 | 08-02-2007 23:47:04 |
Guardar en 1 base de datos SQL, datos procedentes de 2 tablas distintas | adaypr | C++ Builder | 1 | 05-09-2006 11:56:33 |
Guardar una archivo de imagen (bmp,jpg..etc), en la base de datos | cahosoft | Firebird e Interbase | 4 | 31-07-2004 16:53:56 |
Guardar imagen jpg en access¡¡ | perrogrun | Conexión con bases de datos | 0 | 03-03-2004 12:44:04 |
![]() |
|