***********************************************
If mAdoConn.State = adStateClosed Then Exit Sub
Call OpenRecordset(ImageId)
If mAdoRst.State = adStateClosed Then Exit Sub
On Error GoTo Error_handler
For i = 0 To mlngNumberOfFiles - 1
'检测图片文件是否已经存在。
If mlngImageId(i) = ImageId Then Exit Sub
Next i
mlngNumberOfFiles = mlngNumberOfFiles + 1
ReDim Preserve mstrFileName(mlngNumberOfFiles) '改变数组大小。
ReDim Preserve mlngImageId(mlngNumberOfFiles) '改变数组大小。
mlngImageId(mlngNumberOfFiles - 1) = ImageId
strImageType = mAdoRst.Fields(mstrImageTypeColumnName) ' 取得图片类型。
mstrFileName(mlngNumberOfFiles - 1) = App.Path & "\images" & _
"\image" & LTrim(Str(ImageId)) & "." & strImageType页码：[1] [2] [3] [4] [5] [6] [7] [8] [9] 第6页、共9页 |
