[Necro PC]

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

[اسامه الهرماوي]

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

كود :

  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()

[Necro PC]

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

[Jounior_P]

كود :

If con.State = 1 Then con.Close
con.Open
----
-----
-----
----
con.Close

[Necro PC]

نفس الخطأ أخي :
   

[اسامه الهرماوي]

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

[Jounior_P]

اين ال Connection String ؟؟؟؟

كود :

Dim con As New OleDbConnection("Provider=Microsoft.ace.oledb.12.0; Data Source =" & Application.StartupPath & "\Database.accdb")

[اسامه الهرماوي]

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

كود :

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

[Necro PC]

حدث خطأ آخر :

   

[Jounior_P]

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

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

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

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