Делет записи
конект к базе:
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
не удаляет...
Во первых On Error Resume Next в обоих случаях не по делу. Ошибки надо обрабатывать.
Теперь конкретно про Delete.
Тебе надо организовать еще один Recodset по запросу "Select * FROM kat WHERE id = 13" и для этого Recodset в цикле пройти по всем записям и для каждой записи выполнить Delete.
Цитата:
Originally posted by Tiraspolsky
Естественно.
Во первых On Error Resume Next в обоих случаях не по делу. Ошибки надо обрабатывать.
Теперь конкретно про Delete.
Тебе надо организовать еще один Recodset по запросу "Select * FROM kat WHERE id = 13" и для этого Recodset в цикле пройти по всем записям и для каждой записи выполнить Delete.
Естественно.
Во первых 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