تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف احفظ بيانات تحتوي على صورة ونصوص وارقام في قاعدة من نوع اكسس؟
#1
السلام عليكم اخواني
انا مبتدا في برمجيات سطح المكتب اعمل على مشروع بسيط بالفيبي
الامر هو اني استطعت فهم طريقة اضافة نصوص الى قاعدة اكسس ( لاتختلف كثيرا عن الويب) لاكن المشكلة هي عندما يكون لدي نصوص, ارقام وصورة  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
شكرالكم
الرد
تم الشكر بواسطة:
#2
يمكنك الاطلاع على هذا الفيديو

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#3
مشكور اخي الكريم لاكن للاسف لاتحتوي على شرح لطريقة اضافة صورة وهو الامر الذي احتاجه
الرد
تم الشكر بواسطة:
#4
السلام عليكم و رحمة الله و بركاته
أخي الكريم .. إضافة إلى رابط الفيديو من طلاف أخي الغالي elgokr
بالإمكان إقتصاص جزء صغير من الفورم المعني بالعملية للنظر به من السادة الأعضاء
إن ما تطلبه يترتب عنه تصميم قاعدة بيانات و تصميم فورم بأدواته و التفكير بالأكواد
تحياتي
الرد
تم الشكر بواسطة: elgokr , elgokr , عبدالله الدوسري
#5
وعليكم السلام ورحمة الله وبركاتة

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


اولاً اخي عدل الكود التالي :
   



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

   



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

   

وبهذة الطريقة أفضل :
   




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

وإذا كان يظهر لك خطاء , ضع الرسالة التي تظهر لك .
الرد
تم الشكر بواسطة: elgokr , sendbad100
#6
يمكنك الاطلاع على الرابط التالى الشرح بالفيديو بدلاً من الكود فقط
حتى تتمكن من المراجعة والتاكد من صحة الناتج النهائي وهو مخصص للصور داخل قاعدة بيانات الاكسس


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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة برفع صورة من خلال الويب براوزر ابو روضة 4 99 أمس, 07:26 PM
آخر رد: ابو روضة
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 4 97 19-01-19, 06:15 PM
آخر رد: حريف برمجة
  عرض صورة في الكريستال ريبورت Emam emam 5 110 19-01-19, 04:07 AM
آخر رد: محمد كريّم
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 203 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  إضافة حقول DateTimePicker الى قاعدة البيانات Hamoody 0 73 12-01-19, 02:21 AM
آخر رد: Hamoody
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 340 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  مسح صورة من الملف الموجود في البرنامج hassan 14 23 649 08-01-19, 01:50 PM
آخر رد: hassan 14
  [سؤال] اريد كود يختار سجل من جدول في قاعدة البيانات عشوائيا ويعرض في النموذج abdalla89 7 935 07-01-19, 04:31 PM
آخر رد: elgokr
  [سؤال] نص اتصال قاعدة sqlite بكلمة المرور princelovelorn 4 120 07-01-19, 02:09 PM
آخر رد: elgokr
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 5 1,796 07-01-19, 01:49 AM
آخر رد: EYADISMAIL

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم