(31-08-19, 01:28 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم
اخي خالد الدتاغرايد فارغة لايوجد فيها بيانات وانت في جملة الاستعلام تضع الشرظ السجل الحالي العمود صفر من الداتاغرايد(حتما لايوجد قيمة تسند)
اجعل الشرط ياخذ قيمته من مربع نص حبث تضع فيه رقما يمثل رقم الفاتورة عندها سيجلب لك كل السجلات التي تحمل رقم الفاتورة ويظهرها في الداتاغرايد
احسنت يا استاذى والله بارك الله فيك وفى عمرك وفى كل ما تحب
اريد حذف الفاتوره بتافاصيلها من الداتا ست او بمعنى اخر من الجدول علما بان هناك علاقه بين راس الفاتوره وتفاصيلها ولك منى جزيل الشكر
السلام عليكم اخي خالد
ستحذف ايضا بنفس شرط الجلب (رقم الفاتورة)
كود الحذف سيحتوي على كودين حذف :
حذف من جدول التفاصيل اولا بشرط رقم الفاتورة
ثم حذف الفاتورة بنفس الشرظ من جدول الفواتير
ملاحظة هامة: ان كنت تفتح الاتصال وتغلقه نفذ الفتح والاغلاق مرة واحدة داخل كود الحذف افتح الاتصال ونفذ جملة الحذف الاولى
ثم نفذ جملة الحذف الثانية بعدها اغلق الاتصال
تبقى مشكلة المخزن والحسابات هذه مشكلتك قلت لك ذلك سابقا كيف لا أعلم
اليك الكود
كود :
Private Sub Btn_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Delete.Click
'Txt_FaturaNumber.text نفترض ان مربع النص لرقم الفاتورة اسمه
' التحقق من وجود رقم الفاتورة
Try
If Txt_FaturaNumber.Text = "" Then
MsgBox("من فضلك ادخل رقم الفاتورة", MsgBoxStyle.Critical, Title:="Error")
Exit Sub
Else
If MessageBox.Show("هل انت متأكد من حذف السجل؟", "Alert", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
'Dim cmd As New OleDbCommand()
'cmd = New OleDbCommand("Delete from [جدول تفاصيل الفاتورة] where [حقل رقم الفاتورة] = " & Txt_FaturaNumber.text & ")", con)
'con.Open()
'cmd.ExecuteNonQuery()
'cmd.Dispose()
'cmd = New OleDbCommand("Delete from [جدول الفواتير] where [حقل رقم الفاتورة] = " & Txt_FaturaNumber.text & "')", con)
'cmd.ExecuteNonQuery()
'cmd.Dispose()
MessageBox.Show("تم الحذف بنجاح؟", "حذف", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Exit Sub
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub