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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  منع تكرار البيانات المدخلة على قاعدة البيانات الرائد 1 23 منذ 4 ساعة مضت
آخر رد: Rabeea Qbaha
Sad [سؤال] طريقة نسخ بيانات ملف أكسل موضوعة في DataGridview الى جدول قاعدة بيانات Access paradoxinoo 2 48 أمس, 11:12 AM
آخر رد: viv
  مشكلة في حفظ حقول من تكست بوكس علي قاعدة بيانات بواسطة داتاسيت Abdalazim19 19 462 24-08-19, 11:47 PM
آخر رد: ابراهيم ايبو
  سؤال احبتى هل من الممكن تحديث بيانات التقرير فى الكريستال ربيورت خالد كامل1 17 264 24-08-19, 03:14 PM
آخر رد: عبد العزيز البسكري
  نقل قاعدة بيانات الى العميل dasktop 28 528 24-08-19, 03:13 PM
آخر رد: سعود
  كود بحث في قاعدة بيانات access CoderMM 6 110 22-08-19, 12:48 PM
آخر رد: CoderMM
Rainbow قاعدة بيانات اكسس مع فيجوال بيسك نت كيفية عمل ربط بين حاسبات اياد او سكار 2 89 20-08-19, 01:22 AM
آخر رد: عبد العزيز البسكري
Shocked [SQL] عودة: سؤال ربط برنامج بقاعدة بيانات sql server shado1796 7 2,171 20-08-19, 01:14 AM
آخر رد: اسامه الهرماوي
  [VB.NET] اريد التعديل ع كود للكتابه ع صورة e-coder 5 148 19-08-19, 12:47 AM
آخر رد: ابراهيم ايبو
Information [مشروع] مشروع عن سوبر ماركت ب الفيجوال بيسك + اكسس Alamin Izag 2 2,018 18-08-19, 08:13 PM
آخر رد: sasaasso11

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


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