السلام عليكم ، سؤالي يتعلق بكيفية استعمال Stream وما فائدته ، وقد وجدت الكود التالي في موضوع "إدراج صورة في قاعدة البيانات" في هذا المنتدى
Private Sub Command2_Click() Adodc1.Recordset.AddNew CommonDialog1.ShowOpen Picture1.Picture = LoadPicture(CommonDialog1.FileName) Dim st As New Stream st.Type = adTypeBinary st.Open st.LoadFromFile CommonDialog1.FileName Adodc1.Recordset(2) = st.Read End Sub
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
::: حلقات برنامج العــلم والإيــمان بروابط سريعة ومباشرة من مدونة الأخ أنواريكا
وللعلم بعض الملفات تظهر بدون صوت أو بدون صورة وحلها بتحميل هذا البرنامج
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
له استخدامات كثيرة منها كما في المثال لقراءة الملفات وتخزينها في recordset
وبشكل عام يمكن التعامل معه لقراءة وكتابة الملفات سواءا نصية او غير نصية ويمكن التحديد كمايلي
st.Type = adTypeBinary او st.Type = adTypeText
لقراءة ملف st.LoadFromFile "c:\xx.txt"
لكتابة ملف st.SaveToFile "c:\x2.txt"
يمكن استخدامه لقراءة صورة من recordset
st.write rs("image")
وبعد ذلك تخزينها او عمل ما تشاء بها
شكرا علي المعلومات اخي طارق
أخوي طارق ، جزاك الله خير
وتابع السؤال في الأسفل
تم تعديل هذه المشاركة بواسطة mohdabdu في 4 أغسطس 2007 في 16:36
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
::: حلقات برنامج العــلم والإيــمان بروابط سريعة ومباشرة من مدونة الأخ أنواريكا
وللعلم بعض الملفات تظهر بدون صوت أو بدون صورة وحلها بتحميل هذا البرنامج
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
لدي نافذة بها مربعان صورة ، المربع الأول مربوط مع أداة Adodc بواسطة الخصائص DataSource و DataField
والمربع الثاني غير مربوط بأداة البيانات ، وأريد بواسطة استعمال طريقة Stream أو أي طريقة أخرى(غير طريقة DataSource) أن أخذ الصورة من قاعدة البيانات وأضعها في مربع الصورة الثاني ، يوجد النموذج وقاعدة البيانات في المرفقات
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
::: حلقات برنامج العــلم والإيــمان بروابط سريعة ومباشرة من مدونة الأخ أنواريكا
وللعلم بعض الملفات تظهر بدون صوت أو بدون صورة وحلها بتحميل هذا البرنامج
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
لقراءة ملف من قاعدة البيانات ثم عرضها في الفورم من خلال stream يجب اولا تخزينها في ملف خارجي ثم عرضها في مربع الصورة
Set st = New Stream
st.Type = adTypeBinary
st.Open
st.Write Adodc1.Recordset("user_img")
st.SaveToFile "c:\xx.jpg", adSaveCreateOverWrite
Image2.Picture = LoadPicture("c:\xx.jpg")أخوي TareqVB ، تعبناك معنا وجزاك الله خير
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
::: حلقات برنامج العــلم والإيــمان بروابط سريعة ومباشرة من مدونة الأخ أنواريكا
وللعلم بعض الملفات تظهر بدون صوت أو بدون صورة وحلها بتحميل هذا البرنامج
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
هذا الموضوع مغلق.