[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