Buscar por:

Salvar imagem no access

Código

//Sempre depois de muito procurar e pouco achar

//Darei um exemplo detalhado de como salvar uma imagem direto no access

//Apesar de muito falarem mal do access, ele não é tão ruim como dizem, 

//pelo contrário, analisei muito bancos sem dúvida para o porte do access,

//nenhum outro é tão simples e rádido de utilizar.

//Para aplicações com até 2 GB de dados o access é sem dúvida o mais

//prático e funcional.

//Bom sobre como salvar imagem no banco

//No access voce deve ter um campo da tabela como Objeto OLE

//Para rodar o exemplo, coloque em um formulário 2 Button, 

//2 Image e a conexão ADO com o access

//carregue qualquer imagem bmp no Image1

//para salvar a imagem

//no evento onClick do Button1 

procedure TForm1.Button1Click(Sender: TObject);

var

  Stream: TMemoryStream;

begin

  Stream := TMemoryStream.Create; 

  try

    Image1.Picture.Bitmap.SaveToStream(Stream);

    ADOQuery1.SQL.Text := 'SELECT * FROM Tabela do banco ACCESS WHERE Campo da tabela';

    ADOQuery1.Open;

    ADOQuery1.Edit;

    TBlobField(ADOQuery1.FieldByName('Nome do campo')).LoadFromStream(Stream);

    ADOQuery1.Post;

  finally

    Stream.Free;

  end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  Stream: TMemoryStream;

begin

  ADOQuery1.SQL.Text := 'SELECT * FROM Tabela do ACCESS WHERE Campo da tabela';

  ADOQuery1.Open;

  Stream := TMemoryStream.Create;

  try

    TBlobField(ADOQuery1.FieldByName('Nome do Campo')).SaveToStream(Stream);

    Stream.Position := 0;

    Image2.Picture.Bitmap.LoadFromStream(Stream);

  finally

    Stream.Free;

  end;

end;

//Qualquer dúvida entrem em contato no meu e.mail

//Que Deus os abençoe