Avatar billede eromaster Nybegynder
28. april 2003 - 23:18 Der er 12 kommentarer og
1 løsning

Et hurtigt spm angående en fejl!

Kode:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/bruger.mdb")
Set rs = Conn.Execute("Select bruger_tilid From msg Where laest_tilid = 0 And bruger_tilid= " & brugerinfo("id"))
While Not rs.EOF
  Response.Write "(<font color=red>Ny Post - " & rs("bruger_tilid") & "</font>)"
  rs.MoveNext
Wend
%>

Fejl:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.


Hvad er der galt i koden?
Avatar billede karsten_larsen Praktikant
28. april 2003 - 23:22 #1
Hvad vil der ske hvis du fjerne rs =
Avatar billede eromaster Nybegynder
28. april 2003 - 23:22 #2
samme fejl
Avatar billede jessbonde Nybegynder
28. april 2003 - 23:25 #3
prøv at ændre dine fields i db til tekst
Avatar billede eromaster Nybegynder
28. april 2003 - 23:26 #4
de står allerede til text undtagen det field der hedder msg det er memo og det skal det blive ved med at være :)
Avatar billede karsten_larsen Praktikant
28. april 2003 - 23:29 #5
Kan det være mellemrummet her?

bruger_tilid= " i stedet for bruger_tilid="
Avatar billede jessbonde Nybegynder
28. april 2003 - 23:30 #6
du skal vel skrive:
Select bruger_tilid From TABELNAVN Where laest_tilid = 0 And bruger_tilid= " & brugerinfo("id"))
Ellers henter du et field ud fra et andet field??
Avatar billede erikjacobsen Ekspert
28. april 2003 - 23:31 #7
Hvis dine felter er tekst skal der '..' omkring:  where feltnavn = 'værdi'
Avatar billede eromaster Nybegynder
28. april 2003 - 23:35 #8
Karsten Larsen -> Samme fejl
jessbonde -> min tabel hedder også msg!
Erik -> min kode ser sådan ud lige nu:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/bruger.mdb")
Conn.Execute("Select bruger_tilid From msg Where laest_tilid= '0' And bruger_tilid=" & brugerinfo("id"))
While Not rs.EOF
  Response.Write "(<font color=red>Ny Post - " & rs("bruger_tilid") & "</font>)"
  rs.MoveNext
Wend
%>
Avatar billede fet321 Nybegynder
28. april 2003 - 23:36 #9
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/bruger.mdb")
Conn.Execute("Select bruger_tilid From msg Where laest_tilid= '0' And bruger_tilid='" & brugerinfo("id") & "';")
While Not rs.EOF
  Response.Write "(<font color=red>Ny Post - " & rs("bruger_tilid") & "</font>)"
  rs.MoveNext
Wend
%>
Avatar billede eromaster Nybegynder
28. april 2003 - 23:37 #10
fet321 -> følgende fejl:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: 'rs'
Avatar billede fet321 Nybegynder
28. april 2003 - 23:38 #11
Hvorfor har du slettet "Set rs = " i din kode.
Sæt det ind igen.
Avatar billede eromaster Nybegynder
28. april 2003 - 23:39 #12
ARGH min fejl... 2sek tjekker det lige igen
Avatar billede eromaster Nybegynder
28. april 2003 - 23:40 #13
MANGE tark for hjælpen
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