Avatar billede netsjov Nybegynder
29. januar 2001 - 17:05 Der er 7 kommentarer og
1 løsning

Hjælp,,HURTIGT

Jeg kan ikke få følgende kode til at virke:

<%

  set conn = server.createobject(\"ADODB.connection\")
  conn.Open \"DBQ=\"& Server.MapPath(\"data\\db.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)}; PWD=xxxxxx\"
  SQL = \"select * from brugere\"
  Set RS = Server.CreateObject(\"ADODB.Recordset\")
  RS.Open SQL, conn, 2, 3

  RS.AddNew

  RS(\"navn\") = Request.form(\"navn\")
  RS(\"email\") = Request.form(\"email\")
  RS(\"link\") = Request.form(\"link\")
  RS(\"beskr\") = Request.form(\"beskr\")
If NOT Request.form(\"banner\") = \"\" then
  RS(\"banner\")    = Request.form(\"banner\")
  end if

  RS.Update
  rs.close
  conn.close
%>



Fejlmeddelsen er følgende:

Microsoft OLE DB Provider for ODBC Drivers fejl \'80004005\'

[Microsoft][ODBC Microsoft Access-driver] Funktionsnavnet er ukendt

/web/online/sex-top.dk/web/oprettet.asp, linje 19





Linie 19 er den linie hvor der står rs.update
Avatar billede bjarke-b Nybegynder
29. januar 2001 - 17:09 #1
<%

  set conn = server.createobject(\"ADODB.connection\")
  conn.Open \"DBQ=\"& Server.MapPath(\"data\\db.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)}; PWD=xxxxxx\"
  SQL = \"select * from brugere\"
  Set RS = Server.CreateObject(\"ADODB.Recordset\")
  RS.Open SQL, conn, 2, 3

  RS.AddNew

  RS(\"navn\") = Request.form(\"navn\")
  RS(\"email\") = Request.form(\"email\")
  RS(\"link\") = Request.form(\"link\")
  RS(\"beskr\") = Request.form(\"beskr\")
  If Request.form(\"banner\") <> \"\" then
  RS(\"banner\") = Request.form(\"banner\")
  end if

  RS.Update
  rs.close
  conn.close
%>
Avatar billede sbarnney Nybegynder
29. januar 2001 - 19:49 #2
Prøv denne connect.

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open \"DBQ=\"&Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"data/db.mdb;DefaultDir=\"&Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\";Driver={Microsoft Access Driver (*.mdb)};\"

Stig
Avatar billede eagleeye Praktikant
29. januar 2001 - 20:17 #3
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open = \"DRIVER={Microsoft Access Driver
(*.mdb)};DBQ=\"&Server.MapPath(\"\\data\\db.mdb\")&\";PWD=xxxxxx\"
Avatar billede netsjov Nybegynder
29. januar 2001 - 22:43 #4
Problemet ligger ikke i database dagangen,,,tror jeg,,,, For når jeg fjerner rs.AddNew virker det fint, men den ligger bare dataen ind i den første tabel istedetfor en ny.
Avatar billede olberd Nybegynder
29. januar 2001 - 22:49 #5
Hvorfor bruger du ikke SQL\'s insert kommando \"insert into ....\" = bedre!

Jeg er ikke helt sikker på det her, men er du sikker på at linjen
RS.Open SQL, conn, 2, 3
ikke skal være
RS.Open SQL, conn, 3, 3
Avatar billede olberd Nybegynder
29. januar 2001 - 23:13 #6
SQL kommandoer bruger meget mindre hukommelse på webserveren og er hurtigere.!

<%

  set conn = server.createobject(\"ADODB.connection\")
  conn.Open \"DBQ=\"& Server.MapPath(\"data\\db.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)}; PWD=xxxxxx\"

  If Request.form(\"banner\") <> \"\" then
    SQL = \"insert into brugere(navn,email,link,beskr,banner) values(\'\"&request(\"navn\")&\"\',\'\"&request(\"email\")&\"\',\'\"&request(\"link\")&\"\',\'\"&request(\"beskr\")&\"\',\'\"&Request(\"banner\")&\"\')\"
  Else
    SQL = \"insert into brugere(navn,email,link,beskr) values(\'\"&request(\"navn\")&\"\',\'\"&request(\"email\")&\"\',\'\"&request(\"link\")&\"\',\'\"&request(\"beskr\")&\"\')\"
  End If

  Conn.Execute(SQL)

  Conn.Close
  Set Conn = nothing

%>
Avatar billede olberd Nybegynder
29. januar 2001 - 23:13 #7
Så vidt jeg ved :-)
Avatar billede netsjov Nybegynder
30. januar 2001 - 22:02 #8
Endeligtfandt jeg fejlen. Der var ikke noget galt med den kode jeg først skrev, fejlen lå i databasen( Og det kunne i jo ikke vide ).

Jeg havde sat default verdien på cellen dato til date$() og det virker jo ikke, så efter jeg havde ændret den til date () virkede det. :-)


Pointne går til Olberd da hans kode ville have virket vis min database gjorde det!!!
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