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

مساعدة .. مشكلة فى كود الحفظ

بدأه مصطفى_ظيمة في 4 مايو 2010 · 4 رد · 507 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة الأعزاء أعضاء المنتدى الذى له افضال كثيرة على بعد الله سبحانة وتعالى

الموضوع بسيط

الكود التالى هو كود حفظ البيانات فى قاعدة من نوع أكسس

الكود يقوم بالتحقق من البيانات المدخلة إلى الجدول gen قبل الحفظ

وفى حالة عدم تكرارها بقوم بالحفظ بنجاح

المشكلة انه فى حالة تكرار البيانات لا يقوم بالحفظ

انا اريد أن يقوم الكود بالتحقق من تكارار البيانات وعندما يعطينى رسالة بذلك يكون بها اختيارات yes و No

عندما أختار No لايقوم بالحفظ وعندما يكون yes يقوم بالحفظ

أو بمنعى آخر أريد أن أكون انا المسيطرة على الحفظ حتى فى حالة التكرار وليس الكود

وشكرا لكم على تعاونكم

 DB.Open()
        Dim str1 As String
        str1 = "select * from gen where [num] ='" & TextBox2.Text & "'"
        Dim com As New OleDbCommand(str1, DB)
        Dim dataReader As OleDb.OleDbDataReader
        dataReader = com.ExecuteReader()
        dataReader.Read()
        If dataReader.HasRows = False Then
            Dim res = MsgBox("هل ترغب بالتأكيد في حفظ بيانات المستخدم الجديد", MsgBoxStyle.YesNo)
            If res = 10 Then
                str1 = "INSERT INTO gen (code,num,Kind,source,tex,notes)" & _
                "values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
                Dim com1 As New OleDb.OleDbCommand(str1, DB)
                com1.ExecuteNonQuery()
            End If
        Else
            MsgBox("هذا المستخدم موجود سابقاْ", MsgBoxStyle.YesNoCancel)
        End If
        DB.Close()

      
      

      
    

  

    
    

      
#2
        
        

      
ها هو الكود مرة أخرى لو كان مش واضح مع المعلم انى استخدم vb2008
 DB.Open()
        Dim str1 As String
        str1 = "select * from gen where [num] ='" & TextBox2.Text & "'"
        Dim com As New OleDbCommand(str1, DB)
        Dim dataReader As OleDb.OleDbDataReader
        dataReader = com.ExecuteReader()
        dataReader.Read()
        If dataReader.HasRows = False Then
            Dim res = MsgBox("هل ترغب بالتأكيد في حفظ بيانات المستخدم الجديد", MsgBoxStyle.YesNo)
            If res = 10 Then
                str1 = "INSERT INTO gen (code,num,Kind,source,tex,notes)" & _
                "values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
                Dim com1 As New OleDb.OleDbCommand(str1, DB)
                com1.ExecuteNonQuery()
            End If
        Else
            MsgBox("هذا المستخدم موجود سابقاْ", MsgBoxStyle.YesNoCancel)
        End If
        DB.Close()

      
      

      
    

  

    
    

      
#3
        
        

      
الأخوة الأفاضل
ألا يوجد مساعد

      
      

      
    

  

    
    

      
#4
        
        

      
معقولة يا جماعة ما فيش مساعدة واحدة

      
      

      
    

  

    
    

      
#5
        
        

      
بسم الله الرحمن الرحيم 
أخى العزيز
 If dataReader.HasRows = False Then            Dim res = MsgBox("هل ترغب بالتأكيد في حفظ بيانات المستخدم الجديد", MsgBoxStyle.YesNo)            If res = 10 Then                str1 = "INSERT INTO gen (code,num,Kind,source,tex,notes)" & _                "values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"                Dim com1 As New OleDb.OleDbCommand(str1, DB)                com1.ExecuteNonQuery()            End If        Else            MsgBox("هذا المستخدم موجود سابقاْ", MsgBoxStyle.YesNoCancel)        End If
الكود صح بس عاوز تركيز بس جرب ده كده
  If dataReader.HasRows = False Then
            MsgBox("هل ترغب بالتأكيد في حفظ بيانات المستخدم الجديد", MsgBoxStyle.YesNo)
            If MsgBoxResult.Yes Then
                str1 = "INSERT INTO gen (code,num,Kind,source,tex,notes) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
                Dim com1 As New OleDb.OleDbCommand(str1, DB)
                com1.ExecuteNonQuery()
            End If
        Else
            Dim res = MsgBox("  عفوا هذا المستخدم موجود من قبل هل انت متأكد من الأدخال", MsgBoxStyle.YesNo)
            str1 = "INSERT INTO gen (code,num,Kind,source,tex,notes) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
            Dim com1 As New OleDb.OleDbCommand(str1, DB)
            com1.ExecuteNonQuery()
        End If

      
      

      
    

  

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





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…