منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الحذف من قاعدة البيانات بشرط معين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الحذف من قاعدة البيانات بشرط معين (/showthread.php?tid=32223)

الصفحات: 1 2

الحذف من قاعدة البيانات بشرط معين - محمد خيري - 23-11-19

السلام عليكم.اخواني لو يمكن المساعدة في حذف الاسم من الجدول Table1 بشرط ما يكون عنده اي قيم فوق الصفر في حقلين من الجدول Table2 .انا شرحت بالمثال بارك الله فيكم

RE: الحذف من قاعدة البيانات بشرط معين - asemshahen5 - 24-11-19

عدل كود الحذف ليكون كالتالي :

PHP كود :
   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If MsgBox("هل انت متأكد من عملية حذف السجل : " & TextBox2.Text, MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            InfoAdapter = New OleDbDataAdapter("Delete From RRR where ms=" & TextBox1.Text, Conne)
            InfoAdapter.Fill(InfoTable)
            اضافة_وضع_Load(Nothing, Nothing)
            MessageBox.Show("تمّت بنجاح عملية حذف بيانات الكتاب", "عملية الحذف", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
        End If
    End Sub 

و كود تحميل الفورم ليكون كالتالي :

PHP كود :
   Private Sub اضافة_وضع_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If Conne.State = ConnectionState.Closed Then Conne.Open()
        Load_Location_Information(DataGridView1)
        DataGridViewHeaderText(DataGridView1)
    End Sub 


RE: الحذف من قاعدة البيانات بشرط معين - محمد خيري - 24-11-19

اشكرك اخي AsemShahen5 و بارك الله فيك لكن ليس هو المطلوب مع الاسف لاني الحذف يتم تنفيذه بشروط حسب المثال

RE: الحذف من قاعدة البيانات بشرط معين - asemshahen5 - 24-11-19

لم ارى اي شرط بالمثال المرفق اذا كان هناك شرط اكتبه لي لاضيفه لك في الاستعلام .

RE: الحذف من قاعدة البيانات بشرط معين - محمد خيري - 24-11-19

شكرا اخي عاصم انا واضع شرح بالمثال . انا لدي جدول اسمه Table1 و به الحقول Id-MyName-City-Adress
و عندي جدول ثاني اسمه Table2 به الحقول Id-MyName -Sum1 - sum2
بالشاشة الرئيسيى يلي معلوماتها فقط من الجدول 1 اريد لما اريد احذف اسم ما يكون عندو بالجدول 2 بالحقل sum1 أو sum2 اي قيمة فوق الصفر

RE: الحذف من قاعدة البيانات بشرط معين - asemshahen5 - 24-11-19

اعذرني حصل لبس بين مثالك و مثال شخص اخر هذا كودك فقط ازل كلمة هالة من الاستعلام و ضع عوضا عنها التكست الخاص بالاسم و اعتذر منك مرة اخرى :

PHP كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using cmd As OleDbCommand = New OleDbCommand(
        "Delete From Table1 where [Name]='هالة' and [Name] in (Select MyName From Table2 where Sum1=0 and Sum2=0) ", con)
            cmd.CommandType = CommandType.Text
            Using sda As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                Using dt As DataTable = New DataTable()
                    sda.Fill(dt)
                    DataGridView1.DataSource = dt
                    Form1_Load(Nothing, Nothing)
                End Using
            End Using
        End Using
    End Sub 


RE: الحذف من قاعدة البيانات بشرط معين - 3booody - 24-11-19

(24-11-19, 10:22 PM)asemshahen5 كتب : اعذرني حصل لبس بين مثالك و مثال شخص اخر هذا كودك فقط ازل كلمة هالة من الاستعلام و ضع عوضا عنها التكست الخاص بالاسم و اعتذر منك مرة اخرى :

PHP كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using cmd As OleDbCommand = New OleDbCommand(
        "Delete From Table1 where [Name]='هالة' and [Name] in (Select MyName From Table2 where Sum1=0 and Sum2=0) ", con)
            cmd.CommandType = CommandType.Text
            Using sda As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                Using dt As DataTable = New DataTable()
                    sda.Fill(dt)
                    DataGridView1.DataSource = dt
                    Form1_Load(Nothing, Nothing)
                End Using
            End Using
        End Using
    End Sub 

اسأل الله ان يبارك بك ويزرقك ويحفظك ويسترك ويديم تواجدك ومشاركاتك ومساعداتك للجميع
دائمآ تكون سباق بالاجابة لكل سائل , جزاك الله خيرآ وجعله بميزان حسناتك

RE: الحذف من قاعدة البيانات بشرط معين - asemshahen5 - 24-11-19

بارك الله فيك و اسال الله تعالى ما سألته لي و اكثر انه على كل شيئ قدير .

RE: الحذف من قاعدة البيانات بشرط معين - محمد خيري - 24-11-19

الله يبارك اخي asemshahen الكود كلو تمام و مضبوط بقيت لي اشكالية صغيرة فقط
 في كل الحالات تخبرني الرسالة انه تم الحذف حتى مع الاسماء التي لا يمكن حذفها حسب الشرط كيف اعدل في الرسالة لو الاسم ما يمكن حذفه تاتي الرسالة " هذا الاسم لا يمكن حذفه لان له قيم اكبر من الصفر باحدى حقول الجدول الثاني "

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Using cmd As OleDbCommand = New OleDbCommand()
           cmd.Connection = con
           If con.State = ConnectionState.Closed Then con.Open()
           cmd.CommandText = "Delete From Table1 where [Name1]='" & TextBox2.Text.Trim & "' And [Name1] in (Select Name2 From Table2 where Sum1=0 and Sum2=0)"
           cmd.ExecuteNonQuery()
       End Using
       MessageBox.Show("تمت عملية حذف البيانات بنجاح", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
       If con.State = ConnectionState.Open Then con.Close()
   End Sub


RE: الحذف من قاعدة البيانات بشرط معين - asemshahen5 - 24-11-19

تفضل هذا كود الحذف :

PHP كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If MsgBox("هل انت متأكد من عملية حذف السجل : " & TextBox2.Text, MsgBoxStyle.YesNo + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "") = MsgBoxResult.Yes Then
            Using cmd As OleDbCommand = New OleDbCommand(
            "Delete From Table1 where [Name]='" & TextBox2.Text.Trim & "' and [Name] in (Select MyName From Table2 where Sum1=0 and Sum2=0) ", con)
                If con.State = ConnectionState.Closed Then con.Open()
                If (cmd.ExecuteNonQuery()) > 0 Then
                    MsgBox("تم الحذف", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "")
                Else
                    MsgBox("لم يتم الحذف", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "")
                End If
                Form1_Load(Nothing, Nothing)
            End Using
        End If
    End Sub