// Variable Declarations
Var dbRow As RowSet
Var blnTest As Boolean = False
Var strDate As String = modSysFunc.mthDate
Var strTime As String = modSysFunc.mthTime
// Code in Action!
If ( dbJHGC_Events.Connect ) = True Then
'dbRow = modSel.mthSel_EventTracker( strVendorId, strEventId )
dbRow = dbJHGC_Events.SelectSQL( "SELECT * FROM tblEventTracking WHERE vendorID=? AND eventID=?", strVendorId, strEventId )
If( dbRow ) = Nil Then
MsgBox "Record Set Error: " + Str(dbJHGC_Events.ErrorCode) + EndOfLine + EndOfLine + dbJHGC_Events.ErrorMessage _
+ EndOfLine + EndOfLine + "Error generated from: modUpd.mthUpd_EventTracker." )
Exit
Else
Try
dbRow.EditRow
dbRow.Column("vendorID").StringValue = strVendorId
dbRow.Column("eventID").StringValue = strEventId
dbRow.Column("daysRequested").StringValue = strDaysReq
dbRow.Column("attended").StringValue = strAttend
dbRow.Column("cancelled").StringValue = strCancelled
dbRow.Column("howCancelled").StringValue = strHowCanx
dbRow.Column("notes").StringValue = strNotes
dbRow.Column("whoSigned").StringValue = strStaff
dbRow.SaveRow
dbRow.Close
blnTest = True
Catch
MessageBox( "Oh crap! UPDATE didn't update... Call Ian!!!" )
End Try
End If
Return blnTest
ElseIf dbJHGC_Events.Error Then
// Testing for issues in the DB tissues!
Beep
MsgBox "Database Error: " + Str( dbJHGC_Events.ErrorCode ) + EndOfLine + EndOfLine + dbJHGC_Events.ErrorMessage
Exit
End If
Thing is another query similar to this seems to work fine. What they hey? I step through the code and the dbRow has values as do all the pertinent variables and there are no errors. It just dosn’t save changes…