[Ahmed.M.A]

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

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

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

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

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

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

مثلاً :

السجل رقم 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