[php3]

السلام عليكم ورحمة الله وبركاته

اخواني انا استخدم برنامج فيجوال بيسك دوت نت مع قاعدة بيانات اكسس
عندي جدول باسم deletemain اريد حذف جميع البيانات الموجودة فيه بمجرد الضغط على زر واحد

فهل هناك كود يستطيع فعل ذلك ؟

شكرا لكم

[سعود]

كود :

delete from deletemain

نفذ هذا السطر ليتم حذف كافة محتويات الجدول

[php3]

اشكرك على الرد ولكن الكود لم يعمل

هذا هو الكود الذي استخدمه

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 


[الوليد ☺]

السلام عليكم ورحمة الله

إنت سألت سؤال محدد وهو:
"عندي جدول باسم deletemain اريد حذف جميع البيانات الموجودة فيه بمجرد الضغط على زر واحد"

هذا الكلام معناه إنك ما راح تحتاج سجل معين وإنك تريد تحذف جميع السجلات.
فجاوبك أخونا سعود بالضبط كما طلبت.

لكنك الحين إنت وضع كود موجود فيه إنك بتحدد سجل فكيف ذلك وماذا تريد بالضبط؟

طبعاً طريقتك خطأ، لأنه إذا كنت تريد تحذف سجل محدد لازم تحدده ب WHERE مع اسم الحقل يعني مثل

PHP كود :

DELETE FROM [table1] WHERE [column1] = ? 


[php3]

اشكرك اخي الوليد
ولكن ماهو الكود المناسب
اذا ممكن التعديل على الكود التي وضعته انا
شكرا لك

[php3]

شكرا لكم
تم الحل وقمت بإضافة هذا الكود

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

وانا اسف اذا كان الطلب يلزمني كتابة موضوع جديد ام لا

شكرا لكم