الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

خطأ في كود الحذف أرجوا المساعدة

بدأه أبو حمزة سكر في 12 يوليو 2014 · 5 رد · 519 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

سؤال جديد مع أن السؤال السابق لم يتم الرد عليه حتى الآن
 
عملت فورم إضافة مستخدمين و طبعاً تعلمت طريقة صنع الفورم عن طريق مواضيعكم الكريمة
و لكن كلما أضغط على زر حذف يعطيني الرسالة التالية :
 
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll
 
Additional information: Data type mismatch in criteria expression.

 Private Sub CmdDelete_Click(sender As Object, e As EventArgs) Handles CmdDelete.Click
        If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
            Exit Sub
        End If
        Dim Savecommand As New OleDbCommand
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, nd)
        Savecommand.Connection = nd
        Savecommand.CommandType = CommandType.Text
        Savecommand.CommandText = "DELETE FROM المستخدمون WHERE رقم ='" & Trim(TextBox1.Text) & "'"
        nd.Open()
        Ds.Clear()
        Savecommand.ExecuteNonQuery()
        DataAdapter1.Fill(Ds, "المستخدمون")
        nd.Close()
        MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")

    End Sub

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 12 يوليو 2014 في 23:21

أشهد أن لا إله إلا الله وحده لا شريك له

و أشهد أن محمداً صلى الله عليه و

سلم عبده و رسوله

#2

و الله دخت كيف يتم إضافة الكود في الموضوع بالشكل الصحيح

أشهد أن لا إله إلا الله وحده لا شريك له

و أشهد أن محمداً صلى الله عليه و

سلم عبده و رسوله

#3

تم ضبط الكود

أخي الفاضل

ضع لنا مثال هنا حتي يتم فحصة

1

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#4

أستاذي الكريم محمد فؤاد أشكر لك دعمك
عند تنفيذ الأمر تظهر لي الرسالة المبينة أعلاه و يكون المؤشر عند السطر 
  Savecommand.ExecuteNonQuery()

قمت بإعادة صياغة الأكواد حسب درس موجه من الأستاذ حمزة عدوان فأصبحت رسالة الخطأ تظهر عند فتح الفورم
عند السطر المحدد بالأحمر
و يشير الخطأ بأنه في جملة FORM

و هذا هو الكود الجديد

 

Imports System.Data.OleDb

Public Class frm_user
    Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|dyname.mdb")
    Dim MyCmd As New OleDbCommand
    Dim MyReader As OleDbDataReader
 
    Private Sub frm_user_Load(sender As Object, e As EventArgs) Handles Me.Load
        Conn.Open()
        MyCmd.Connection = Conn
        MyCmd.CommandType = CommandType.Text
        MyCmd.CommandText = "SELECT ID,Name,pass FROM user ORDER BY Name;"
        MyReader = MyCmd.ExecuteReader
        If MyReader.Read Then
            TextBox1.Text = MyReader.Item("id")
            TextBox2.Text = MyReader.Item("name")
            TextBox3.Text = MyReader.Item("pass")
        Else
            MsgBox(" Empty ", MsgBoxStyle.Exclamation)
        End If
        MyReader.Close()
        Conn.Close()
    End Sub
    Private Sub CmdNew_Click(sender As Object, e As EventArgs) Handles CmdNew.Click
        Conn.Open()
        Dim InsertCommand As New OleDbCommand
        InsertCommand.Connection = Conn
        InsertCommand.CommandType = CommandType.Text
        InsertCommand.CommandText = "INSERT INTO user(name,pass) VALUES(?,?);"
        InsertCommand.Parameters.Clear()
        InsertCommand.Parameters.AddWithValue("?", TextBox2.Text)
        InsertCommand.Parameters.AddWithValue("?", TextBox3.Text)
        InsertCommand.ExecuteNonQuery()
        InsertCommand.Dispose()
        Conn.Close()
        MsgBox(" OK ", MsgBoxStyle.Information)
    End Sub
End Class
 
علماً أني أقوم حالياً بالبحث في الأكواد و تطبيق درس الأستاذ حمزة عدوان خطوة بخطوة لعلي أصل إلى نتيجة

طلب أخير أستاذي أرجو من حضرتكَ الإطلاع على موضوعي السابق و محاولة مساعدتي به لأنه مهم جداً بالنسبة للمشروع و سأقوم إن شاء الله برفع المشروع كامل بعد أن أحل هاتان المشكلتان بمساعدتك إن شاء الله
 

تم تعديل هذه المشاركة بواسطة أبو حمزة سكر في 13 يوليو 2014 في 01:24

أشهد أن لا إله إلا الله وحده لا شريك له

و أشهد أن محمداً صلى الله عليه و

سلم عبده و رسوله

#5

أستاذ محمد فؤاد هل من الممكن أن يكون السبب هو الفاصلة فهي تظهر عندي بشكل غير الموضح هنا بالكود و يكون شكلها مث حرف الواو الصغير

 

مع توضيح أني أعمل على إصدار فيجوال بيسك ستوديوا 2012

تم تعديل هذه المشاركة بواسطة أبو حمزة سكر في 13 يوليو 2014 في 01:30

أشهد أن لا إله إلا الله وحده لا شريك له

و أشهد أن محمداً صلى الله عليه و

سلم عبده و رسوله

#6

تم حل المشكلة و كانت بسبب خطأ في اسم الجدول أنا أكتبه (( User )) و هو ((  Usres ))

أشهد أن لا إله إلا الله وحده لا شريك له

و أشهد أن محمداً صلى الله عليه و

سلم عبده و رسوله

مواضيع مشابهة