حفظ معلومات عن اي طالب مع صورته في قاعدة بيانات اكسس 2010

تقييم الموضوع :
  • 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
مرحبا ممكن أخي تعيد توضع الحل الصحيح الذي توصلت إليه
وماهي خاصية الحقل الذي تحفظ فيه الصورة
شكرا لك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حفظ التعديل في Data Grid View مباشرا الى قاعدة البيانات اللورد محمود 1 83 02-08-18, 07:26 PM
آخر رد: سعود
  كيفة عمل Attach لقاعدة بيانات SqlServer? abozeyd 5 137 18-07-18, 09:27 PM
آخر رد: abozeyd
  [سؤال] كيفية ربط قاعدة بيانات اكسس 2007 بالفيجوال 2008 mohmedhosen 3 4,964 16-07-18, 08:48 PM
آخر رد: aridje34
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 3 585 04-07-18, 02:18 PM
آخر رد: fareglarkt
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 163 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
Tongue ربط قاعدة بينات اكسل مع الفيجوال عمار عيثاوي 3 2,141 02-03-18, 05:13 PM
آخر رد: محمد بن عطية
  إضافة الصورة في قاعدة البيانات iFanfan 0 230 01-03-18, 06:02 PM
آخر رد: iFanfan
  بيانات الصنف في الفاتورة atefkhalf2004 1 306 13-02-18, 09:53 PM
آخر رد: atefkhalf2004
  كيف يمكن نسخ جدول من قاعدة بيانات الي اخري atefkhalf2004 9 271 30-01-18, 02:59 PM
آخر رد: atefkhalf2004
  معرفة اصدار نسخة قاعدة البيانات atefkhalf2004 8 243 27-01-18, 06:07 PM
آخر رد: أبو عمر

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


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