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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طباعة ملف word او text او حتى صورة يونس علي 5 147 16-05-19, 01:24 PM
آخر رد: elgokr
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 711 15-05-19, 08:24 PM
آخر رد: asemshahen5
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 184 15-05-19, 06:08 PM
آخر رد: makky
  عمل مجموعة تحتوي علي اكتر من صنف makky 1 73 04-05-19, 03:49 AM
آخر رد: اسامه الهرماوي
Rainbow [VB.NET] حذف بيانات الجلسة لل WebBrowser1 DK-x 0 49 03-05-19, 11:03 AM
آخر رد: DK-x
  [VB.NET] تحويل الكود من اكسس لsql اسامه الهرماوي 6 148 03-05-19, 01:29 AM
آخر رد: saoud2
  [مثال] قاعدة بيانات SQL DK-x 2 115 03-05-19, 12:38 AM
آخر رد: اسامه الهرماوي
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 89 27-04-19, 10:32 PM
آخر رد: saoud2
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 3 128 25-04-19, 04:21 PM
آخر رد: elgokr
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 309 25-04-19, 09:26 AM
آخر رد: elgokr

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


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