---
title: "Insert i SQL-databas som inte vill funka"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/27664-insert-i-sql-databas-som-inte-vill-funka"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Frejan"
published: "2001-10-01T14:08:00.000Z"
updated: "2001-10-09T13:33:00.000Z"
replies: 3
views: 272
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/27664-insert-i-sql-databas-som-inte-vill-funka"
---

# Insert i SQL-databas som inte vill funka

## #1 — Frejan, 2001-10-01T14:08Z

Tja tja...

Är det någon som ser något fel i denna koden??

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
Public Function Insert_Course_Date(nCourse_id As Integer, dStart_date As Date, \_
                              sPlace As String, sInstructor As String, \_
                              sSystem_admin As String, sChecklist As String) As Variant
                              
Dim cmd As ADODB.Command
Dim New_Course_Date_Id As Integer
Dim nCourse_Date_id As Integer

On Error GoTo ErrorHandler

    ' call the stored procedure
    Set cmd = New ADODB.Command

    With cmd
        .ActiveConnection = moConnection
        .CommandType = adCmdStoredProc
        .CommandText = "usp_Insert_Course_Date"

        .Parameters.Append cmd.CreateParameter("course_id", adInteger, \_
        adParamInput, , nCourse_id)

        .Parameters.Append cmd.CreateParameter("start_date", adDBDate, \_
        adParamInput, , dStart_date)

        .Parameters.Append cmd.CreateParameter("place", adVarChar, \_
        adParamInput, Len(sPlace) + 1, sPlace)

        .Parameters.Append cmd.CreateParameter("instructor", adVarChar, \_
        adParamInput, Len(sInstructor) + 1, sInstructor)

        .Parameters.Append cmd.CreateParameter("system_admin", adVarChar, \_
        adParamInput, Len(sSystem_admin) + 1, sSystem_admin)
        
        .Parameters.Append cmd.CreateParameter("checklist", adVarChar, \_
        adParamInput, Len(sChecklist) + 1, sChecklist)

        .Parameters.Append cmd.CreateParameter("course_date_id", adInteger, \_
        adParamOutput, , nCourse_Date_id)

        .Execute

        'Read the new id
        New_Course_Date_Id = .Parameters.Item("course_date_id").Value
    End With

    'Return the recordset
    Insert_Course_Date = CVar(New_Course_Date_Id)

    'Clean
    Set cmd = Nothing

Exit Function

ErrorHandler:
    'Clean
    Set cmd = Nothing
    Call HandleErrors("DOCCourse", "Insert_Course_Date", "Inparameters: " & \_
    nCourse_id & ", " & dStart_date & ", " & sPlace & ", " & sInstructor & ", " \_
    & sSystem_admin & ", " & sChecklist)

End Function

Inparametrarna kommer från ett ASP-gränssnitt och det jag vill göra är en insert i en SQL-databas. Får inga felmeddelanden men ingenting infogas i databasen...

Permalänk: https://www.webforum.nu/p/27664

## #2 — Frejan, 2001-10-04T07:30Z

Om det är någon som är duktig på Visual Basic som tittar på koden och som tycker att det ser ut som om den är korrekt. Skriv gärna det så att jag kan utesluta den felkällan.

Jag är helt borta...
Vidareutvecklar ett befintligt system och har bara plockat från tidigare fungerande kod.

Permalänk: https://www.webforum.nu/p/399808

## #3 — Frejan, 2001-10-09T11:17Z

Tack så jättemycket för hjälpen alla VB-gurus....(hmmmm)

Jag kan meddela att jag hittade problemet och det var en inställning i SQL-databasen.

Permalänk: https://www.webforum.nu/p/399809

## #4 — @nders, 2001-10-09T13:33Z

Varsågod. ;)

Jag måste bara passa på att även i denna tråd tipsa om [SQL-forumet](http://cgi.webforum.nu/wfcgi/forumdisplay.cgi?action=topics&forum=SQL&number=42&DaysPrune=30&LastLogin=) i webbrelaterat, där det finns en del kompetent folk som kanske hade kunnat svara på din fråga.

Till nästa gång alltså. :)

Mvh,

Permalänk: https://www.webforum.nu/p/399810

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/27664-insert-i-sql-databas-som-inte-vill-funka