sqlkonflikt

Har suttit sen kl 10 och fattar inte varför jag får meddelandet "ADODB.Recordset fel '800a0bb9'

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt."

Tycker att min kod är perfa. Nån som kan se ett uppenbart fel i den?

<%
Sub Ok()
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inl.mdb"
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Kunder WHERE 1 = 2"
rs.Open sql, MinCon,adOpenStatic,adLockOptimistic
sql = "INSERT INTO Kunder(KundID,Fornamn,Efternamn,Adress,Postnr,Ort,Mail,Telnr,Inlogg,Losenord) VALUES('"& fnamn &"','"& enamn & "','"& adress &"','"& postnr &"','"& ort &"','"& mail &"','"& tel &"','"& inlog &"','"& losen &"')"

MinCon.exequte(sql)
rs.Close
MinCon.Close

Response.Write "Dina uppgifter har lagrats"
End Sub
%>

Du har ett fält för mycket deklarerat mot vad du har Values att lägga till

Testa denna:

sql = "INSERT INTO Kunder(Fornamn,Efternamn,Adress,Postnr,Ort,Mail,Telnr,Inlogg,Losenord) VALUES('"& fnamn &"','"& enamn & "','"& adress &"','"& postnr &"','"& ort &"','"& mail &"','"& tel &"','"& inlog &"','"& losen &"')"

KundID antar jag är en counter kolumn

cya,
PatrikB

------------------
'## -- second place is the first looser -- ##'

Det var rätt klantigt av mig. Ska testa ditt förslag. Tack

Varför har du med ett recordset överhuvudtaget?

Tror nog att ditt fel beror på att du inte har inkluderat adovbs.inc

------------------
essentitia preter non sans multiplicandum

Varför öppnar du ett RecordSet om du inte ska använda det? :q
Ta bort det genast! ;)

------------------
SPiN, bjorne.w@telia.com

-- Tekniska framsteg är som en yxa i händerna på en kriminell galning / Albert Einstein --

Nä, jag hade inte inkluderat den.
Tack för tipset!!