Avatar billede cotus Nybegynder
05. marts 2004 - 19:44 Der er 3 kommentarer og
1 løsning

Fejl i add

Når jeg prøver at adde i min database med "test", "test" så opretter den - men når jeg opretter et mere "sofistifikeret" input får jeg flg. fejl:

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.

add.asp, line 27


Således er linie 27:

rs("beskrivelse") = strBeskrivelse

På forhånd tak.
Avatar billede drip Nybegynder
05. marts 2004 - 20:27 #1
Måske er det fordi du bruger rs("beskrivelse") og du skulle gøre det omvendt altså:
strBeskrivelse = rs("beskrivelse")
Avatar billede drip Nybegynder
05. marts 2004 - 20:27 #2
Skulle være et svar.
Avatar billede cotus Nybegynder
05. marts 2004 - 21:13 #3
Det er meningen :)

If ID = "addnews" Then

strOverskrift = Request.Form("overskrift")
strForfatter = Session("admin")
strBeskrivelse = Request.Form("beskrivelse")
strArtikel = Request.Form("artikel")
strBillede = Request.Form("billede")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../sdhdatab.mdb")
Conn.Open DSN

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM nyheder WHERE Id=0", conn,1,3
rs.AddNew
rs("overskrift") = strOverskrift
rs("forfatter") = strForfatter
rs("dato") = Now()
rs("beskrivelse") = strBeskrivelse
rs("artikel") = strArtikel
rs("billede") = strBillede
rs.Update
rs.Close

Conn.Close
Set Conn = Nothing

Response.write "Din artikel er nu oprettet i databasen..."

End if
Avatar billede hansdam Nybegynder
05. marts 2004 - 22:00 #4
Prøv dette:
------------------------------------------
If ID = "addnews" Then

strOverskrift = Request.Form("overskrift")
strForfatter = Session("admin")
strBeskrivelse = Request.Form("beskrivelse")
strArtikel = Request.Form("artikel")
strBillede = Request.Form("billede")

If Trim(strOverskrift) & "x" = "x" then strOverskrift = Null
If Trim(strForfatter) & "x" = "x" then strForfatter = Null
If Trim(strBeskrivelse) & "x" = "x" then strBeskrivelse = Null
If Trim(strArtikel) & "x" = "x" then strArtikel = Null
If Trim(strBillede) & "x" = "x" then strBillede = Null

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../sdhdatab.mdb")
Conn.Open DSN

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM nyheder WHERE Id=0", conn,1,3
rs.AddNew
rs("overskrift") = strOverskrift
rs("forfatter") = strForfatter
rs("dato") = Now()
rs("beskrivelse") = strBeskrivelse
rs("artikel") = strArtikel
rs("billede") = strBillede
rs.Update
rs.Close

Conn.Close
Set Conn = Nothing

Response.write "Din artikel er nu oprettet i databasen..."

End if
------------------------------------------
/Hans
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester