Frågan 4 juli 2006 17:41 #1 Hjälp mig lösa mitt lilla problem...
VAd är felet i följande kod?Kod:
<%
Set oDB = Server.CreateObject("ADODB.Connection")
oDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\home\kunder\8951\databases\srb.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM medarbetare"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Fornamn") = Request.Form("fornamn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Adress") = Request.Form("adress")
RecSet.Update
RecSet.Close
Connect.Close %>
Då jag får upp följande problem:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/beta/add.asp, line 17
Fatter ej var felet ligger...:S eller a, förstår att det är något med Kod:
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
snälla, jag behöver hjälp!
B bwcMikke Medlem sedan okt. 2004 159 inlägg Eftersom du på första raden skapar en connection som du namnger till oDB så skall raden vara:
RecSet.Open Addera, oDB, adOpenStatic, adLockOptimistic
Detta förutsätter också att variablerna adOpenStatic och adLockOptimistic fått sina värden via ex. att ladda filen adovbs.inc.
Alternativt att ersätta med siffervärden:
RecSet.Open Addera, oDB, 3, 3
Sedan tror jag att jag skulle skriva:
Addera = "INSERT INTO medarbetare (Fornamn, Efternamn, Adress) VALUES ('"
Addera = Addera & Request.Form("fornamn") & "', '"
Addera = Addera & Request.Form("efternamn") & "', '"
Addera = Addera & Request.Form("adress") & "')"
oDB.Execute(Addera)
Får fortfarande samma problem....:S
B bwcMikke Medlem sedan okt. 2004 159 inlägg Jag knappade in detta in min dator och fick det att fungera:
Set oDB = Server.CreateObject("ADODB.Connection")
oDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\documents and settings\admin\mina dokument\wwwroot\testapp\db\dbTest.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM medarbetare"
RecSet.Open Addera,oDB,3,3
RecSet.AddNew
RecSet("Fornamn") = "Kalle"
RecSet("Efternamn") = "Karlsson"
RecSet("Adress") = "A-stad"
RecSet.Update
RecSet.Close
oDB.Close %>
Funkar det inte hos dig så funderar jag om det är något med databasen, formuläret eller så. Kika igenom koden ytterligare en gång.
Tack för hjälpen har lyckats lösa problemet!
:D
B bwcMikke Medlem sedan okt. 2004 159 inlägg Du får gärna tala om vad som var fel. Det kan ju hjälpa andra som läser tråden.
Jag hade skapat en connect på samma sätt som jag skapade oDB'n. Och sedan anropat connect som i själva verket inte på något sätt hade definerats. Varav felet då. Lite pinsamt men sånt som händer....antar jag...Har bara mig själv att skylla...:)