syntaxfel i inset into access database
Dim SqlCmd As New OleDbCommand("INSERT INTO VSBog( " & _" Kapitel, Sektion, Dokument, InstruksBilag, Dokumentnavn, Formaal, Gyldighedsomraade, Ansvarlig, Definitioner, DokumentText, Undtagelser, UdgaveNr, Procedure, Status, Godkendt, DatoForOpretelse, DatoForGodkendelse, DatoForRettelse, UdarbejdetRettetAf, GodkendtAf, GyldigFra, KladdeId ) VALUES " & _
"( @Kapitel, @Sektion, @Dokument, @InstruksBilag, @Dokumentnavn, @Formaal, @Gyldighedsomraade, @Ansvarlig, @Definitioner, @DokumentText, @Undtagelser, @UdgaveNr, @Procedure, @Status, @Godkendt, @DatoForOpretelse, @DatoForGodkendelse, @DatoForRettelse, @UdarbejdetRettetAf, @GodkendtAf, @GyldigFra, @KladdeId );", Conn)
SqlCmd.Parameters.AddWithValue("@kapitel", VSDokument.Kapitel)
SqlCmd.Parameters.AddWithValue("@Sektion", VSDokument.Sektion)
SqlCmd.Parameters.AddWithValue("@Dokument", VSDokument.Dokument)
SqlCmd.Parameters.AddWithValue("@InstruksBilag", VSDokument.Instruksbilag)
SqlCmd.Parameters.AddWithValue("@Dokumentnavn", VSDokument.DokumentNavn)
SqlCmd.Parameters.AddWithValue("@Formaal", VSDokument.Formaal)
SqlCmd.Parameters.AddWithValue("@Gyldighedsomraade", VSDokument.Gyldighedsomraade)
SqlCmd.Parameters.AddWithValue("@Ansvarlig", VSDokument.Ansvar)
SqlCmd.Parameters.AddWithValue("@Definitioner", VSDokument.Definitioner)
SqlCmd.Parameters.AddWithValue("@DokumentText", VSDokument.DokumentText)
SqlCmd.Parameters.AddWithValue("@Undtagelser", VSDokument.Undtagelser)
SqlCmd.Parameters.AddWithValue("@UdgaveNr", VSDokument.Udgavenr)
SqlCmd.Parameters.AddWithValue("@Procedure", VSDokument.procedure)
SqlCmd.Parameters.AddWithValue("@Status", VSDokument.Status)
SqlCmd.Parameters.AddWithValue("@Godkendt", VSDokument.Godkendt)
SqlCmd.Parameters.AddWithValue("@DatoForOpretelse", VSDokument.DatoForOpretelse)
SqlCmd.Parameters.AddWithValue("@DatoForGodkendelse", VSDokument.DatoForGodkendelse)
SqlCmd.Parameters.AddWithValue("@DatoForRettelse", VSDokument.DatoForRettelse)
SqlCmd.Parameters.AddWithValue("@UdarbejdetRettetAf", VSDokument.UdarbejdetRettetAf)
SqlCmd.Parameters.AddWithValue("@GodkendtAf", VSDokument.GodkendtAf)
SqlCmd.Parameters.AddWithValue("@GyldigFra", VSDokument.GyldigFra)
SqlCmd.Parameters.AddWithValue("@KladdeId", VSDokument.KladdeId)
SqlCmd.ExecuteNonQuery()