Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Делет записи

7.9K
19 января 2006 года
ip027
55 / / 20.12.2005
ребят, подскажите как запись удалить?

конект к базе:

Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'Connection Confirmation
Private Sub Form_Load()
Combo1.clear
List1.clear
On Error Resume Next
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=db1.mdb;"
cn.Open


команда на удаление:

Private Sub cmdDelete_click()
On Error Resume Next
If MsgBox("Are you sure you wan't to delete record", vbOKCancel + vbExclamation, "Deleting Record") = vbOK Then
rs.Delete "FROM kat WHERE id = 13"
rs.MoveFirst
Call Form
End If
End Sub

не удаляет...
648
19 января 2006 года
Tiraspolsky
220 / / 23.07.2003
Естественно.
Во первых On Error Resume Next в обоих случаях не по делу. Ошибки надо обрабатывать.
Теперь конкретно про Delete.
Тебе надо организовать еще один Recodset по запросу "Select * FROM kat WHERE id = 13" и для этого Recodset в цикле пройти по всем записям и для каждой записи выполнить Delete.
7.9K
19 января 2006 года
ip027
55 / / 20.12.2005
Цитата:
Originally posted by Tiraspolsky
Естественно.
Во первых On Error Resume Next в обоих случаях не по делу. Ошибки надо обрабатывать.
Теперь конкретно про Delete.
Тебе надо организовать еще один Recodset по запросу "Select * FROM kat WHERE id = 13" и для этого Recodset в цикле пройти по всем записям и для каждой записи выполнить Delete.


спосибо, я уже нашел выход, простоrs.delete- вызывается без параметров, и должна удолять текущую запись,я сделал так:

Private Sub cmdDelete_click()
On Error Resume Next
If MsgBox("Âû äåéñòâèòåëüíî õîòèòå óäàëèòü çàïèñü " & vbCrLf & " ' " & Tname.Text & " ' ", vbOKCancel + vbExclamation, "Óäàëåíèå") = vbOK Then
rs.Open "Delete * FROM firm WHERE id = " & Tid.Text & " "
Call Form
End If
rs.Close
Set rs = Nothing
End Sub

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог