MS Access prepared statements

Ist es möglich, führen Sie eine vorbereitete Anweisung in MS-Access auf eine lokale Tabelle in VBA so:

UPDATE part SET part_description=? WHERE part_id=?

Wenn ja, wie wird es gemacht?

InformationsquelleAutor David | 2011-07-04
  1. 16
    Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSql As String
Set db = CurrentDb
strSql = "UPDATE Month_Totals Set item_date = [which_date]" & _
    " WHERE id = [which_id];"
Debug.Print strSql
Set qdf = db.CreateQueryDef(vbNullString, strSql)
With qdf
    .Parameters("which_date").Value = Date()
    .Parameters("which_id").Value = 1
    .Execute dbFailOnError
End With

    Beispiel, dass eine neue, nicht gespeicherte QueryDef. Wenn Sie eine gespeicherte parameter-Abfrage, können Sie es verwenden, stattdessen ersetzt durch diese Zeile für die CreateQueryDef Linie:

    Set qdf = db.QueryDefs("YourQueryName")

    Entweder Weg, Sie können beziehen sich dann auf einzelne Parameter, die mit Namen, so wie ich, oder Ihre Positionen in der SQL-Anweisung ... also das funktioniert wie oben:

    .Parameters(0).Value = Date()
.Parameters(1).Value = 1

    Zusätzliche Hinweise:

    1. .Value ist die Standard-Eigenschaft für ein Parameter, so wie es hier ist nicht unbedingt erforderlich. Auf der anderen Seite schadet es nicht explizit genannt werden.
    2. Als Gord unten angemerkt, können Sie mit "Bang-notation" mit dem parameter name wie !which_id, die ist präziser als .Parameters("which_id")
    • "Bang-notation" arbeitet auch für die Einstellung der parameter-Werte, z.B. qdf!which_id = 1
    InformationsquelleAutor HansUp
Schreibe einen Kommentar