Database update ?
Hejsa,Jeg har en function der skal opdatare en record i databasen. Men problemet er at den ikke foretager sig noget. Jeg får ingen fejl, men ExecuteNonQuery() retuere 0 for antal records der er blevet opdateret og det forstår jeg ikke helt :
Public Function EditTeam(ByVal TeamId As Integer, _
ByVal TeamName As String, _
ByVal TeamDay As String, _
ByVal TeamTime As String, _
ByVal TeamMax As Integer, _
ByVal GroupBy As Integer) As Integer Implements iBookingData.EditTeam
Dim objComm As OleDbCommand = New OleDbCommand
'--- Sætter database parametre.
objComm.Parameters.Add("@TeamId", OleDbType.Integer)
objComm.Parameters.Add("@TeamName", OleDbType.VarChar)
objComm.Parameters.Add("@TeamDay", OleDbType.VarChar)
objComm.Parameters.Add("@TeamTime", OleDbType.VarChar)
objComm.Parameters.Add("@TeamMax", OleDbType.Integer)
objComm.Parameters.Add("@GroupBy", OleDbType.Integer)
'--- Sætter value på parametre.
objComm.Parameters("@TeamId").Value = TeamId
objComm.Parameters("@TeamName").Value = TeamName
objComm.Parameters("@TeamDay").Value = TeamDay
objComm.Parameters("@TeamTime").Value = TeamTime
objComm.Parameters("@TeamMax").Value = TeamMax
objComm.Parameters("@GroupBy").Value = GroupBy
objComm.Connection = objDb.AccessConnect
'HttpContext.Current.Response.Write(@TeamId)
'--- Laver sql update i database.
objComm.CommandText = "Update tbl_booking Set " _
+ "TeamName = @TeamName, TeamDay = @TeamDay, " _
+ "TeamTime = @TeamTime, TeamMax = @TeamMax, " _
+ "GroupBy = @GroupBy Where Id = @TeamId"
objComm.ExecuteNonQuery()
objComm.Parameters.Clear()
objDb.AccessClose()
RemoveCacheAllDay()
RemoveCacheAll()
'--- Retunere id'et
Return TeamId
End Function
Jeg har oxo prøvet at gå helt uden om mit buesness lag, samt mit interface blot for at se om det var der, der opstod problemer.
/Websam
