حذف جميع سجلات

بدأه فاضل الكعبي في 31 أكتوبر 2011 · 5 رد · 779 مشاهدة · في ADO.NET

#131 أكتوبر 2011 في 20:42 صاحب الموضوع

السلام عليكم

اريد ان احذف جميع سجلات الجدول وقد بحثت كثيرا واني استخدم قاعدة بيانات اكسس وقد استخدمت جملة الحذف ولم تفلح

Try
            Dim Sql1 As String = "select * from vacation "
            Dim da1 As New OleDbDataAdapter(Sql1, conn)
            Dim ds1 As New DataSet
            ds1.Clear()
            da1.Fill(ds1, "vacation")
            Dim sqlIdelete As String = "delete * from vacation"
            da1.DeleteCommand = New OleDbCommand(sqlIdelete, conn)
            'da1.DeleteCommand.Parameters.Clear()
            Me.BindingContext(ds1, "vacation").EndCurrentEdit()
            da1.Update(ds1, "vacation")
            MsgBox("تم التحديث بنجاح", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Information)
        End Try

وكيف يمكن تشغيل استعلام باستخدام vb.net مثل استعلام الحذف او الالحاق

#231 أكتوبر 2011 في 22:13

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

الخطأ الأساسي في كودك هي الـ * في جملة الحذف : "delete * from vacation"

إنظر إلى الكود التالي :

Dim ole_database_connection As New OleDb.OleDbConnection
Dim ole_database_command As New OleDbCommand
database_path = "databasepath"
ole_database_connection.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0 ;DATA SOURCE=" & database_path
ole_database_command.Connection = ole_database_connection

ole_database_command.CommandText = "DELETE FROM vacation WHERE " & شرط الحذف
إذا كنت تريد حذف السجلات التي تحقق حقولها شرط معين
أو
ole_database_command.CommandText = "DELETE FROM vacation " 
إذا كنت تريد حذف جميع السجلات

ole_database_command.ExecuteNonQuery()

أما عن سؤالك : "وكيف يمكن تشغيل استعلام باستخدام vb.net مثل استعلام الحذف او الالحاق "

فالجواب هو :

ole_database_command.ExecuteNonQuery()

تم تعديل هذه المشاركة بواسطة DOWNLOADER في 31 أكتوبر 2011 في 23:00

#331 أكتوبر 2011 في 22:15

السلام عليكم ..

الخطأ هنا ..

 Dim sqlIdelete As String = "delete * from vacation"

و المفروض :

 Dim sqlIdelete As String = "delete  from vacation"

تعديل :

لم أرى مشاركة الأخ DOWNLOADER ...بارك الله بك ..

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 31 أكتوبر 2011 في 22:16

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#431 أكتوبر 2011 في 23:33

السلام عليكم اولا اشكركم لمشاركتكم لي

ولكن انا عندي وندوز 7 وكل الذي اردتموه عملته لكن لا يطبق عندي هل المشكلة من الوندوز نفسه

اقتباس
أما عن سؤالك : "وكيف يمكن تشغيل استعلام باستخدام vb.net مثل استعلام الحذف او الالحاق "
فالجواب هو :
plain text
ole_database_command.ExecuteNonQuery()

انني عامل استعلام في الاكسس واريده ان ينفذ في الفيجول دوت نت

#513 نوفمبر 2011 في 20:46

مرة صار معي نفس الشي حيث الحذف لا يتم فقمت بوضع البرنامج مع قاعدة البيانات بمسار قريب اي غير مثل المستندات فمشي الحال و لا اعرف السبب ارجو يفسر ذلك احد

#613 نوفمبر 2011 في 23:24