حذف رکورد های یک جدول توسط دستور های SQL

کد زیر با استفاده از متد RunSQL تمام رکورد های جدول Produtcs (می توانید روی Northwind اجرا کنید) را حذف می کند :

Sub DeleteAllProducts()

Dim SQLStr As String

SQLStr = "Delete from Products"

DoCmd.RunSQL (SQLStr)

End Sub

برای حذف یک رکورد خاص از یک جدول می توانید آن را توسط دستور SQL مشخص کنید. کد زیر محصولی با شماره 3 را از جدول Products حذف می کند :

Sub DeleteProduct()

Dim SQLStr As String

SQLStr = "Delete from Products where ID=3"

DoCmd.RunSQL (SQLStr)

End Sub

نویسنده : وحید فرزام

تاریخ انتشار : 1392-12-09 03:30:00

2736

#آموزش-اکسس

0 نظر

تازه ترین ها