منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25030)



كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟ - عادل المغربي - 20-05-18

السلام عليكم اخواني
انا مبتدا في برمجيات سطح المكتب اعمل على مشروع بسيط بالفيبي
الامر هو اني استطعت فهم طريقة اضافة نصوص الى قاعدة اكسس ( لاتختلف كثيرا عن الويب) لاكن المشكلة هي عندما يكون لدي نصوص, ارقام وصورة  Huh

صورة لتوضيح الفكرة: https://prnt.sc/jkc82h

اريد شرح لطيقة عمل ذالك جزاكم الله خيرا بحث في اليوتيوب ولاشيء افادني
شكرا لكم
كود زر اضافة البيانات ( زر الحفظ ajouter)
كود :
Private Sub AddV_Click(sender As Object, e As EventArgs) Handles AddV.Click
       Dim arrImage() As Byte
       Dim NmImage As String
       Dim myMs As New IO.MemoryStream

       If Not IsNothing(CarImg.Image) Then
           CarImg.Image.Save(myMs, CarImg.Image.RawFormat)
           arrImage = myMs.GetBuffer
           NmImage = "?"
       Else
           arrImage = Nothing
           NmImage = "NULL"
       End If

       conn.Open()
       Dim cmd As New OleDbCommand With {
           .Connection = conn
       }

       If NmImage = "?" Then
           cmd.CommandText = "INSERT INTO Voiteurs ([Marque],[Immatriculation],[Kelometre],[Couleur],[RentTime], CardImg) VALUES (@TxbMarqueV,@TxbImmat,@TxbKilom,@CmbCouleurV,@TxbRentTime,@CardImg)"
           cmd.Parameters.Add("@CardImg", OleDbType.Binary).Value = arrImage
           cmd.Parameters.Add("@TxbMarqueV", OleDbType.VarChar).Value = TxbMarqueV.Text
           cmd.Parameters.Add("@TxbImmat", OleDbType.VarChar).Value = TxbImmat.Text
           cmd.Parameters.Add("@TxbKilom", OleDbType.VarChar).Value = TxbKilom.Text
           cmd.Parameters.Add("@CmbCouleurV", OleDbType.VarChar).Value = CmbCouleurV.Text
           cmd.Parameters.Add("@TxbRentTime", OleDbType.VarChar).Value = TxbRentTime.Text
       Else
           cmd.CommandText = "INSERT INTO Voiteurs ([Marque],[Immatriculation],[Kelometre],[Couleur],[RentTime], CardImg) VALUES('" & TxbMarqueV.Text & "','" & TxbImmat.Text & "','" & TxbKilom.Text & "','" & CmbCouleurV.Text & "','" & TxbRentTime.Text & "'," & NmImage & ")"
           cmd.Parameters.Add("@CardImg", OleDbType.Binary).Value = arrImage
           cmd.Parameters.Add("@TxbMarqueV", OleDbType.VarChar).Value = TxbMarqueV.Text
           cmd.Parameters.Add("@TxbImmat", OleDbType.VarChar).Value = TxbImmat.Text
           cmd.Parameters.Add("@TxbKilom", OleDbType.VarChar).Value = TxbKilom.Text
           cmd.Parameters.Add("@CmbCouleurV", OleDbType.VarChar).Value = CmbCouleurV.Text
           cmd.Parameters.Add("@TxbRentTime", OleDbType.VarChar).Value = TxbRentTime.Text

       End If
       cmd.ExecuteNonQuery()
       conn.Close()
       MsgBox("Data Has Been Added")

   End Sub



كود رفع الصورة الى البيكتربوكس
كود :
   Private Sub AddPicV_Click(sender As Object, e As EventArgs) Handles AddPicV.Click
       OpenFileDialog1.Filter = "Image Formats (*.PNG; *.JPG; *.BMP) | *.PNG; *.JPG; *.BMP | All Files (*.*) | *.*"
       'Dim OpenFileDialog1 As New OpenFileDialog
       With OpenFileDialog1
           If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
               MsgBox("image is not choised")
               Return
           Else
               CarImg.Image = Image.FromFile(.FileName)
           End If
       End With
   End Sub

صورة من قاعدة البيانات: http://prntscr.com/jkcbvu
شكرالكم


RE: كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟ - elgokr - 21-05-18

يمكنك الاطلاع على هذا الفيديو
https://www.youtube.com/watch?v=UtE3kkQR7_w

تحياتى لك



RE: كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟ - عادل المغربي - 21-05-18

مشكور اخي الكريم لاكن للاسف لاتحتوي على شرح لطريقة اضافة صورة وهو الامر الذي احتاجه


RE: كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟ - عبد العزيز البسكري - 21-05-18

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



RE: كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟ - عبدالله الدوسري - 21-05-18

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

أحب اللغة الفرنسية ( ajouter )  Cool


اولاً اخي عدل الكود التالي :
[attachment=18099]



ليصبح الكود بهذة الطريقة :

[attachment=18100]



الأمر الآخر هو تحقق من نجاح العملية بهذا الشكل :

[attachment=18101]

وبهذة الطريقة أفضل :
[attachment=18102]




في النهاية الكود الذي كتبتة الظاهر انه لا يحتوي على خطأء
شكل الكود سليم 

وإذا كان يظهر لك خطاء , ضع الرسالة التي تظهر لك .


RE: كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟ - elgokr - 21-05-18

يمكنك الاطلاع على الرابط التالى الشرح بالفيديو بدلاً من الكود فقط
حتى تتمكن من المراجعة والتاكد من صحة الناتج النهائي وهو مخصص للصور داخل قاعدة بيانات الاكسس

https://www.youtube.com/watch?v=Myiq2m2wpJY

لا يجب ان تعمل على النسخ واللصق فقط
لكن من الافضل هو فهم الكود الذى يكتب وان تقوم بكتابته

تحياتى لك
وتمنياتى لك التوفيق



RE: كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟ - عادل المغربي - 22-05-18

مرحبا اخوناي شكرا لكم على الردود والاهتمام
اخي عبد الله فعلت ما طلبت لاكن لازالت هذه المشكلة تظهر عند الضغط على زر الاضافة
صورة: http://prntscr.com/jkut4s


RE: كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟ - عبدالله الدوسري - 22-05-18

(22-05-18, 01:10 AM)عادل المغربي كتب : مرحبا اخوناي شكرا لكم على الردود والاهتمام
اخي عبد الله فعلت ما طلبت لاكن لازالت هذه المشكلة تظهر عند الضغط على زر الاضافة
صورة: http://prntscr.com/jkut4s

لكن لا اعلم ماذا فعلت أخي الكريم 
ضع الكود الذي قمت بهة قبل تنفيذ الإستعلام

هناك نوع بيانات مطلوب بشكل معين وأنت تقوم بتعيينة بشكل آخر