السلام عليكم ورحمة الله وبركاته
اخواني انا استخدم برنامج فيجوال بيسك دوت نت مع قاعدة بيانات اكسس
عندي جدول باسم deletemain اريد حذف جميع البيانات الموجودة فيه بمجرد الضغط على زر واحد
فهل هناك كود يستطيع فعل ذلك ؟
شكرا لكم
كود :
delete from deletemain
نفذ هذا السطر ليتم حذف كافة محتويات الجدول
اشكرك على الرد ولكن الكود لم يعمل
هذا هو الكود الذي استخدمه
PHP كود :
Sub deletealldata()
Try
Dim sql As String = " delete from deletemain=" & Int(Me.dgvList.CurrentRow.Cells(0).Value)
'
Dim comm As New OleDb.OleDbCommand(sql, Con)
Con.Open()
Dim result As Integer = comm.ExecuteNonQuery
Con.Close()
If result > 0 Then
Me.dgvList.Rows.Remove(Me.dgvList.CurrentRow)
MsgBox("لقد تم حذف السجل بنجاح")
Else
MsgBox("لم أجد السجل المراد حذفه")
End If
Catch ex As Exception
MsgBox("فشلت عملية الحذف")
End Try
EditQuantity.Hide()
End Sub
اشكرك اخي الوليد
ولكن ماهو الكود المناسب
اذا ممكن التعديل على الكود التي وضعته انا
شكرا لك
شكرا لكم
تم الحل وقمت بإضافة هذا الكود
PHP كود :
Sub deletealldata()
Try
Con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\saveDate.mdb")
Con.Open()
oCmdOleDb = New OleDbCommand("Delete from mysaver", Con)
If (oCmdOleDb.ExecuteNonQuery > 0) Then
End If
Catch ex As Exception
MsgBox(ex.Message.ToString(), MsgBoxStyle.Information)
Finally
Con.Close()
End Try
End Sub
وعندي سؤال اخر اذا بالإمكان وضعه هنا
ماهو الكود المناسب للتنبيه بأن العدد الموجود في القاعدة بيانات أقل من المطلوب
مثلا عندي عدد 8 قطع واذا كتبت رقم 9 يذكرني بان العدد الموجود اقل من العدد المطلوب
هذه الاعداد موجوده في textbox1 و textbox2
وعند الطلب اكتبها في textbox3 و textbox4
وانا اسف اذا كان الطلب يلزمني كتابة موضوع جديد ام لا
شكرا لكم