وارد کردن یک ole در adodc

[محمد حسین شکور]

اگر بخواخیم یک رکورد جدید به adodc اضافه کنیم راه حل آن اینست که ابتدا داده ها را وارد text box کنیم سپس با زدن دکمه OK داده ها را در grid مربوطه مثلا datagrid بریزیم. حال اگر یکی از این داده ها یک OLE باشد چگونه میتوان اینکار را انجام داد.

[vbworm]

Public Sub setBLOB(RS As ADODB.Recordset, Field As String, Source As String)
Dim fileBytes() As Byte
Dim intFileHandle As Integer

intFileHandle = FreeFile

Open Source For Binary As intFileHandle
fileBytes = InputB(LOF(intFileHandle) - 1, intFileHandle)
RS(Field).AppendChunk fileBytes
Close intFileHandle
End Sub






Public Sub getBLOB(RS As ADODB.Recordset, Field As String, Des As String)
Dim lngFieldSize As Long
Dim fileBytes() As Byte
Dim intFileHandle As Integer

intFileHandle = FreeFile

lngFieldSize = RS(Field).ActualSize
If lngFieldSize > 0 Then
fileBytes = RS(Field).GetChunk(lngFieldSize)
Open Des For Binary As intFileHandle
Put intFileHandle, , fileBytes
Close intFileHandle
End If
End Sub