Аналог OLE для Adodc ?

[ВалГер]

Уважаемые Господа!
Хочу в таблице Access хранить фото. Для этой цели там есть
тип поля "Поле объекта OLE". Но если на форму в VB6 для показа
этого фото кинуть объект
OLE (он на панели компонет висит стандартно), то видится jy только
лишь из элемента Data, а элемент Adodc
его не понимает. Возможно для Adodc имеется какой-нибудь аналог,
который "зарыт" в какой-нибудь из многочисленных библиотек *.OCX ?
Если это так, то подскажите где этот аналог может скрываться, если
не так, то как быть, если всё-таки хочется воспользовать для общения
с базой данных Access путём использованием Adodc.

С уважением ВВГ

[GSerg]

А если юзать объект Image?

[ВалГер]

Пишет для Image, что "Unable to bind to field or DataMember: FOTO". Видимо, что-то нужно указать в свойстве DataMember этого элемента Image. Но что - не знаю!
ВВГ

[Konst_One]

для того, чтобы там хранитть фото его нужноь туда засунуть через ADO и так же вытащить, вот тогда все будет работать.
ищи пример с GetChunk

[ВалГер]

для того, чтобы там хранитть фото его нужноь туда засунуть через ADO и так же вытащить, вот тогда все будет работать.
ищи пример с GetChunk

А примерчик, как этот GetChunk использовать, что бы "туда засунуть" вы не могли бы привести?
С уважением ВВГ

[Konst_One]

так ведь поиск по форуму вроде бы работает

[Konst_One]

вот пример из MSDN

Код: Выделить всё

'BeginAppendChunkVB

    'To integrate this code
    'replace the data source and initial catalog values
    'in the connection string
   
Public Sub AppendChunkX()

    'recordset and connection variables
   Dim Cnxn As ADODB.Connection
   Dim strCnxn As String
   Dim rstPubInfo As ADODB.Recordset
   Dim strSQLPubInfo As String
    'record variables
   Dim strPubID As String
   Dim strPRInfo As String
   Dim lngOffset As Long
   Dim lngLogoSize As Long
   Dim varLogo As Variant
   Dim varChunk As Variant
   Dim strMsg As String
   
   Const conChunkSize = 100

   ' Open a connection
   Set Cnxn = New ADODB.Connection
   strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
   Cnxn.Open strCnxn
   
   ' Open the pub_info table with a cursor that allows updates
   Set rstPubInfo = New ADODB.Recordset
   strSQLPubInfo = "pub_info"
   rstPubInfo.Open strSQLPubInfo, Cnxn, adOpenKeyset, adLockOptimistic, adCmdTable
   
   ' Prompt for a logo to copy
   strMsg = "Available logos are : " & vbCr & vbCr
   Do While Not rstPubInfo.EOF
      strMsg = strMsg & rstPubInfo!pub_id & vbCr & _
         Left(rstPubInfo!pr_info, InStr(rstPubInfo!pr_info, ",") - 1) & _
         vbCr & vbCr
      rstPubInfo.MoveNext
   Loop
   
   strMsg = strMsg & "Enter the ID of a logo to copy:"
   strPubID = InputBox(strMsg)
   
   ' Copy the logo to a variable in chunks
   rstPubInfo.Filter = "pub_id = '" & strPubID & "'"
   lngLogoSize = rstPubInfo!logo.ActualSize
   Do While lngOffset < lngLogoSize
      varChunk = rstPubInfo!logo.GetChunk(conChunkSize)
      varLogo = varLogo & varChunk
      lngOffset = lngOffset + conChunkSize
   Loop
   
   ' Get data from the user
   strPubID = Trim(InputBox("Enter a new pub ID" & _
                            " [must be > 9899 & < 9999]:"))
   strPRInfo = Trim(InputBox("Enter descriptive text:"))

   ' Add the new publisher to the publishers table to avoid
   ' getting an error due to foreign key constraint
   Cnxn.Execute "INSERT publishers(pub_id, pub_name) VALUES('" & _
                  strPubID & "','Your Test Publisher')"
   
   ' Add a new record, copying the logo in chunks
   rstPubInfo.AddNew
   rstPubInfo!pub_id = strPubID
   rstPubInfo!pr_info = strPRInfo

   lngOffset = 0 ' Reset offset
   Do While lngOffset < lngLogoSize
      varChunk = LeftB(RightB(varLogo, lngLogoSize - lngOffset), _
         conChunkSize)
      rstPubInfo!logo.AppendChunk varChunk
      lngOffset = lngOffset + conChunkSize
   Loop
   rstPubInfo.Update
   
    ' Show the newly added data
   MsgBox "New record: " & rstPubInfo!pub_id & vbCr & _
      "Description: " & rstPubInfo!pr_info & vbCr & _
      "Logo size: " & rstPubInfo!logo.ActualSize

   ' Delete new records because this is a demo
   rstPubInfo.Requery
   Cnxn.Execute "DELETE FROM pub_info " & _
      "WHERE pub_id = '" & strPubID & "'"

   Cnxn.Execute "DELETE FROM publishers " & _
      "WHERE pub_id = '" & strPubID & "'"

    ' clean up
   rstPubInfo.Close
   Cnxn.Close
   Set rstPubInfo = Nothing
   Set Cnxn = Nothing

End Sub
'EndAppendChunkVB



[Konst_One]

и еще почитай вот этот топик Q175261 в MSDN

[ВалГер]

и еще почитай вот этот топик Q175261 в MSDN

Ой спасибо! И по поиску нашёл и ваш пример попробую
С уважением ВВГ

[ВалГер]

и еще почитай вот этот топик Q175261 в MSDN

Ой спасибо! И по поиску нашёл и ваш пример попробую
С уважением ВВГ

MSDN - а, к сожалению нет. Отсюда и проблемы
ВВГ

[A.A.Z.]

MSDN есть всегда