[shado1796]

Easy 4ever كتب :عفوا أخي نوع الحقل ليس Binary > من الفصله ههههههه
جرب Longblob

=========================

الكود التالي يقوم بتحويل الصوره إلى Binary ويضيفها

كود :

[align=left][SIZE=4]Dim AddPicture As New OleDb.OleDbCommand("insert into [b][color=#008000]T1 [/color][/b]([b][color=#008000]Pic[/color][/b]) values (?)", con)[/SIZE]
[SIZE=4]
Dim p() As Byte = My.Computer.FileSystem.ReadAllBytes([b][color=#800000]PathFile[/color][/b])[/SIZE]
[SIZE=4]
AddPicture.Parameters.AddWithValue("@[b][color=#008000]Pic[/color][/b]", OleDb.OleDbType.Binary).Value = p[/SIZE]
[SIZE=4]
[/SIZE]
[SIZE=4]con.Open()

[/SIZE]
[SIZE=4]AddPicture.ExecuteNonQuery()

[/SIZE]
[SIZE=4]con.Close()[/SIZE][/align]

* ملاحظة T1 هو اسم الجدول و Pic اسم الحقل و PathFile متغير فيه مسار الصورة

طيب اخي في الكود امر انه يسحب الصورة من الجهاز .. طيب انا ابغى الصورة من البرنامج يعني تكون في فورم البرنامج يحفظها من البرنامج

[Easy4ever]

shado1796 كتب :

طيب اخي في الكود امر انه يسحب الصورة من الجهاز .. طيب انا ابغى الصورة من البرنامج يعني تكون في فورم البرنامج يحفظها من البرنامج

لو أختار المستخدم الصورة عن طريق أداة OpenFileDialog1 بيكون محفوظ مكان الصورة في أداة OpenFileDialog1 في خاصية Filename
يعني تستبدل PathFile بـ OpenFileDialog1.FileName بيكود الكود بعد التعديل كذا

كود :

[align=left]Dim p() As Byte = My.Computer.FileSystem.ReadAllBytes(OpenFileDialog1.FileName)[/align]

اما لو تقصد الصورة مدمجة في البرنامج ، ما سبق لي استخدام هذي الطريقة لاكن حاول تضع بدل متغير PathFile بالأمر Me.BackgroundImage
هذا لو كانت الصورة خلفية Form أما لو كانت الصورة في أداة PictureBox استبدل المتغير PathFile بالأمر PictureBox1.Image

لاكن هذي الطريقة لا أضمنها لك ولاكن منطقية نوعا ما انا شاك انه سيحدث خطأ بسبب هذا ألامر My.Computer.FileSystem حسب معلوماتي انه هذا الأمر يقوم بعمليات خارج البرنامج لاكن ممكن تكون المعلومه الذي لدي خاطئه أو غير دقيقه جرب وإن شاء الله تضبط

[shado1796]

يعطيك العافية وجاري التحربة ..

[shado1796]

[COLOR="#FF0000"]اخي جربت صيغة الصورة ويظهر لي خطأ
ALTER TABLE Table2 ADD 1 Longblob[/COLOR]

[Easy4ever]

shado1796 كتب :اخي جربت صيغة الصورة ويظهر لي خطأ
ALTER TABLE Table2 ADD 1 Longblob

أكيد خطأ لانك كاتب اسم الحقل ( 1 ) ؟!
ما يسير تسمي حقل أوله رقم أكتب حرف قبل رقم 1

[shado1796]

Easy 4ever كتب :أكيد خطأ لانك كاتب اسم الحقل ( 1 ) ؟!
ما يسير تسمي حقل أوله رقم أكتب حرف قبل رقم 1

عجيب هذي معلومة جديده لي .. اشكرك :o

[shado1796]

[COLOR="#696969"]اخي ايضا يظهر خطأ .. هذه الرسالة :
Column, parameter, or variable #2: Cannot find data type Longblob.[/COLOR]

[shado1796]

Up up up up

[shado1796]

اخي ايضا يظهر خطأ .. هذه الرسالة :
Column, parameter, or variable #2: Cannot find data type Longblob.

[shado1796]

Up up up up