السلام عليكم و رحمة الله و بركاته عندي برنامج مربوط بقاعدة بيانات 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()
بعد تعريف Dim con As New OleDbConnection و تنفيذ المشروع يظهر التالي :
[
attachment=26820]
فهل من حل ؟
كود :
If con.State = 1 Then con.Close
con.Open
----
-----
-----
----
con.Close
أولاُ con = متغير جملة الإتصال الأساسية وليس متغيراً فقط.
ثانياً: تأكد من اسم الجدول.
اين ال 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")
الخطأ الآن في جملة Delete
وألاحظ انك استخدمت ال Connection String كما هو ... فهل اسم ملف قاعدة البيانات لديك هو Database ؟؟؟
وهل اسم الجدول لديك هو Table ؟؟؟؟
اعتقد انه من الافضل ارفاق مشروعك للتعديل عليه