BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Label Label4
Caption = "Label4"
DataField = "ID"
DataSource = "Adodc1"
Height = 255
Left = 7200
TabIndex = 7
Top = 120
Width = 2655
End
Begin VB.Label Label3
Caption = "ID:"
Height = 255
Left = 6600
TabIndex = 6
Top = 120
Width = 495
End
Begin VB.Label Label2
Caption = "Desc:"
Height = 255
Left = 6600
TabIndex = 5
Top = 1080
Width = 495
End
Begin VB.Label Label1
Caption = "Name:"
Height = 255
Left = 6600
TabIndex = 1
Top = 600
Width = 495
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim WithEvents rs As Recordset
Attribute rs.VB_VarHelpID = -1
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Sub btnStore_Click()
WriteBlob
End Sub
Private Sub Form_Load()
Set rs = Adodc1.Recordset
rs.MoveFirst
pd1.ActiveWindow.FitTo polFitToPage
End Sub
Private Sub rs_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
(.txt)