منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة اتصال برنامجين بالييانات مهم جدا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة اتصال برنامجين بالييانات مهم جدا (/showthread.php?tid=7607)

الصفحات: 1 2 3 4 5 6 7 8 9 10

طريقة اتصال برنامجين بالييانات مهم جدا - shado1796 - 27-02-13

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

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

الكود التالي يقوم بتحويل الصوره إلى 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 - 27-02-13

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 - 27-02-13

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

طريقة اتصال برنامجين بالييانات مهم جدا - shado1796 - 27-02-13

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

طريقة اتصال برنامجين بالييانات مهم جدا - Easy4ever - 27-02-13

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

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

طريقة اتصال برنامجين بالييانات مهم جدا - shado1796 - 27-02-13

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

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


طريقة اتصال برنامجين بالييانات مهم جدا - shado1796 - 28-02-13

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

طريقة اتصال برنامجين بالييانات مهم جدا - shado1796 - 28-02-13

Up up up up

طريقة اتصال برنامجين بالييانات مهم جدا - shado1796 - 28-02-13

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

طريقة اتصال برنامجين بالييانات مهم جدا - shado1796 - 01-03-13

Up up up up