VB读取sql server的binary图象和long text文本

最新推荐文章于 2022-02-24 14:49:07 发布

ladofwind

最新推荐文章于 2022-02-24 14:49:07 发布

阅读量3.2k

点赞数

分类专栏：〖技术相关〗文章标签： sql server vb stream command string 数据库

本文链接：https://blog.csdn.net/ladofwind/article/details/552337

版权

〖技术相关〗专栏收录该内容

158 篇文章 0 订阅

订阅专栏

Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection

Private Sub Form_Load()
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=1234;Initial Catalog=kepu;Data Source=FOUNDER"
rs.Open "news", conn, 3, adLockOptimistic, adCmdTable
End Sub

Private Sub Command1_Click()

     Dim StmPic As ADODB.Stream
'     On Error GoTo err

        Set rs = conn.Execute("select imgsize,newsid,img from news")
        StrPath = "d:/image"
        Set StmPic = New ADODB.Stream


        Dim strFilename As String

        rs.MoveNext

    While Not rs.EOF

        If rs.Fields("imgsize") > 0 Then '有图
            strFilename = StrPath + "/kepu" + Str(rs.Fields("newsid")) + ".jpg"


            With StmPic
                .Type = adTypeBinary
                .Open
                .Write rs.Fields("img")       '写入数据库中的数据至Stream中
                .SaveToFile strFilename, adSaveCreateOverWrite '将Stream中数据写入临时文件中
                .Close
            End With

        Else

        End If
        rs.MoveNext


    Wend

        MsgBox "图片成功导出"

        rs.Close

        'Picture2.Picture = LoadPicture(StrPicTemp) '用Picture控件显示图像
    Exit Sub
err:
     MsgBox err.Description

End Sub

Private Sub Command2_Click()
Dim strContent As ADODB.Stream
'     On Error GoTo err

        Set rs = conn.Execute("select newsid,content from news")
        StrPath = "d:/html"
        Set strContent = New ADODB.Stream


        Dim strFilename As String

        rs.MoveNext

    While Not rs.EOF

            strFilename = StrPath + "/kepu" + Str(rs.Fields("newsid")) + ".htm"


            With strContent
                .Type = adTypeText
                .Open

                .WriteText rs!content   '写入数据库中的数据至Stream中
                .SaveToFile strFilename, adSaveCreateOverWrite '将Stream中数据写入临时文件中
                .Close

            End With

           rs.MoveNext


    Wend

        MsgBox "内容成功导出"

        rs.Close

        'Picture2.Picture = LoadPicture(StrPicTemp) '用Picture控件显示图像
    Exit Sub
err:
     MsgBox err.Description