تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [سؤال] سؤال حول البحث في قاعدة بيانات من نوع اكسس ahmadpal 4 48 منذ 6 ساعة مضت
آخر رد: ahmadpal
  سؤال حول عرض البيانات في تكست بوكس من قاعدة البيانات ahmadpal 0 10 منذ 7 ساعة مضت
آخر رد: ahmadpal
  [سؤال] اريد شرح طريقة رفع قاعدة بيانات من نوع mysql ابو يوسف النواوي 2 5 39 منذ 7 ساعة مضت
آخر رد: asemshahen5
  [سؤال] تغير اتصال قاعدة sql الى mysql Mohamed Magdy 0 10 منذ 9 ساعة مضت
آخر رد: Mohamed Magdy
  اضافة حقل نعم لا بالكود في قاعدة اكسس atefkhalf2004 5 86 أمس, 04:22 PM
آخر رد: atefkhalf2004
  [VB.NET] استعلام للبحث عن عدد تكرار كلمة في بيانات حقل واحد في سجل واحد tarek 0 29 24-03-19, 09:09 PM
آخر رد: tarek
  كيفية مشاركة قاعدة بيانات اكسس على الانترنت Lathe1 5 109 24-03-19, 08:48 PM
آخر رد: Lathe1
  [سؤال] أهلا وسهلا. هل يمكنم اعطائي كود برمجي يعطيني رسالة خطأ إذا لم تتصل بقاعدة بيانات عبر يونس جلال 0 39 22-03-19, 04:39 PM
آخر رد: يونس جلال
  اظهار بيانات الداتاغريد بالتاكست بكس محمد خيري 10 155 20-03-19, 01:40 AM
آخر رد: محمد خيري
  عرض بيانات في الداتا جريد فيو Emam emam 7 236 16-03-19, 05:46 PM
آخر رد: 5000

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


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