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

关注

VIP免费原创最新推荐文章于 2026-08-10 14:32:12 发布 2.6k 阅读 AI 写同款· GEO 优化 ›

VB二进制文件读写数组存取存数组 Private Sub Command2_Click() Dim fileNumber As Integer Dim S9 As String Dim k As Integer Dim l As Integer On Error Resume Next fileNumber = FreeFile() S9 = "D:\zs.txt" 阅读详情

'/-----------------------------------------------------------------------
'/ 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