访问INSERT查询不适用于SQL Server链接表

Question

The code below is supposed to insert a record into the transactions table. The code runs with no errors, however when looking at the transactions table no new row has been inserted.

If txtMealID.ItemsSelected.Count = 0 Then

        MsgBox "Please Select a Meal Type", _
               vbOKOnly + vbInformation
Else
Dim vblMealType As String
vblMealType = txtMealID.Value
MsgBox " " & vblMealType & " ", vbCritical + vbApplicationModal
Set dbs = CurrentDb

Dim qdf As DAO.QueryDef
Set qdf = dbs.CreateQueryDef("", _
        "PARAMETERS prmCustomerID Long, prmMealID Text(255), prmTransactionAmount Currency, prmTransactionDate DateTime;" & _
        "INSERT INTO dbo_Transactions (CustomerID, MealID, TransactionAmount, TransactionDate) " & _
        "VALUES ([prmCustomerID], [prmMealID], [prmTransactionAmount], [prmTransactionDate]) ")


qdf!prmCustomerID = txtCustomerID.Value
qdf!prmMealID = vblMealType
txtCharge.SetFocus
qdf!prmTransactionAmount = txtCharge.Value

qdf!prmTransactionDate = Format(Date, "yyyy-mm-dd")
qdf.Execute dbFailOnError
 MsgBox "Customer Charge Succesfull.", _
              vbOKOnly + vbInformation

Set qdf = Nothing
Set dbs = Nothing

It appears that the problem is with the Set qdf Line. My MsgBox " " & vblMealType & " will not trigger when the Set qdf line is present.

Answer 1

You should test this workaround, avoiding using DAO query object, but rather using SQL execution provided by DAO::Database.

Private Sub sofInsert20036438_Click()

  If txtMealID.ItemsSelected.Count = 0 Then
    MsgBox "Please Select a Meal Type", _
      vbOKOnly + vbInformation
  Else

    Dim strSQL As String, vblMealType As String
    Dim dbs

    vblMealType = txtMealID.Value
    MsgBox " " & vblMealType & " ", vbCritical + vbApplicationModal
    Set dbs = CurrentDb

    'Dim qdf As DAO.QueryDef
    'Set qdf = dbs.CreateQueryDef("", _
    '  "PARAMETERS prmCustomerID Long, prmMealID Text(255), prmTransactionAmount Currency, prmTransactionDate DateTime;" & _
    '  "INSERT INTO dbo_Transactions (CustomerID, MealID, TransactionAmount, TransactionDate) " & _
    '  "VALUES ([prmCustomerID], [prmMealID], [prmTransactionAmount], [prmTransactionDate]) ")

    'qdf!prmCustomerID = txtCustomerID.Value
    'qdf!prmMealID = vblMealType
    'txtCharge.SetFocus
    'qdf!prmTransactionAmount = txtCharge.Value

    'qdf!prmTransactionDate = Format(Date, "yyyy-mm-dd")
    'qdf.Execute dbFailOnError

    strSQL = "INSERT INTO dbo_Transactions (CustomerID, MealID, TransactionAmount, TransactionDate) " _
      & "VALUES (" & txtCustomerID.Value _
      & ", '" & vblMealType & "'" _
      & ", " & txtCharge.Value _
      & ", #" & Format(Date, "yyyy-mm-dd") & "#);"

    dbs.Execute strSQL, dbSeeChanges

    If (dbs.RecordsAffected > 0) Then
      strSQL = "Customer Charge Succesfull."
    Else
      strSQL = "Error inserting."
    End If
    '
    MsgBox strSQL, vbOKOnly + vbInformation

'   Set qdf = Nothing
    Set dbs = Nothing
  End If
End Sub

Here the syntax of SQL string is supposed to use these fields definitions:

CustomerID: INT,
MealID: VARCHAR(255),
TransactionAmount: FLOAT,
TransactionDate: DATETIME.