تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] حفظ معلومات عن اي طالب مع صورته في قاعدة بيانات اكسس 2010
#1
Rainbow 
السلام عليكم ورحمة الله وبركانه
ارجو المساعدة في هذا الكود

غايتي هي حفظ معلومات عن اي طالب مع صورته في قاعدة بيانات اكسس 2010...لذا قمت بتحويل الصورة الي بايتات لكن هناك مشكل
عند الظغط على زر الاضافة يعطيني هذا الخطا Erreur de syntaxe dans l'instruction INSERT INTO لكن عملية البيلد بتكون صح
ارجو الافادة
كود :
Imports System.Data
Imports System.Data.OleDb
Imports System.IO

Public Class Form1
   Dim con As New OleDbConnection
   Dim cmd As New OleDbCommand
   Dim i As Integer


   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim str As String
       str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=User.accdb"
       con = New OleDbConnection(str)
       con.Open()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       On Error Resume Next
       OpenFileDialog1.Filter = "*.jpg|*.jpg"
       OpenFileDialog1.ShowDialog()
       Dim path As String = OpenFileDialog1.FileName
       pb1.Image = Image.FromFile(path)


   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ms As New MemoryStream()
       Dim arrimage() As Byte
       If (pb1.Image IsNot Nothing) Then
           pb1.Image.Save(ms, pb1.Image.RawFormat)
           arrimage = ms.GetBuffer
           ms.Close()

       End If


       With cmd
           .Connection = con
           .CommandText = "INSERT INTO Info(Nom,sex,age,image) VALUES(@a0,@a1;@a2,@3)"
           .Parameters.Add("@a0", OleDbType.VarChar).Value = TextBox1.Text
           .Parameters.Add("@a1", OleDbType.VarChar).Value = TextBox2.Text
           .Parameters.Add("@a2", OleDbType.VarChar).Value = TextBox3.Text
           .Parameters.Add("@a3", OleDbType.Binary).Value = IIf(pb1.Image IsNot Nothing, arrimage, DBNull.Value)
           i = .ExecuteNonQuery()

           .Dispose()
con.close()
           If (i > 0) Then
               MsgBox("Save Seccess")
           End If

       End With



   End Sub
End Class
الرد
تم الشكر بواسطة:
#2
.....

راجع جملة INSERT فقد وضعت إحداها ( ; ) بدل ( , )

أيضا يستحسن وضع اسم الجدول واسم كل عمود بين أقواس مربعة [] باستثناء البارامترات التي تبدا @

أيضا شاهد هذه المشاركة بخصوص استخدام Parameters.AddWithValue بدل من Parameters.Add
حفظ قمية الـ CheckBox داخل قاعدة بيانات access

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 51 أمس, 04:38 PM
آخر رد: elgokr
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 109 20-02-19, 11:08 AM
آخر رد: alfaiz678
  قاعدة بيانات بيانات ال sql مع الفجوال 2008 raaddawood 0 106 02-02-19, 11:16 AM
آخر رد: raaddawood
  الاتصال بقاعدة بيانات اكسس وفق نظام 64 بايت raaddawood 0 78 28-01-19, 09:21 PM
آخر رد: raaddawood
  اجمالى الفواتير فى قاعدة البيانات atef_020 10 340 22-01-19, 03:44 PM
آخر رد: atef_020
  [VB.NET] الاتصال بقاعدة بيانات Access على استضافه YazanOtoum 8 2,303 05-01-19, 06:05 PM
آخر رد: musa al7elo
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 0 125 05-01-19, 12:28 AM
آخر رد: abdullhadi999
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 0 94 05-01-19, 12:27 AM
آخر رد: abdullhadi999
  [سؤال] اريد جعل قاعدة البينات تقبل ادخل لاكثر من يوزر فى نفس الوقت issamsaidd 2 207 30-12-18, 08:33 PM
آخر رد: issamsaidd
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 8 1,247 23-12-18, 01:21 AM
آخر رد: atefkhalf2004

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


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