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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] مشكلة تواجهنى عند محاولة استرجاع قاعده بيانات ahmedmansour 1 63 27-11-17, 09:39 PM
آخر رد: حريف برمجة
  بيانات الصنف في الفاتورة atefkhalf2004 0 123 25-10-17, 07:34 PM
آخر رد: atefkhalf2004
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 123 23-10-17, 03:22 AM
آخر رد: khodor1985
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 6 6,754 04-10-17, 10:08 PM
آخر رد: sofiane0552
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,918 24-09-17, 08:23 PM
آخر رد: alsouf
Question [نقاش] ماهو الفرق بين  sql server 2008 r2 و sql الموجودة في الفيجوال استديو 2010 Amrjamil 0 149 21-09-17, 06:20 PM
آخر رد: Amrjamil
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 247 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 404 07-08-17, 11:26 PM
آخر رد: أبو نوره
  [مثال] مبتدئة ربط اكسس بفجيوال بيسك ام سفانة 3 363 21-07-17, 04:50 AM
آخر رد: ام سفانة
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 387 19-07-17, 01:58 PM
آخر رد: Jounior_P

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


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