كيفية حفظ و أسترجاع الصور فى قاعدة SQL Server من خلال الفجوال بيسك 6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيفية حفظ و أسترجاع الصور فى قاعدة SQL Server من خلال الفجوال بيسك 6

مُساهمة من طرف السنى في السبت أغسطس 10, 2013 11:49 am

بسم الله الرحمن الرحيم 

كنت بحاجة لحفظ و لاسترداد الصورة على 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
وفى النهاية تحياتى القلبية لكم 

السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيفية حفظ و أسترجاع الصور فى قاعدة SQL Server من خلال الفجوال بيسك 6

مُساهمة من طرف asasas في الثلاثاء فبراير 16, 2016 8:49 pm

مشكور على هذه المعلومة تسلم الايادي

asasas
.
.

تاريخ التسجيل : 23/01/2016
المساهمات : 7
النقاط : 7
التقيم : 0
الدولة : العراق
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى