حذف رکورد های یک جدول توسط دستور های 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
1849

0 نظر

user


تازه ترین ها