ظهر لي هذا الخطأ عند الضغط عغى زر الاضافة في قاعدة البيانات المربوطة بالبرنامج و اكاد اقسم من عدم وجود خطأ أو اي شئ
جربت كل طرق اﻷضافة التي اعرفها ﻻ يوجد خطأ ومع ذلك يظهرلي نقس الجملة
ماذا افعل اهل المنتدى الكرام
الجملة خطأ اما خطأ نحوي أو نوع حقل رقمي جعلته نصي او العكس .
ارفق مثال بسيط للمشكلة أو الكود المستخدم ،، ونشوف .
سوف ارفق الكود بعد قليل باذن الله لانني لست على نفس الجهاز
و شكرا على الرد اخ حريف
الكود
كود :
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
حاط ? في سطر انسيرت
والبارامتر حاط @ + اسم الحقل
اخي حريف برمجة لم افهمك
ممكن توضح اكثر لو سمحت
و اسف على ازعاجك
كود :
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