imagedao.cls

即时通讯

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ImageDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'**************************************
'*    功 能 描 述 :新增一个图片记录
'*    输 入 参 数 :无
'*    输 出 能 数 :  " "            -  没有新增成功
'*                   "..."          -  新增的图片的ID
'**************************************
Public Function NewImage(imageName As String, _
                         imageData() As Byte) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    NewImage = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "imageList_new"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = imageName             ' 参数
    cmdProc.Parameters(2) = imageData          ' 参数
    cmdProc.Parameters(3) = "123"              ' 参数

    
    ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    NewImage = cmdProc.Parameters(3)

    Exit Function
    
Cwcl:
    NewImage = ""
End Function
'**************************************
'*    功 能 描 述 :根据图片的ID找到图片记录
'*    输 入 参 数 :imageId     - 图片ID
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindImageById(recSet As ADODB.Recordset, _
                                 imageId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindImageById = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "imageList_findById"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = imageId
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindImageById = True
        Else
            FindImageById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindImageById = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改一个图片记录
'*    输 入 参 数 :无
'*    输 出 能 数 :  true            -  成功
'*                   false           -  失败
'**************************************
Public Function ModifyImage(imageName As String, _
                         imageData() As Byte, _
                         imageId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    ModifyImage = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "imageList_modify"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = imageName             ' 参数
    cmdProc.Parameters(2) = imageData          ' 参数
    cmdProc.Parameters(3) = imageId             ' 参数

    
    ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    ModifyImage = True

    Exit Function
    
Cwcl:
    ModifyImage = False
End Function