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

最新推荐文章于 2024-11-23 15:15:49 发布

原创

最新推荐文章于 2024-11-23 15:15:49 发布 · 2.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #vb #function #string #sqlserver #database

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

'/-----------------------------------------------------------------------
'/ 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 "Connect failed"
        Exit Function
    End If

    OpenDB = True

End Function

' 关闭数据

最低0.47元/天解锁文章