Hvad betyder "System.IndexOutOfRangeException: Kommentar"=

Prøv at indsætte en post i db.

jeg går ud fra du har gang i noget java .. du får nok mere ud af at oprette spm der ..
og post din Query kode ... det ville hælpe

eller er det c# ?

ok vb.net ;) der kan jeg ikke følge med .

Hejsa...

Jeg koder i VB.NET hehe.

Nu har jeg "manuelt" smidt data i db. Nu kommer den ikke med nogen fejl, men jeg kan så tilgengæld heller ikke trække dataene ud, opdatere det eller tilføje nyt.

Jeg kan kun slette en hel række, hvor Kommentar feltet så også bliver slettet.

Hehe sært..........

Min kode til at indsætte:

Datatilgangs laget
--------------------------------------------------------------------------

Public Sub Add(ByVal genreId As Integer, ByVal statusID As Integer, ByVal sVideoId As String, ByVal sTitle As String, ByVal sLanguage As String, ByVal sMovieLength As String, ByVal sTapeLength As String, ByVal sMedia As String, ByVal sImage As String, ByVal sComment As String)
            Dim oConnection As New OleDbConnection(DB("Movies"))
            Dim oCommand As New OleDbCommand
            Dim oTrans As OleDbTransaction
            Try
                oConnection.Open()
                oTrans = oConnection.BeginTransaction
                With oCommand
                    .Connection = oTrans.Connection
                    .Transaction = oTrans
                    .CommandText = "INSERT INTO tblMovies (GenreID, StatusID, Video_id, Titel, Sprog, Film_længde, Bånd_længde, Medie, Billede, Kommentar) VALUES (@GenreID, @StatusID, @Video_id, @Titel, @Sprog, @Film_længde, @Bånd_længde, @Medie, @Billede, @Kommentar)"
                    .CommandType = CommandType.Text
                    .Parameters.Add("@GenreID", genreId)
                    .Parameters.Add("@StatusID", statusID)
                    .Parameters.Add("@Video_id", sVideoId)
                    .Parameters.Add("@Titel", sTitle)
                    .Parameters.Add("@Sprog", sLanguage)
                    .Parameters.Add("@Film_længde", sMovieLength)
                    .Parameters.Add("@Bånd_længde", sTapeLength)
                    .Parameters.Add("@Medie", sMedia)
                    .Parameters.Add("@Billede", sImage)
                    .Parameters.Add("@Kommentar", sComment)
                    .ExecuteNonQuery()
                End With
                oTrans.Commit()
            Catch exc As DataException
                oTrans.Rollback()
                Throw New DataException("Der skete en fejl under tilføjelsen af data i Add metoden! ", exc)
            Finally
                If Not oConnection Is Nothing Then
                    If oConnection.State <> ConnectionState.Closed Then
                        oConnection.Close()
                    End If
                    oConnection.Dispose()
                    oConnection = Nothing
                End If
            End Try
        End Sub

--------------------------------------------------------------------------
business lag
--------------------------------------------------------------------------

Public Sub Add(ByVal genreId As Integer, ByVal statusID As Integer, ByVal sVideoId As String, ByVal sTitle As String, ByVal sLanguage As String, ByVal sMovieLength As String, ByVal sTapeLength As String, ByVal sMedia As String, ByVal sImage As String, ByVal sComment As String)
            Try
                Dim obj As New Data.Admin
                obj.Add(genreId, statusID, sVideoId, sTitle, sLanguage, sMovieLength, sTapeLength, sMedia, sImage, sComment)
            Catch ex As Exception
                Throw ex
            End Try
        End Sub

--------------------------------------------------------------------------
UI lag med kontrol event:
--------------------------------------------------------------------------

Public Sub cmdInsert_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmdInsert.Click
            Dim genreId As Integer = CType(ddlMovieGenres.SelectedItem.Value, Integer)
            Dim statusId As Integer = CType(radListStatusId.SelectedItem.Value, Integer)
            Dim sVideoId As String = txtVideoId.Text
            Dim sTitle As String = txtTitle.Text
            Dim sLanguage As String = ddlLanguageTypes.SelectedItem.Value
            Dim sMovieLength As String = txtMovieLength.Text
            Dim sTapeLength As String = txtTapeLength.Text
            Dim sMedia As String = ddlMediaTypes.SelectedItem.Value
            Dim sImage As String = txtImage.Text
            Dim sComment As String = txtComment.Text
            Try
                Dim obj As New Business.Admin
                obj.Add(genreId, statusId, sVideoId, sTitle, sLanguage, sMovieLength, sTapeLength, sMedia, sImage, sComment)
                Response.Redirect(Request.ApplicationPath & "Secure/Admin.aspx?ItemID=1")
            Catch ex As Exception
                Throw ex
            End Try
        End Sub

Jeg kan ikke finde fejlen..... :(

luk dette og opret det i asp.net så tror jeg du har en bedre chance for svar ;(

nå ja....

det er sgu da Access det her! UPSSSSSSSSSSSSSSssssssssssssssssssss.....

Lukker