[Lathe1]

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

[سعود]

PHP كود :

Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\db.accdb")
            Using cm As New OleDbCommand("", con)
                con.Open()
                cm.CommandText = "delete from tb1"
                cm.ExecuteNonQuery()
                cm.CommandText = "delete from tb2"
                cm.ExecuteNonQuery()
                cm.CommandText = "delete from tb3"
                cm.ExecuteNonQuery()
                con.Close()
            End Using
        End Using 


[مصمم هاوي]

هل يمكن تحويل الكود للفيجوال بيسك 6؟
وماذا لو كانت الجداول كثيرة؟

[سعود]

هل يمكن تحويل الكود للفيجوال بيسك 6؟
وماذا لو كانت الجداول كثيرة؟

PHP كود :

con.Execute "delete from tb1"
con.Execute "delete from tb2"
con.Execute "delete from tb3" 


الحذف بدون شروط هو اسهل شيء.