تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] السلام عليكم اخوان ممكن مساعده بكود حذف
#1
Information 
عندي برنامج وقاعده البيانات مالته اكسس 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.
الرد }}}
تم الشكر بواسطة: معاذ ابراهيم العامري
#2
كود :
"DELETE  FROM info WHERE id='" & delnum & "' "
اذا كان الاي دي رقمي احذف علامات التنصيص المفردة ' ليكون هكذا بعد التعديل
كود :
"DELETE  FROM info WHERE id=" & val(delnum) & ""
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#3
(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() 
الرد }}}
تم الشكر بواسطة:
#4
اخي الفاضل :
أين الشرط في جملة التعديل ؟؟
Where
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة:



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


يقوم بقرائة الموضوع: