منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] الرجاء المساعدة.. - نسخة قابلة للطباعة

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



الرجاء المساعدة.. - Ahmed.M.A - 24-03-17

السلام عليكم ورحمة الله 
بسم الله الرحمن الرحيم 

لدي مشكلة لم اجد لها حل وارجو ان اجد الحل هنا 

لدي جدولين بينهم علاقة برقم متسلسل  وهو المفتاح الاساسي

 - االجدول الاول اريده  للمعلومات والجدول الاخر لملفات 

اريد ان اضع زر يضيف الملف على حسب رقم  المتسلسل 

مثلاً :

السجل رقم 1 اضيف له  ملفات والسجل الاخر اضيف له ملفات اخرى وهكذا ..

الرجاء ان تساعدوني بهذه المشكلة
وهذا الكود الذي لدي ولا يمكنني اضافة الملف وهنالك علاقة بين جدولين

كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click



       Dim pathfile() As String = OpenFileDialog1.FileName.Split("\")
       Dim namefile As String = pathfile.Last.ToString()



       Dim convert() As Byte

       Dim openpath As New FileStream(OpenFileDialog1.FileName, FileMode.Open)
       Dim readfile As New BinaryReader(openpath)

       convort = readfile.ReadBytes(openpath.Length)
       openpath.Close()
       readfile.Close()


       cmd.CommandText = "Insert into Files (IDNum,FileName,FileData) values (@name,@data)"
       cmd.Parameters.Clear()

       cmd.Parameters.AddWithValue("@name", namefile)
       cmd.Parameters.AddWithValue("@data", convert)
       openConnection()
       cmd.ExecuteNonQuery()
       MsgBox("FileData : " & namefile & "Inserted .")

   End Sub



RE: الرجاء المساعدة.. - Master Hacker - 24-03-17

عزيزي قم باضافة صوره للمشروع او توضيح الفكره اكثر


RE: الرجاء المساعدة.. - Ahmed.M.A - 25-03-17

شكراً لرد على مشكلتي 

سوف اوضح لكم 

انا احفظ الملفات بقاعدة البينات لكن عند تفعيل "FOREIGN KEY" لجدول الملفات "Files" تظهر هذه الرساله بالصوره بالاسفل:       
*("R1" اسم الربط بين الجدولين ، "Information" جدول المعلومات)



واذا الغيت المفتاح "FOREIGN KEY"  الملفات بقاعدة البينات تنحفظ لاكن رقم السجل متغير ليس متطابق مع نفس السجل بالجدول  "Information"


انا اريده يحفظ الملفات بقاعدة البينات مثل الصور بالاسفل تظهر الملفات بالجدول الاحمر  ويكون كل ملف له نفس رقم السجل "IDNum" الموجود بجدول  "Information"