24-03-17, 05:44 PM
السلام عليكم ورحمة الله
بسم الله الرحمن الرحيم
لدي مشكلة لم اجد لها حل وارجو ان اجد الحل هنا
لدي جدولين بينهم علاقة برقم متسلسل وهو المفتاح الاساسي
- االجدول الاول اريده للمعلومات والجدول الاخر لملفات
اريد ان اضع زر يضيف الملف على حسب رقم المتسلسل
مثلاً :
السجل رقم 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
