5 svar · 191 visningar · startad av The_L
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
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
Varför öppnar du ett RecordSet om du inte ska använda det? 
Ta bort det genast! 
Nä, jag hade inte inkluderat den.
Tack för tipset!!