Jättedumt felmeddelande

[Dahlgren]

Jag tänkte att jag skulle försöka mig på att placera in data i en tabell med SQL, innan har jag bara hållit på med typ; objRs.AddNew osv. Men jag har hört att det ska vara bra ibland att kunna göra operationer med SQL. Jag tror att jag nästan har lyckats men det är ett fel som jag har beskrivit under koden.

 

		strFornamn = Request.Form("name")
	strEfternamn = Request.Form("surname")

	Set objConn = Server.Createobject("ADODB.Connection")
	Set objRs = Server.Createobject("ADODB.Recordset")

	objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")

	strSQL = "INSERT INTO tabell1(FORNAMN,EFTERNAMN) VALUES('" & strFornamn & "','" & strEfternamn & "')"

	objRs.Open, objConn, strSQL, 3, 3
	Set objRs = objConn.Execute(strSQL)

	objRS.Close
	Set objRS = nothing
	objConn.Close
	Set objConn = nothing

 

Jag får felet:

--------------

 

Provider (0x80020005)

Typblandningsfel.

 

...på rad 21.

Rad 21 är: objRs.Open, objConn, strSQL, 3, 3

 

Vad kan det här bero på? Det är något enkelt va? Eller så är det så att jag har utformat hela koden på helt fel sätt.

 

Tack på förhand!

 

Mvh

 

[Kristianstad]

Testa:

strFornamn = Request.Form("name")
strEfternamn = Request.Form("surname")

Set objConn = Server.Createobject("ADODB.Connection")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")

strSQL = "INSERT INTO tabell1 (FORNAMN,EFTERNAMN) VALUES('" & strFornamn & "','" & strEfternamn & "')"

Set objRS = objConn.Execute(strSql)

objRS.Close
Set objRS = nothing
objConn.Close
Set objConn = nothing

Lycka till!

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

[Dahlgren]

Hej!

 

Tack för hjälpen, det fungerade bra. Det är bara en liten sak som händer nu.

 

Det står såhär:

 

ADODB.Recordset (0x800A0E78)

Åtgärden är inte tillåten när objektet är stängt.

 

På rad 22.

 

Rad 22 är konstigt nog objRs.Close

 

Mvh

 

[Kristianstad]

Hej!

Ta bort raden objRS.Close. De sista raderna skall alltså vara:

Set objRS = nothing
objConn.Close
Set objConn = nothing

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.