[boty]

ظهر لي هذا الخطأ عند الضغط عغى زر الاضافة في قاعدة البيانات المربوطة بالبرنامج و اكاد اقسم من عدم وجود خطأ أو اي شئ
جربت كل طرق اﻷضافة التي اعرفها ﻻ يوجد خطأ ومع ذلك يظهرلي نقس الجملة
ماذا افعل اهل المنتدى الكرام

[حريف برمجة]

الجملة خطأ اما خطأ نحوي أو نوع حقل رقمي جعلته نصي او العكس .

ارفق مثال بسيط للمشكلة أو الكود المستخدم ،، ونشوف .

[boty]

سوف ارفق الكود بعد قليل باذن الله لانني لست على نفس الجهاز
و شكرا على الرد اخ حريف

[عابر سبيل]

ارفق كود SQL

[boty]

undefined

[boty]

الكود

كود :

Dim cmd As New OleDbCommand("INSERT INTO Rays (Name,Date,PicPath)values(?,?,?)", CON)
            
            MsgBox(Trim(AddRay.TextBox1.Text) & vbCrLf & Date.Today & vbCrLf & PicPath)

            cmd.Parameters.AddWithValue("@Name", OleDbType.VarChar).Value = Trim(AddRay.TextBox1.Text)

            cmd.Parameters.AddWithValue("@Date", OleDbType.Date).Value = Date.Today

            cmd.Parameters.AddWithValue("@PicPath", OleDbType.VarChar).Value = PicPath

            CON.Open()

            cmd.ExecuteNonQuery()

            CON.Close()
            Msg.LabelT.Text = "رسالة"
            Msg.LabelM.Text = "تمت الأضافة بنجاح"
            Msg.PictureBox1.Image = My.Resources.tick
            Msg.Show()
            DataGridViewx1.Refresh()
            updateDB()

مع العلم ان قاعدة البيانات فيها جدول اسمه Rays
يحتوي على ثلاث عواميد
Name ونوعه Short Text
Date ونوعه Date/Time
PicPath و نوعه Short Text
و لدي متغير يدعى PicPath من نوع String

[حريف برمجة]

حاط ? في سطر انسيرت

والبارامتر حاط @ + اسم الحقل

[boty]

اخي حريف برمجة لم افهمك
ممكن توضح اكثر لو سمحت
و اسف على ازعاجك

[حريف برمجة]

كود :

Dim cmd As New OleDbCommand("INSERT INTO Rays (Name,Date,PicPath)values(@Name,@Date,@PicPath)", CON)

مبدئياً السطر هذا يكون كذا دام انك كاتب البارامتر اسفل هكذا

            cmd.Parameters.AddWithValue("@Name", OleDbType.VarChar).Value = Trim(AddRay.TextBox1.Text)

            cmd.Parameters.AddWithValue("@Date", OleDbType.Date).Value = Date.Today

            cmd.Parameters.AddWithValue("@PicPath", OleDbType.VarChar).Value = PicPath

[boty]

جاري التجربة وشكرا اخي