procedure TForm1.btn3Click(Sender: TObject);
var
  oExcel, ws : OleVariant;
  clipboard : TClipboard;
  jpg  : TJPEGImage;
  adoQry : TADOQuery;
  memStream : TMemoryStream;
begin
  try
    adoQry := TADOQuery.Create(nil);
    adoQry.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Test;Data Source=BLANK';
    adoQry.SQL.Clear;
    adoQry.SQL.Add('select image from induk;'); //image adalah column di database (type Image).
    adoQry.Open;
    clipboard := TClipboard.Create;
    jpg := TJPEGImage.Create;
    memStream := TMemoryStream.Create;
    TBlobField(adoQry.FieldByName('image')).savetoStream(memStream);
    memStream.Seek(0, soFromBeginning);
    memStream.Position := 0;
    jpg.LoadFromStream(memStream);
    clipboard.Assign(jpg);
    oExcel := CreateOleObject('excel.application');
    oExcel.visible := True;
    oExcel.Workbooks.add;
    ws := oExcel.Worksheets.item['Sheet1'];
    ws.activate;
    ws.cells.item[1,3].value := 'Halo...excel nih';
    ws.paste;
  finally
    clipboard.Free;
    jpg.Free;
    adoQry.Close;
    adoQry.Free;
    memStream.Free;
  end;
end;

ws.cells.item[2,6].select;

@halimanh: di baris 34 ditambahin

ws.cells.item[2,6].select;

biar gambarnya nggak nutupin kata 'Halo...excel nih'

@mrzie05: [quote:4db7719ad7="halimanh"]di baris 34 ditambahin

ws.cells.item[2,6].select;

biar gambarnya nggak nutupin kata 'Halo...excel nih'[/quote:4db7719ad7] Mas @halimanh, Makasih Atass Repleynya... Saya coba dulu ya Mass.... :D :idea:

@mrzie05: Mas @halimanh, ada error nih.... [Error] Unit2.pas(30): Undeclared identifier: 'TClipboard' Mohon Masukkannya....

@halimanh: Pake debugger dong. Dipasang breakpoint aja (F5), jalankan program (F9), terus F8 sampe program error, kan ketauan errornya di baris berapa.

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls,jpeg,clipbrd,Comobj;
type
  TForm1 = class(TForm)
    Button1: TButton;
    adoQry: TADOQuery;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
oExcel, ws : OleVariant;
clipboard : Tclipboard;
bmp : TBitmap;
jpg : TJPEGImage;
adoQry : TADOQuery;
memStream : TMemoryStream;
begin
try
adoQry := TADOQuery.Create(nil);
adoQry.ConnectionString := 'Provider=SQLOLEDB.1;Password=dilarangmasuk;Persist Security Info=True;User ID=sa;Initial Catalog=DB_KAR;Data Source=10.23.0.59';
adoQry.SQL.Clear;
adoQry.SQL.Add('select NIK,Foto from Foto where (NIK='+Label1.Caption+') or (NIK='+Label2.Caption+')' ); //image adalah column di database (type Image).
adoQry.Open;
clipboard := TClipboard.Create;
bmp := TBitmap.Create;
//jpg := TJPEGImage.Create;
memStream := TMemoryStream.Create;
TBlobField(adoQry.FieldByName('Foto')).savetoStream(memStream);
memStream.Seek(0, soFromBeginning);
memStream.Position := 0;
//jpg.LoadFromStream(memStream);
bmp.LoadFromStream(memStream);
//clipboard.Assign(jpg);
clipboard.Assign(bmp);
oExcel := CreateOleObject('excel.application');
oExcel.visible := True;
oExcel.Workbooks.add;
ws := oExcel.Worksheets.item['Sheet1'];
ws.activate;
ws.cells.item[1,3].value := 'Halo...excel nih';
ws.cells.item[2,6].select;
ws.paste;
finally
clipboard.Free;
bmp.Free;
//jpg.Free;
adoQry.Close;
adoQry.Free;
memStream.Free;
end;
end;
end.