منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود لحذف جميع البيانات من قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود لحذف جميع البيانات من قاعدة البيانات (/showthread.php?tid=38949)

الصفحات: 1 2


كود لحذف جميع البيانات من قاعدة البيانات - Necro PC - 14-07-21

السلام عليكم و رحمة الله و بركاته عندي برنامج مربوط بقاعدة بيانات access 2013، هل من الممكن كود لحذف جميع البيانات من هذه القاعدة يعني تنحذف البيانات من الداتا جريد فيو و Table1 ولا يبقى أي شيء، و آمل أن تكونو قد فهمتم قصدي، و شكرا


RE: كود لحذف جميع البيانات من قاعدة البيانات - اسامه الهرماوي - 14-07-21

وعليكم السلام...
كود حذف "جميع" بيانات الجدول:

كود :
  If con.State = ConnectionState.Closed Then
           con.Open()
       End If

       Dim cmd2 As New OleDbCommand
       cmd2.Connection = con
       cmd2.CommandType = CommandType.Text
       cmd2.CommandText = "DELETE FROM Table"

       cmd2.ExecuteScalar()
       con.Close()



RE: كود لحذف جميع البيانات من قاعدة البيانات - Necro PC - 14-07-21

بعد تعريف Dim con As New OleDbConnection و تنفيذ المشروع يظهر التالي :
[attachment=26820]
فهل من حل ؟


RE: كود لحذف جميع البيانات من قاعدة البيانات - Jounior_P - 14-07-21

كود :
If con.State = 1 Then con.Close
con.Open
----
-----
-----
----
con.Close



RE: كود لحذف جميع البيانات من قاعدة البيانات - Necro PC - 14-07-21

نفس الخطأ أخي :
[attachment=26821]


RE: كود لحذف جميع البيانات من قاعدة البيانات - اسامه الهرماوي - 15-07-21

أولاُ con = متغير جملة الإتصال الأساسية وليس متغيراً فقط.
ثانياً: تأكد من اسم الجدول.


RE: كود لحذف جميع البيانات من قاعدة البيانات - Jounior_P - 15-07-21

اين ال Connection String ؟؟؟؟
كود :
Dim con As New OleDbConnection("Provider=Microsoft.ace.oledb.12.0; Data Source =" & Application.StartupPath & "\Database.accdb")



RE: كود لحذف جميع البيانات من قاعدة البيانات - اسامه الهرماوي - 15-07-21

اللي هو الcon
أنا بفضل استخدام الكود السابق زي كدا:

كود :
Dim con As New OleDbConnection("Provider=Microsoft.ace.oledb.12.0; Data Source =|DataDirectory|\Database.accdb")



RE: كود لحذف جميع البيانات من قاعدة البيانات - Necro PC - 17-07-21

حدث خطأ آخر :

[attachment=26823]


RE: كود لحذف جميع البيانات من قاعدة البيانات - Jounior_P - 17-07-21

الخطأ الآن في جملة Delete

وألاحظ انك استخدمت ال Connection String كما هو ... فهل اسم ملف قاعدة البيانات لديك هو Database ؟؟؟

وهل اسم الجدول لديك هو Table ؟؟؟؟

اعتقد انه من الافضل ارفاق مشروعك للتعديل عليه