Pytanie : Dlaczego I kasować wszystkie rejestr od ADODB recordset?

Cześć,

Given pewny warunek, I polubić wszystkie the rejestr w ADODB recordset.  Zadawalać odnosić sie the kod kod.  W zasadzie, I porównywać dwa recordsets, rstDossier i rstTemp.  Jeżeli rstTemp być pusty, I właśnie polubić deleatur wszystkie the rejestr w rstDossier i wtedy wychodzić the okręt podwodny.  

What być the poprawny kod dla wszystkie the rejestr od rstDossier?

Thank ty i uwzględnienie,
Saleve
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
Dim rstDossier Jako ADODB.Recordset
Ciemnawy rstTemp Jako ADODB.Recordset
Ciemnawy sql Sznurek
Ustalony rstDossier = Nowy ADODB.Recordset
Ustalony rstTemp = Nowy ADODB.Recordset

'Definiować i Otwierać recordset tbl_Dossier
sql = "WYBRANY tbl_Dossier.* OD tbl_Dossier; "

rstDossier.Open sql, CurrentProject.Connection, _
         adOpenStatic, adLockOptimistic
         
'Definiować i Otwierać recordset tbl_TempDossierRecordSource
sql = "WYBRANY tbl_tempDossierRecordSource.* OD tbl_tempDossierRecordSource; "
     
rstTemp.Open sql, CurrentProject.Connection, _
         adOpenStatic, adLockOptimistic
         
'Porównywać oba recordsets i aktualizować tbl_Dossier tempDossierRecordSource
    
'Deleatur: usuwać rejestr od tbl_Dossier który być w the zastępca stół
'jeżeli tam  być żadny rejestr opuszczać w the zastępca stół
'wtedy kasować wszystkie rejestr w tbl_Dossier i wychodzić okręt podwodny
      Jeżeli rstTemp.RecordCount = (0) Wtedy

Odpowiedź : Dlaczego I kasować wszystkie rejestr od ADODB recordset?

Być ono rstdossier.delete?
Inne rozwiązania  
 
programming4us programming4us