１.Delete 방법

【서식】recordset.Delete 　

recordset：열려 있는 Recordset 오브젝트　　　　　　

【포인트】

1. Recordset 오브젝트의Delete방법을 이용하면 최신 레코드를 삭제할 수 있다．
2. Move계의 방법이나 Find 방법을 실행하고 삭제하는 레코드에 최신 레코드를 이동한 뒤에 삭제 처리를 실행한다．
3. 레코드 삭제한 뒤에는 최신 레코드가 미정의 상태가 되어 있다．이 때 'recordset！필드 이름'이라는 코드를 실행하면 최신 레코드의 내용을 참조할 수 없기 때문에 에러가 발생한다.

２.최신 레코드의 삭제

【사용 예】

　　　Public Sub DeleteRecord()
  　　　  Dim CN As ADODB.Connection
  　　　  Dim RS As ADODB.Recordset
  　　　  Dim ret As Integer
  　　　  Dim Str As String
    
  　　　  '접속
  　　　  Set CN = CurrentProject.Connection
    
 　　　   '레코드셋을 취득
 　　　   Set RS = New ADODB.Recordset
 　　　   RS.Open "학생 명부", CN, adOpenKeyset, adLockOptimistic
  　  
   　　　 '삭제
  　　　  Str = RS!학적 번호 & "  " & RS!성명 & Chr(13)　& "삭제합니까"
  　　　  ret = MsgBox(Str, vbYesNo, "삭제")

  　　　  IF ret=vbYes Then
      　　　  RS.Delete
     　　 Else
      　　　  Exit Sub
  　　　  End If
      
  　　　  '종료
  　　　  RS.Close:  Set RS = Nothing
   　　　 CN.Close:  Set CN = Nothing
　　　End Sub

３.모든 레코드를 삭제

Do ···Loop 성명으로 최신 레코드를 이동하면서 Delete 방법을 실행하면 레코드셋에 포함되고 있는 레코드를 전부 삭제하는 것이 가능하다．

【사용 예】

　　　Public Sub DeleteAll()
 　　　   Dim CN As ADODB.Connection
  　　　  Dim RS As ADODB.Recordset
  　　　  Dim Ret As Integer
    
   　　　 '접속
  　　　  Set CN = CurrentProject.Connection
    
  　　　  '레코드셋을 취득
  　　　  Set RS = New ADODB.Recordset
  　　　  RS.Open "학생 명부", CN, adOpenKeyset, adLockOptimistic
    
   　　　 '삭제
 　　　   Ret = MsgBox("모든 레코드를 삭제해 모요 여과지 있습니까", vbYesNo, "삭제")

  　　　 　IF Ret = vbYes Then
     　　　   Do Until RS.EOF
      　　　    RS.Delete
       　　　   RS.MoveNext
      　　　  Loop
           Else
       　　　 Exit Sub
    　　　 End Select
   
   　　　 '종료
   　　　 RS.Close:  Set RS = Nothing
   　　　 CN.Close:  Set CN = Nothing
　　　End Sub