23-11-19, 06:47 PM
السلام عليكم.اخواني لو يمكن المساعدة في حذف الاسم من الجدول Table1 بشرط ما يكون عنده اي قيم فوق الصفر في حقلين من الجدول Table2 .انا شرحت بالمثال بارك الله فيكم
الصفحات : 1 2
23-11-19, 06:47 PM
24-11-19, 05:37 PM
عدل كود الحذف ليكون كالتالي :
و كود تحميل الفورم ليكون كالتالي :
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
24-11-19, 09:01 PM
اشكرك اخي AsemShahen5 و بارك الله فيك لكن ليس هو المطلوب مع الاسف لاني الحذف يتم تنفيذه بشروط حسب المثال
24-11-19, 09:04 PM
لم ارى اي شرط بالمثال المرفق اذا كان هناك شرط اكتبه لي لاضيفه لك في الاستعلام .
24-11-19, 09:59 PM
شكرا اخي عاصم انا واضع شرح بالمثال . انا لدي جدول اسمه Table1 و به الحقول Id-MyName-City-Adress
و عندي جدول ثاني اسمه Table2 به الحقول Id-MyName -Sum1 - sum2
بالشاشة الرئيسيى يلي معلوماتها فقط من الجدول 1 اريد لما اريد احذف اسم ما يكون عندو بالجدول 2 بالحقل sum1 أو sum2 اي قيمة فوق الصفر
و عندي جدول ثاني اسمه Table2 به الحقول Id-MyName -Sum1 - sum2
بالشاشة الرئيسيى يلي معلوماتها فقط من الجدول 1 اريد لما اريد احذف اسم ما يكون عندو بالجدول 2 بالحقل sum1 أو sum2 اي قيمة فوق الصفر
24-11-19, 10:22 PM
اعذرني حصل لبس بين مثالك و مثال شخص اخر هذا كودك فقط ازل كلمة هالة من الاستعلام و ضع عوضا عنها التكست الخاص بالاسم و اعتذر منك مرة اخرى :
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
24-11-19, 11:04 PM
(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
اسأل الله ان يبارك بك ويزرقك ويحفظك ويسترك ويديم تواجدك ومشاركاتك ومساعداتك للجميع
دائمآ تكون سباق بالاجابة لكل سائل , جزاك الله خيرآ وجعله بميزان حسناتك
24-11-19, 11:07 PM
بارك الله فيك و اسال الله تعالى ما سألته لي و اكثر انه على كل شيئ قدير .
24-11-19, 11:19 PM
الله يبارك اخي 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 Sub24-11-19, 11:30 PM
تفضل هذا كود الحذف :
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
الصفحات : 1 2