sql = "insert into wordFiles(CheckId,wordName) values(1,myword.doc )";
try {
ADOQ->SQL->Clear();
ADOQ->SQL->Add(sql);
ADOQ->ExecSQL();
ADOQ->Close();
} catch (...) { }
sql="update wordFiles set wordFile=:wordFile where CheckId="+tmp;
ADOQWord->SQL->Clear();
ADOQWord->SQL->Add(sql);
TMemoryStream *tmpStream=new TMemoryStream();
tmpStream->LoadFromFile(OpenDialogWord->FileName);
if (!tmpStream) {
FormPro->Close();
ShowMessage("打开文件出错，请重新确认！");
return;
}
ADOQWord->Parameters->ParamByName("wordFile")->LoadFromStream(tmpStream,ftBlob);
try{
ADOQWord->ExecSQL();
}catch(Exception &E){
ShowMessage("服务器连接失败，数据提交不成功，请确认网络环境");
return;
};
