カスタム削除手続きdevexpressスケジュール

Question

私はリストからアポイントメントを削除したいが、私はそれを私のデータベースから削除しないでください。私はこのコードを使用しますが、動作しません。

Private Sub schedulerControl_DeleteAppointmentFormShowing(sender As Object, e As AppointmentFormEventArgs) Handles schedulerControl.DeleteRecurrentAppointmentFormShowing 
    Dim scheduler As DevExpress.XtraScheduler.SchedulerControl = CType(sender, DevExpress.XtraScheduler.SchedulerControl) 
    Try 
     If koneksiDB.State = ConnectionState.Open Then 
      'proses simpan DB 
      Dim cmd As New SqlCommand("update Appointments set isdeleted = 1 where UniqueID = @Kode", koneksiDB) 
      Dim apt As Appointment = schedulerControl.SelectedAppointments(0) 
      Dim dr As DataRowView = CType(apt.GetSourceObject(schedulerStorage), DataRowView) 
      Dim id As Integer = Convert.ToInt64(dr("UniqueID")) 
      cmd.Parameters.AddWithValue("kode", id) 
      cmd.ExecuteNonQuery() 
      RefreshDB() 
     Else 
      MsgBox("Maaf koneksi dengan database terputus. harap memperbaiki koneksi terlebih dahulu.") 
     End If 
    Catch ex As Exception 
     MsgBox("Maaf, terjadi permasalahan teknis :" & Chr(13) & ex.Message & Chr(13) & Chr(13) & "Silakan catat dan hubungi pihak teknisi bila diperlukan.", MsgBoxStyle.Exclamation) 
    End Try 
End Sub 

Answer 1

あなたは、パラメータを追加ライン：

cmd.Parameters.AddWithValue("@Kode", id) 

@文字が必要であるが最善と考えられていない。

cmd.Parameters.AddWithValue("kode", id) 

あなたは@文字と資本Kの文字を追加する必要が実践。しかし、私は[尋ねる]と[ツアー]を取り、コードなどのコードをフォーマットするために必要な30secsを取る読んでください、それは大文字と小文字が区別されると思いますので、資本K.

See this question for more details (Is it necessary to add a @ in front of an SqlParameter name?).