Private Sub DeleteProductADODB()
Dim rstVideos As ADODB.Recordset
Set rstVideos = New ADODB.Recordset
rstVideos.Open "SELECT * from Products where ID=5", _
CurrentProject.Connection, _
adOpenDynamic, adLockPessimistic, adCmdText
rstVideos.Delete
rstVideos.Close
Set rstVideos = Nothing
End Sub
حذف رکوردهای جدول اکسس توسط کتابخانه ADODB
وحید فرزام
1392-12-09 07:00:00
۲,۹۷۳ بازدید
کتابخانه ADODB قدرت زیادی در مدیریت رکوردهای یک بانک اطلاعاتی دارد. برای کار با این کتابخانه باید در محیط VBE اکسس از منوی Tools گزینه Preferences را انتخاب کرده و در پنجره باز شده عبارت Microsoft ActiveX Data Objects را انتخاب کنید (بالاترین نسخه موجود را انتخاب کنید)
حال با کد زیر نگاه کنید که یک رکورد از جدول کالاها را حذف می کند (البته به شرطی که اولا رکوردی موجود باشد و ثانیا قوانین جامعیت ارتباط برای شما محدودیت درست نکند)