Hejsan,

Jag har ett problem som stör mig! Jag försöker spara ner ett antal variabler till databasen men den hakar upp sig när jag försöker spara variabeln referensnummer, vilken är line 97.

Om någon kan förklara varför vore jag grymt tacksam. Det går hur bra som hälst när jag sätter raden som kommentar.

MVH

Peter Nilsson

----- Felmeddelande -----
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

/testver05/inc/application1.asp, line 97
----------------------------

----- Koden --------------
'Gör variabeln referensnummer genom att hämta nuvarande studentnummer
'och lägg till en, sätt sedan samman detta med tidigare variabeln ar resultat ex. 2006-78
Set rsUser = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT vs.studentnummer FROM vanligtsokande as vs, settingsbasic as sb WHERE vs.ar = sb.scholarYear ORDER BY vs.studentnummer DESC;"
Set rsUser = MinCon.Execute(SQL)
If rsUser.EOF Then
studentnummer = 1
Else
studentnummer = rsUser("studentnummer") + 1
End If
rsUser.Close
Set rsUser = Nothing

referensnummer = CStr(ar &"-"& studentnummer)

'Lägg till en student i databasen med nedanstående fält som ej null-värden.
Set rsSave = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * From vanligtsokande WHERE 1 = 2"
rsSave.Open SQL, MinCon, 1, 2
rsSave.AddNew
RAD 97--- rsSave("referensid") = referensnummer
rsSave("studentnummer") = studentnummer
rsSave("studenttyp") = studenttyp
rsSave("ar") = ar
rsSave("skapad") = Now()
rsSave.Update
rsSave.Close
Set rsSave = Nothing
----------------------------

Går det bra med de övriga fälten om du kommenterar bort referensid?

Troligtvis har du stavat fel på fältet. Kontrollera att den verkligen heter referensid i tabellen.

Det finns en motsvarande post i databasen med exakt samma namn. Det är därför jag är lite fundersam över vad det kan vara.

Får man fråga vad följande rad gör?

<b>SQL = "SELECT * From vanligtsokande WHERE 1 = 2"</b>

Heter ett fält "1"?

/ Per

Hej Per,

Jag lägger till en rad i den aktuella tabellen, hur gör du det? Jag vet att det finns flera sätt för detta, kan du ge mig förslag på något annat så kan jag testa, men jag har aldrig haft problem med detta tidigare.

MVH

Peter Nilsson

Titta på kommandot UPDATE istället.
pseudokod: UPDATE Tabell SET tblname = värde WHERE id = någotID


//Anna-Karin

Vad det är jag försöker göra är att skapa en ny post (rad) i en tabell i en databas. Inte uppdatera tidigare poster.

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Const adCmdTableDirect = 512

    'Gör variabeln referensnummer genom att hämta nuvarande studentnummer
    'och lägg till en, sätt sedan samman detta med tidigare variabeln ar resultat ex. 2006-78
    SQL = "SELECT Max(vs.studentnummer) AS studentnummer" & vbCrLf &
          "FROM vanligtsokande AS vs INNER JOIN settingsbasic AS sb ON vs.ar = sb.scholarYear" & vbCrLf
    Set rsUser = MinCon.Execute(SQL)
    If IsNull(rsUser("studentnummer")) Then
        studentnummer         = 1
    Else
        studentnummer         = rsUser("studentnummer") + 1
    End If   
    rsUser.Close
    Set rsUser = Nothing

    referensnummer                = CStr(ar &"-"& studentnummer)

    'Lägg till en student i databasen med nedanstående fält som ej null-värden.
    SQL = "INSERT INTO vanligtsokande (referensid, studentnummer, studenttyp, ar, skapad)" & vbCrLf &
          "VALUES ('" & referensnummer & "', " & studentnummer & ", " &studenttyp & ", " & ar & ", Now())"
    MinCon.Execute SQL