关于数据库和图片的问题

Question

其余的地方和别的SQL语句是一样的
比如说
insert into table (xm,photos) values(:xm,:photos); 
query.parambyname('xm').asstring:=edit1.text;
query.parambyname('photos')..LoadFromFile(openpicturedialog1.filename,ftGraphic);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream:TFileStream;
  BlobStream:TadoBlobStream;
begin
 if opendialog1.Execute and fileexists(opendialog1.FileName) then
 begin
 FileStream:=TFileStream.Create(opendialog1.FileName,fmOpenRead);
 adotable1.Edit;
 BlobStream:=TadoBlobStream.Create(TMemoField(adotable1.FieldByName('img_attach')),bmreadWrite);
 BlobStream.Seek(0,soFromBeginning);
 BlobStream.Truncate;
 BlobStream.CopyFrom(FileStream,FileStream.size);
 filestream.Free;
 BlobStream.free;
 adotable1.Post;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  FileStream:TFileStream;
  BlobStream:TadoBlobStream;
begin
 if opendialog1.Execute and fileexists(opendialog1.FileName) then
 begin
 FileStream:=TFileStream.Create(opendialog1.FileName,fmOpenRead);
 adotable1.Edit;
 BlobStream:=TadoBlobStream.Create(TMemoField(adotable1.FieldByName('txt_option1')),bmreadWrite);
 BlobStream.Seek(0,soFromBeginning);
 BlobStream.Truncate;
 BlobStream.CopyFrom(FileStream,FileStream.size);
 filestream.Free;
 BlobStream.free;
 adotable1.Post;
end;
end;

Answer 2

好好看一看绝对正确我已经调试过了d6+mssql+win2k

Answer 3

各位我需要的是ACCESS2000+DELPHI的范例,分数我晚些时候一起给.