求教高手, 怎样把*.mht文件保存到数据库(.MDB)中?

Question

如题, 怎样用代码把*.htm文件转换成*.mht文件，并且把*.mht文件保存到数据库(.MDB)中?（我想把多个网页文件保存到一个文件中）最好有代码....

Answer 1

用Stream方法保存文件至数据库中就可以了。

Answer 2

Dim mStrPicPath As String
        Dim mStmPic     As ADODB.Stream
        Dim mRsPic      As ADODB.Recordset
        
        '定义要保存的图片文件
        mStrPicPath = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "temp\temp.jpg"
        
        Set mStmPic = New ADODB.Stream
        With mStmPic
            .type = adTypeBinary
            .Open
            .LoadFromFile (mStrPicPath)
        End With        Set mRsPic = New ADODB.Recordset
        mRsPic.Open "select * from img where id='001'", gcnnData, 1, 3
        '是否有对应id的纪录,如果有的话就是修改状态,而不是新增数据
        If mRsPic.RecordCount = 0 Then
            mRsPic.AddNew
            mRsPic.Fields("id") = ReplaceStr$(strBG_NO)
        End If
        '如果仅仅是修改数据则不应该修改原有的id号了!!!
        mRsPic.Fields("photo") = mStmPic.Read
        mRsPic.Update

Answer 3

上面是保存jpg文件到数据库中的方法，其他文件也可以这样子做的。

Answer 4

谢谢两位!绿毛网虫)网友如果有代码可以发送至[email protected]信箱, 先谢啦!正在调试，明天结贴，呵呵...

Answer 5

下面是读取的代码～～～～～～
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－        '给相片框赋相片文件
        Dim mStrPicPath As String
        Dim mStmPic     As ADODB.Stream
        Dim mRsPic      As ADODB.Recordset
        
        '定义临时图片文件
        mStrPicPath = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "temp\temp.jpg"
        '清除该文件，目的是为了防止以前的该文件没有删除
        Kill mStrPicPath
        
        Set mRsPic = New ADODB.Recordset
        mRsPic.Open "select * from img where id='001'", gcnnData, 1, 3
        If mRsPic.RecordCount > 0 Then
            Set mStmPic = New ADODB.Stream
            With mStmPic
                .Mode = adModeReadWrite
                .type = adTypeBinary
                .Open
                .Write mRsPic("photo")
                .SaveToFile mStrPicPath
            End With
        End If
        
        imgPro.Picture = LoadPicture(mStrPicPath)－－－－－－－－－－－－－－－－－－－－－－
居然忘了CSDN不能连续恢复超过 3 次，郁闷～～～等有兄弟发言了，再发……… 等待ing……
下回一定要弄个马甲来穿～

Answer 6

兄弟,有个笨办法,用WEBROWSER控件,加载HTML后,保存,用STRAM形式保存到数据库,当然,可不要显示出界面啊.

Answer 7

我的软件:HTTP://www.smartmaildemo.com就是这样作的.

Answer 8

我是新手，还真不知道CSDN不能连续恢复超过 3 次，怪不得以前回我贴的人少呢，呵呵...

Answer 9

回xiaohuangtao(绿毛网虫)网友：（用WEBROWSER控件,加载HTML后,保存,用STRAM形式保存到数据库），如果html网页文件中含有图片什么的，保存、打开会不会有问题啊？能提供简单代码学习一下吗?
(你的软件很好，羡慕...)