كنت بحاجة لحفظ و لاسترداد الصورة على SQL Server  من خلال  VB6، لكنى لم أجد أي مقال عن ذلك فى المنتديات العربية  ....لكنى بعد البحث وجدت الطريقة التالية فى أحد المواقع الاجنبية و هى على النحو التالى :

_ فى البداية يجب أدراج المكتبة Microsoft ActiveX Data Objects Library الى المشروع 

_بعد ذلك نقوم بكتابة التعليمات البرمجية للاتصال بقاعدة SQL Server وهى موجودة على الرابط التالى :




_ نقوم بإنشاء طريقة لحفظ الصورة و ليكن بإسم SaveImage على النحو التالى :

 

الكود:

Private Function SaveImage()
  Dim mStream As New ADODB.Stream

  With mStream
    .Type = adTypeBinary
    .Open
    .LoadFromFile "<IMAGE FILE NAME>"
    rst("<IMAGE FIELD NAME>").
Value = .Read
    rst.Update
  End With
  Set mStream = Nothing
End Function

حيث أن rst :هو كائن السجلات 

_ نقوم بإنشاء طريقة أخرى لاسترجاع الصورة و ليكن بإسم LoadImage على النحو التالى :

الكود:

Private Function LoadImage()
  Dim mStream As New ADODB.Stream

  With mStream
    .Type = adTypeBinary
    .Open
    .Write rst("<IMAGE FIELD NAME>")
    .SaveToFile "<DESTINATION FILE
NAME>", adSaveCreateOverWrite
  End With

  Set mStream = Nothing

End Function

_ كما يمكنك الاستغناء عن طريقة استرجاع الصورة السابقة LoadImage ....وذلك لكونك تستطيع تخزين الصورة فى عنصر تحكم صورة  picture control ...فقط قم باضافة مربع صورة مثلا و استخدم الكود على النحو التالى :

الكود:


Set PictureTemp.DataSource = rst

PictureTemp.DataField = "Immagine"

 حيث أن :
_ PictureTemp أسم مربع الصورة البرمجى 
_Immagine حقل قاعدة البيانات المخزن فية الصورة 
_rst كائن السجلات 

_ كما يمكنك إنشاء طريقة لوضع و تخزين الصور فى خلايا شبكة البيانات FlexGridد ....على النحو التالى :

الكود:

Private Function LoadImage()
  Dim mStream As New ADODB.Stream

  With mStream
    .Type = adTypeBinary
    .Open
    PictureTemp.DataField = "Immagine"         

    Set PictureTemp.DataSource = rst         

    Set MSFGRID.CellPicture = PictureTemp.Picture   

  End With

  Set mStream = Nothing

End
Function