VB 写的二进制文件读写数据库操作模块

最新推荐文章于 2021-09-07 09:25:48 发布

bytesoon

最新推荐文章于 2021-09-07 09:25:48 发布

阅读量2.5k

点赞数 1

分类专栏： Tec Articals 文章标签：数据库 vb function string sqlserver database

本文链接：https://blog.csdn.net/bytesoon/article/details/427729

版权

本文提供了一组VB编写的函数，用于将二进制文件以流的形式写入和从SQL Server数据库中读取。OpenDB函数创建并打开数据库连接，CloseDB关闭数据库连接，SaveImgToDB将文件写入数据库指定字段，而GetFileFromDB则从数据库中获取文件并保存到本地。

摘要由CSDN通过智能技术生成

'/-----------------------------------------------------------------------
'/ Desc:将文件以二进制流的形式写入数据库中
'/ Author:By Bytesoon
'/-----------------------------------------------------------------------

Public dbConn As ADODB.Connection
Public curImgPath As String

' 创建并打开数据库
Public Function OpenDB(dbServer As String, dbName As String) As Boolean
     Err.Clear
    OpenDB = False

    '创建数据库连接对象
    Set dbConn = New ADODB.Connection
    '设置为可以读写操作
    dbConn.Mode = adModeReadWrite
    '访问SQLserver
    dbConn.Provider = "sqloledb"

    On Error Resume Next
    '打开数据库连接
    dbConn.Open "Data Source=" & dbServer & ";Initial Catalog=" & dbName & ";Persist Security Info=false;User ID=sa"

    If Err.Number <> 0 Then
        MsgBox "Co