如何在vb中将图像保存在access中

千问 · 2011-9-16 01:19:44

1.首先从数据库中读取二进制数据并且保存到一个数组里。2.把二进制数据写到磁盘上，因此生成一个图片。3.利用这个图片的地址来现实图片。详细代码是一下（请应用microsoftactiveXdataobjects2.7对象）DimiStmAsADODB.StreamDimiReAsADODB.Recordset\'打开表SetiRe=NewADODB.Recordset‘得到最新添加的纪录iRe.Open\"selecttop1*fromimgorderbyiddesc\",iConc,adOpenKeyset,adLockReadOnly\'保存到文件SetiStm=NewADODB.StreamWithiStm.Mode=adModeReadWrite.Type=adTypeBinary.Open.WriteiRe(\"photo\")‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误..SaveToFileApp.Pathdefds123\"\\test1.jpg\"EndWithImage1.Picture=LoadPicture(App.Pathdefds123\"\\test1.jpg\")\'关闭对象iRe.CloseiStm.Close

千问 · 2011-9-16 01:19:44

FunctionUpLoadReportModelFile(rs1AsADODB.Recordset,FileName,ID)AsBooleanOnErrorResumeNextDimarrBytes()AsByte,FreeFileNumberAsIntegerFreeFileNumber=FreeFileOpenFileNameForBinaryAs#FreeFileNumbern=LOF(FreeFileNumber)ReDimarrBytes(1Ton)AsByteGet#FreeFileNumber,,arrBytesClose#FreeFileNumberrs1.LockType=2rs1.Open\"select*from表whereID=\"defds123IDrs1.Fields(\"图片字段\").AppendChunk(arrBytes)rs1.Updaters1.CloseUpLoadReportModelFile=Err=0Err.ClearEndFunction