so löschen Sie alle DB Reihen über OpenRecordset (DAO)

So löschen Sie alle Zeilen aus der Tabelle, bevor Sie Sie?

InformationsquelleAutor Tom | 2009-09-14
  1. 2

    Zwei Dinge. Erste, DAO vs. ADO ist fast irrelevant. Sie sind sowohl zur Verfügung, um den Zugriff durch Windows 7 und AFAIK gibt es keine Pläne, Sie zu entfernen. Entweder sollte OK sein für den Einsatz in Access.
    Zweitens, können Sie genau dies tun:

    Public Sub Example()
    With Access.CurrentDb
        .Execute "DELETE Table2.* FROM Table2;"
        .Execute "INSERT INTO Table2 ( fld1, fld2 ) SELECT Table1.ID, Table1.MyField FROM Table1;"
    End With
End Sub

    Konnte man nur zu diesem:

    Public Sub Example()
    With Access.DoCmd
        .RunSQL "DELETE Table2.* FROM Table2;"
        .RunSQL "INSERT INTO Table2 ( fld1, fld2 ) SELECT Table1.ID, Table1.MyField FROM Table1;"
    End With
End Sub

    Aber die Execute-Methode wirft aussagekräftigere Fehlermeldungen (und wenn Sie noch Pflege, ist DAO).

    • Ich würde gerne einen Punkt hinzufügen, der auf die DAO-und ADO-Thema. Beatles1692 bietet eine ADO-Methode. Oorang bietet eine Methode, die WEDER das eine noch das andere-es ist eine Access-VBA-Methode.
    • Tatsächlich, die Methode ist DAO;) Wenn Sie das Kontrollkästchen, currentdb ist Eigentum, wenn die DAO.Datenbank-Typ. RunSQL ist die Methode des DAO.Datenbank-Objekt. Es ist nur, dass der Zugang integriert, DAO in, es ist ein eigenes Objekt-Modell mehr vollständig dann ADO.
    InformationsquelleAutor Oorang
  2. 1

    Wenn Sie Programmieren vba ich nehme an, Sie arbeiten mit Adodb oder einfach nur ADO.
    Deshalb, um das löschen einer Tabelle Datensätze, die Sie verwenden können, ein command-Objekt, das zu tun.

    Dim cnn as Connection
Dim cmd as Command

Set cnn=new Connection()
cnn.ConnectionString="ConnectionString"
cnn.Open()

Set cmd=new Command()
cmd.ActiveConnection=cnn
cmd.CommandText="DELETE FROM MyTable"
cmd.Execute()

cnn.Close()

    Aktualisiert:
    Um ADO-Objekte sollten Sie fügen Sie einen Verweis auf ADODB-Bibliothek

    • Ich benutze DAO, nicht ADO
    • Ich empfehle Ihnen, die Verwendung von ADO statt DAO
    • Es sollte eigentlich keine Rolle, welches Sie benutzen.
    • "Wenn Sie Programmieren vba ich nehme an, Sie arbeiten mit Adodb oder einfach ADO." Ich bin froh, dass diese "ich nehme an" qualifier in Ihre öffnung. Aber die Annahme ist unbegründet und wenig hilfreich. Wenn Sie glauben, dass ADO eine großartige Technologie, die Benutzer benötigen, wie dargestellt, keine Hinweis auf eine Notwendigkeit der Einführung von ADO.
    • Meh... Beide verwiesen wird, automatisch, wenn eine Datenbank erstellt wird. Die DAO vs. ADO-Debatte war nur dann relevant, wenn die Leute dachten, MS kann schließlich loszuwerden, DAO oder zumindest ersetzen Sie die DAO-Teile das Objektmodell von Access mit ADO. Aber Sie Tat es nie und jetzt ADO selbst gegeben hat, Weg zu ADO.Net. Und DAO ist immer noch da, und sogar RDO ist immer noch da. Ich glaube nicht, dass es darauf ankommt, ein wenig bit, die Sie verwenden, nicht mehr.
    • Das ist so alt, aber zur info, die beiden sind NICHT automatisch referenziert, wenn Sie eine neue DB-Datei. Nur die DAO ist. Müssen Sie ADO selbst.

    InformationsquelleAutor Beatles1692
  3. -1

    DAO-Recordsets nicht ein effektiver Weg, um leere die Tabelle, soweit ich weiß. Wenn es einen kleinen Tisch, wahrscheinlich können Sie Datensatz löschen-durch-Aufnahme, aber ich fände das albern. Ich habe gerade mit dem DoCmd.RunSQL ausführen eine Abfrage LÖSCHEN. Ich würde in der Regel SetWarnings False vorübergehend, natürlich.

    Da diese getrennt von DAO, ich würde sehen, dass der Betrieb durch die vor dem öffnen des Recordsets richtig.

    • DoCmd.RunSQL scheint, Menschen zu motivieren, verwenden SetWarnings = False was sowohl riskant und unnötig. stackoverflow.com/questions/11213892/... Statt RunSQL verwenden Sie die .Execute Methode der CurrentDb oder CurrentProject.Connection. Entweder von denen wird ausgeführt, die DELETE - Anweisung nur gut und nicht dazu verleiten, Sie zu setzen SetWarnings aus.
    • +1 und den guten Rat von HansUp. Ich tendiere dazu, eine Verfahrens -, nicht Objekt-Denkweise. Dieser arbeitet gegen mich.
    InformationsquelleAutor Smandoli
  4. -1

    Bitte versuchen Sie dies:

    Do While Not rs.EOF
rs.Delete
rs.MoveNext
Loop
    • Dies kann SEHR langsam sein.
    InformationsquelleAutor hhaseli
Schreibe einen Kommentar