国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

用VB6讀寫數(shù)據(jù)庫中的圖片

2019-11-18 17:48:59
字體：大 中 小
供稿：網(wǎng)友
1，以人名和相關(guān)圖片為例說明，數(shù)據(jù)庫為access，有如下字段：Namechar,pictureOLEobject,FileLength
Number。當為mssql時，將picture改為lob即可。
2，示例包含control：commomdialog,picture,listbox。
源碼如下：
OptionExplicit

Ifrs.EOFThenExitSub

注釋：Getatemporaryfilename.
file_name=TemporaryFileName()

注釋：Openthefile.
file_num=FreeFile
Openfile_nameForBinaryAs#file_num

注釋：Copythedataintothefile.
file_length=rs!FileLength
num_blocks=file_length/BLOCK_SIZE
left_over=file_lengthModBLOCK_SIZE

Forblock_num=1Tonum_blocks
bytes()=rs!Picture.GetChunk(BLOCK_SIZE)
Put#file_num,,bytes()
Nextblock_num

Ifleft_over>0Then
bytes()=rs!Picture.GetChunk(left_over)
Put#file_num,,bytes()
EndIf

Close#file_num

注釋：Displaythepicturefile.
picPerson.Picture=LoadPicture(file_name)
picPerson.Visible=True

Width=picPerson.Left picPerson.Width Width-ScaleWidth
hgt=picPerson.Top picPerson.Height Height-ScaleHeight
Ifhgt<1440Thenhgt=1440
Height=hgt

Killfile_name
Screen.MousePointer=vbDefault
EndSub

PrivateSubmnuRecordAdd_Click()
DimrsAsADODB.Recordset
Dimperson_nameAsString
Dimfile_numAsString
Dimfile_lengthAsString
Dimbytes()AsByte
Dimnum_blocksAsLong
Dimleft_overAsLong
Dimblock_numAsLong

person_name=InputBox("Name")
IfLen(person_name)=0ThenExitSub

dlgPicture.Flags=_
cdlOFNFileMustExistOr_
cdlOFNHideReadOnlyOr_
cdlOFNExplorer
dlgPicture.CancelError=True
dlgPicture.Filter="GraphicsFiles|*.bmp;*.ico;*.jpg;*.gif"

OnErrorResumeNext
dlgPicture.ShowOpen
IfErr.Number=cdlCancelThen
ExitSub
ElseIfErr.Number<>0Then
MsgBox"Error"&Format$(Err.Number)&_
"selectingfile."&vbCrLf&Err.Descr
rs.AddNew
rs!Name=person_name
rs!FileLength=file_length

ReDimbytes(BLOCK_SIZE)
Forblock_num=1Tonum_blocks
Get#file_num,,bytes()
rs!Picture.AppendChunkbytes()
Nextblock_num

Ifleft_over>0Then
ReDimbytes(left_over)
Get#file_num,,bytes()
rs!Picture.AppendChunkbytes()
EndIf

rs.Update
Close#file_num

lstPeople.AddItemperson_name
lstPeople.Text=person_name
EndIf
EndSub->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 库车县| 咸阳市| 栾川县| 英吉沙县| 屏南县| 孙吴县| 龙山县| 昆山市| 苏尼特左旗| 淄博市| 巩留县| 托里县| 响水县| 灵石县| 松江区| 乐安县| 新河县| 淳安县| 乌拉特前旗| 林甸县| 扎囊县| 健康| 灌南县| 唐海县| 临武县| 保德县| 高州市| 德化县| 沙雅县| 东乡族自治县| 高邑县| 临沧市| 榆树市| 宜川县| 和平区| 泸定县| 玉林市| 晴隆县| 泰和县| 社会| 莲花县|