我保存图片到数据库2000的代码为什么会失效。图片根本没有保存到数据库，都是NULL值。

[zxy_net]

代码片段
sqlStr+=":Pic,"
-------------------
TMemoryStream *MS = new(TMemoryStream);
AdvPicture1->Picture->SaveToStream(MS);
MS->Seek(0, soFromBeginning);
ADOLook->Parameters->ParseSQL(sqlStr, true);
ADOLook->Parameters->ParamByName("Pic")->LoadFromStream(MS,ftBlob);
ADOLook->Close();

ADOLook->SQL->Clear();
ADOLook->SQL->Add(sqlStr);
ADOLook->ExecSQL();
========================
连BMP都保存不了，：PIC是传递参数。大家给点建议

[COKING]

TMemoryStream *MS = new(TMemoryStream);
AdvPicture1->Picture->SaveToStream(MS);
MS->Seek(0, soFromBeginning);

ADOLook->Close();
ADOLook->SQL->Clear();
ADOLook->SQL->Add(sqlStr);
ADOLook->Parameters->ParamByName("Pic")->LoadFromStream(MS,ftBlob);
ADOLook->ExecSQL();