Avatar billede jthyge Seniormester
04. november 2001 - 13:19 Der er 5 kommentarer og
1 løsning

Hvad er fejlen??

Jeg har denne kode..

<%
  \'******************************
  \'*** ÅBN DATABASE
  \'******************************
  Set DATABASE = Server.CreateObject(\"ADODB.Connection\")
  DATABASE.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.Mappath(\"garder.mdb\") \'Access databasen!

  \'******************************
  \'*** SQL QUERY
  \'******************************
  SQLStr = \"SELECT MAX (ID) as maxValue FROM garder\"
  Set RSDatabase = DATABASE.Execute(SQLStr)
  If RSDatabase.EOF Then
    %>Databasen er tom!<%
  End If
  If Not RSDatabase.EOF Then
    RSDatabase.MoveFirst
    While Not RSDatabase.EOF
      Response.Write \"Alnta oprettede: \" +RSDatabase(\"ID\") +\"<BR>\"
    RSDatabase.MoveNext
    Wend
  End If

  \'******************************
  \'*** LUK DATABASE
  \'******************************
  RSDatabase.Close
  Set RSDatabase = Nothing
  %>
og får følgende fejlmeddelses..

ADODB.Fields fejl \'800a0cc1\'

ADO could not find the object in the collection corresponding to the name or ordinal reference requested by the application.

/eller1.asp, linje 19

Hvad er det lige jeg gør forkert??
Avatar billede eagleeye Praktikant
04. november 2001 - 13:22 #1
Den kan ikke finde ID i recordsetet.. Du skal udskrive maxValue:

Response.Write \"Alnta oprettede: \" +RSDatabase(\"maxValue\") +\"<BR>\"
Avatar billede tue Nybegynder
04. november 2001 - 13:23 #2
Du skal bruge & istedet for +

Response.Write \"Alnta oprettede: \" & RSDatabase(\"ID\") & \"<BR>\"
Avatar billede jthyge Seniormester
04. november 2001 - 13:24 #3
Mange tak eagleeye :-)
Avatar billede jthyge Seniormester
04. november 2001 - 13:47 #4
Jeg har lige lavet lidt ændringer...

<%
  \'******************************
  \'*** ÅBN DATABASE
  \'******************************
  Set DATABASE = Server.CreateObject(\"ADODB.Connection\")
  DATABASE.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.Mappath(\"garder.mdb\") \'Access databasen!

  \'******************************
  \'*** SQL QUERY
  \'******************************
  SQLStr = \"SELECT MAX (ID) as maxValue FROM garder\"
  Set RSDatabase = DATABASE.Execute(SQLStr)
  If RSDatabase.EOF Then
    %>Databasen er tom!<%
  End If
  If Not RSDatabase.EOF Then
    RSDatabase.MoveFirst
    While Not RSDatabase.EOF
      Response.Write \"Antal Oprettede: \" +RSDatabase(\"maxValue\") +\"<BR>\"
    RSDatabase.MoveNext
    Wend
  End If

  \'******************************
  \'*** LUK DATABASE
  \'******************************
  RSDatabase.Close
  Set RSDatabase = Nothing
  \'SELECT Top 1 * FROM garder ORDER BY ID ASC
%>       

men nu får jeg denne fejl..


Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a000d\'

Typerne passer ikke sammen: \'[string: \"Antal Oprettede: \"]\'

/soeg.asp, linje 91


????????? Hvad NU
Avatar billede eagleeye Praktikant
04. november 2001 - 13:51 #5
hvis det er vbscript så prøv:

Response.Write \"Antal Oprettede: \" & RSDatabase(\"maxValue\") & \"<BR>\"
Avatar billede eagleeye Praktikant
04. november 2001 - 14:08 #6
+ bruges i VBscript til at lægge tal sammen.
& bruges i VBScript til at lægge strenge sammen.
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