منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : السلام عليكم اخوان ممكن مساعده بكود حذف
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندي برنامج وقاعده البيانات مالته اكسس 2007 بس المشكله ما عم يحذف الحقل الي احدده من الداتا قريد ويطلع خطا 
ونوع الخطا مرفق تحت 
وكود الحذف هذا في حاله لم تضهر المرفقات
PHP كود :
MessageBox.Show("هل تريد حذف الرقم""تأكيد"MessageBoxButtons.YesNoMessageBoxIcon.Question)
 
       If vbYes Then
            Dim delnum 
As Integer
            Dim ro 
As Integer DataGridView1.CurrentRow.Index
            delnum 
DataGridView1.Rows(ro).Cells("id").Value
            dataconnection
()
 
           cmd.Connection cnn
            cmd
.CommandText "DELETE  FROM info WHERE id='" delnum "' "
 
           cmd.ExecuteNonQuery()
 
           cnn.Close()
 
           delnum 0
            MessageBox
.Show("تم حذف الرقم من قاعدة البيانات نهائيا")
 
           loaddata()
 
       End If 

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll


Additional information: Data type mismatch in criteria expression.
كود :
"DELETE  FROM info WHERE id='" & delnum & "' "
اذا كان الاي دي رقمي احذف علامات التنصيص المفردة ' ليكون هكذا بعد التعديل
كود :
"DELETE  FROM info WHERE id=" & val(delnum) & ""
(26-06-18, 01:49 PM)سعود كتب : [ -> ]
كود :
"DELETE  FROM info WHERE id='" & delnum & "' "
اذا كان الاي دي رقمي احذف علامات التنصيص المفردة ' ليكون هكذا بعد التعديل
كود :
"DELETE  FROM info WHERE id=" & val(delnum) & ""

ربي يحفظك ويسلمك ويضعه في ميزان حسناتك مشى الحال وحذف على التعديل تبعك 
بس في مشكله بدي اعمل update  وما راضي يعمل بيطلع خطاء وهذه الكود
PHP كود :
dataconnection()
 
       cmd.Connection cnn
        cmd
.CommandText "update  [info] set " _
                   
"([name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti]) VALUES" _
             
"('" TextBox1.Text "','" ComboBox1.Text "','" ComboBox5.Text "','" TextBox3.Text "','" TextBox4.Text "','" ComboBox6.Text "','" TextBox5.Text "','" ComboBox6.Text "')"
 
       cmd.ExecuteNonQuery()
 
       cnn.Close() 
اخي الفاضل :
أين الشرط في جملة التعديل ؟؟
Where