数据库中图片的保存问题

Question

各位大哥！
 我想把临时表(table1)中的图片存放到期（table2）中去！
 这样才能实现！
 请各位帮忙急用！
 谢谢见者有分！

Answer 1

(table.fieldbyname('pic') as BlobField).assign(table2.fieldbyname('pic'))

Answer 2

提供一些代码！
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, ExtDlgs, ExtCtrls;type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    DataSource1: TDataSource;
    Table1: TTable;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit4: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Image1: TImage;
    Button2: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
    table1.Active:= true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
    if OpenPictureDialog1.execute then
        image1.picture.loadfromfile(OpenPictureDialog1.filename);
end;procedure TForm1.Button1Click(Sender: TObject);
var
    bmp: TBitmap;
begin
    bmp:=TBitmap.Create;
    bmp.Assign(Image1.Picture.Bitmap);
    table1.Append;
    table1.fieldbyname('name').asstring:=edit1.text;
    table1.fieldbyname('telephone').asstring:=edit2.text;
    table1.fieldbyname('address').asstring:=(edit3.text);
    table1.fieldbyname('zip').asstring:=(edit4.text);
    table1.fields[4].assign(bmp);
    table1.post;
    bmp.free;
end;end.
有问题请发信息到我的E-mail:[email protected]
来信请把问题的网址粘贴上。