محمد حسین شکور
سه شنبه 27 خرداد 1382, 14:16 عصر
اگر بخواخیم یک رکورد جدید به adodc اضافه کنیم راه حل آن اینست که ابتدا داده ها را وارد text box کنیم سپس با زدن دکمه OK داده ها را در grid مربوطه مثلا datagrid بریزیم. حال اگر یکی از این داده ها یک OLE باشد چگونه میتوان اینکار را انجام داد.
vbworm
شنبه 26 تیر 1389, 02:37 صبح
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.