Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Problem z zamykaniem rekordów
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004
Problem z zamykaniem rekordów

Witam. To znowu ja

Fragment kodu:

Call Aktualizacja("Konto", 3)
Call Usun


Private Sub Aktualizacja(Tabela As String, Index As Integer)
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From " & Tabela
Adodc1.Refresh
Adodc1.Recordset.Filter = "Nr_Konta='" & NrKonta(Index) & "'" & ""
End Sub

Private Sub Usun()
If (Not Adodc1.Recordset.BOF) Or (Not Adodc1.Recordset.EOF) Then
                                                                While (Not Adodc1.Recordset.EOF)
                                                                Adodc1.Recordset.Delete
                                                                Adodc1.Recordset.Update
                                                                ???????????????????????
                                                                Adodc1.Recordset.MoveNext
                                                                Wend
                                                  End If
End Sub


Działa to tak, że pierwsza procedura wyszukuje w bazie danych rekordy z podanym numerem konta a druga procedura, jeżeli takie są, usuwa je.

I pytanie jest takie:

Czy po usunięciu rekordu i update'owaniu go trzeba używać Cancel (czy Close?) żeby go zamknąć, a może nic nie trzeba robić? (tzn. tam gdzie są te znaki zapytania )

Gdy znajdzie jakiś rekord i dam Cancel (albo Close)
to po odpaleniu programu i uruchomieniu tego fragmentu wyskakuje jakiś błąd

Czekam na porady.

Z góry WLK THX i Pozdrawiam


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

25-05-2004 10:57
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Po usunięciu nic nie zrobisz z nim, bo go nie ma.
Ewentualnie, jeśli dałeś, że każda operacja ma być potwierdzana, to musisz zatwierdzić ją.

Proponuję, byś budował zapytania SQL i usuwał wszystkie określone przez Ciebie rekordy za pomocą SQL'a.

sSQL = "DELETE * FROM Tabela WHERE ((Nr_Konta='" & NrKonta(Index) & "')" & ";"

Wykonujesz ten kod i usunąłeś już wszystkie rekordy bez żadnej pętli.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

29-05-2004 15:20
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1