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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تصميم قاعدة البيانات djelloul 2 38 06-12-16, 12:36 PM
آخر رد: djelloul
  ابي اربط برنامجي بسيرفر او قاعده بيانات مبارك 3 184 22-11-16, 02:57 PM
آخر رد: مبارك
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 174 04-11-16, 09:25 AM
آخر رد: thevirus
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 356 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  [سؤال] قراءة رابط من قاعدة بيانات في ادة التصفح شمس الدين 03 2 86 27-10-16, 10:43 PM
آخر رد: شمس الدين 03
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 7 7,250 27-10-16, 09:53 PM
آخر رد: thevirus
  مساعدة في بناء قاعدة hglogtd 4 138 05-10-16, 03:48 PM
آخر رد: hglogtd
  استفسار حول طريقتي في قاعدة البيانات صبري زينوبي 0 82 29-09-16, 04:35 PM
آخر رد: صبري زينوبي
  ربط قاعدة بيانات اكسس بفجوال دوت نت 2015 كنونو 0 127 26-09-16, 01:35 PM
آخر رد: كنونو
  تسمية قاعدة البيانات قبل انشائها aiman 3 176 15-09-16, 09:12 PM
آخر رد: Abu Ehab

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


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