/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Hente data fra en database og indsætte i e~
Fra : Thomas K


Dato : 29-12-04 17:54

Jeg prøver på at hente data fra en database (databasen.mdb) og
indsætte det i en anden (afstemning.mdb). Når en bruger opsætter
en tråd skal hans brugernavn med i tråden, men der er noget galt
og jeg kan ikke hitte ud af hvorfor jeg får en fejl:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
set userConn = Server.createObject("adodb.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/afstemning.mdb")
DSNuser = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNuser = DSNuser & "DBQ=" &
Server.MapPath("/vti_log/databasen.mdb")
Conn.Open DSN
userConn.open DSN
userSQL = "SELECT Login FROM bruger WHERE ID = ID"
Set rs = userConn.Execute(userSQL)
if not rs.eof then
session.lcid=1030
strSQL = "Insert into overskrifter (Forum, Titel, Forfatter)
values('" & Request.Form("choice") & "', '" &
Request.Form("emne") & "', '" & rs(Login) & "')"
Conn.Execute(strSQL)
Response.write "Tråden er nu blevet opsat i Afstemningens forum."
Conn.Close
Set Conn = Nothing
end if
userConn.close
set userConn = Nothing
%>

Min "databasen.mdb" har tabel navnet "bruger" og brugernes ID
findes i kolonnen "ID". I kolonnen Login findes brugerens navn.
Kan sq ikke se hvad jeg gør galt. Har dobbelt tjekket flere gange
nu. Fejl meddelelsen hedder:

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet
database engine cannot find the input table or query 'bruger'.
Make sure it exists and that its name is spelled correctly.

/ny/afstemningsql.asp, line 50

NB. Line 50 er denne linie: if not rs.eof then

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
*XxX* (29-12-2004)
Kommentar
Fra : *XxX*


Dato : 29-12-04 22:50


"Thomas K" <kiellerup@tdcadsl.dk> wrote in message
news:41d2e140$0$51252$14726298@news.sunsite.dk...

> Conn.Open DSN
> userConn.open DSN

Skal der ikke stå DNSuser i den sidste??



Thomas K (30-12-2004)
Kommentar
Fra : Thomas K


Dato : 30-12-04 00:27

*XxX* wrote in dk.edb.internet.webdesign.serverside.asp:
> "Thomas K" <kiellerup@tdcadsl.dk> wrote in message
> news:41d2e140$0$51252$14726298@news.sunsite.dk...
>
> > Conn.Open DSN
> > userConn.open DSN
>
> Skal der ikke stå DNSuser i den sidste??
>
>

Jooo, nu nærmer vi os. Tror du har ret. Men nu kommer der en
anden fejl:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the
requested name or ordinal.

/ny/afstemningsql.asp, line 54


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

*XxX* (30-12-2004)
Kommentar
Fra : *XxX*


Dato : 30-12-04 17:12


"Thomas K" <kiellerup@tdcadsl.dk> wrote in message
news:41d33d3c$0$51241$14726298@news.sunsite.dk...

> /ny/afstemningsql.asp, line 54

Prøv evt. at smide linie 54 op og nogle af de linier omkring den.



Thomas K (30-12-2004)
Kommentar
Fra : Thomas K


Dato : 30-12-04 18:29

> /ny/afstemningsql.asp, line 54
>
> Prøv evt. at smide linie 54 op og nogle af de linier omkring den.

Smider lige hele scriptet op igen:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
set userConn = Server.createObject("adodb.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/afstemning.mdb")

DSNuser = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNuser = DSNuser & "DBQ=" &
Server.MapPath("/vti_log/databasen.mdb")

Conn.Open DSN
userConn.open DSNuser

userSQL = "SELECT Login FROM bruger WHERE ID = ID"

Set rs = userConn.Execute(userSQL)
if not rs.eof then

session.lcid=1030
strSQL = "Insert into overskrifter (Forum, Titel, Forfatter)
values('" & Request.Form("choice") & "', '" & Request.Form("emne") &
"', '" & rs(Login) & "')"
Conn.Execute(strSQL)
Response.write "Tråden er nu blevet opsat i Afstemningens forum."
Conn.Close
Set Conn = Nothing
end if
userConn.close
set userConn = Nothing
%>

Fejlen meddeler som sagt:
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the
requested name or ordinal.

/ny/afstemningsql.asp, line 49

- og linie 49 er:
strSQL = "Insert into overskrifter (Forum, Titel, Tekst, Svar,
Oprettet, Forfatter) values('" & Request.Form("choice") & "', '" &
Request.Form("emne") & "', '" & Request.Form("tekst") & "', '" & 0 &
"', '" & now() & "', '" & rs(Login) & "')"



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

*XxX* (30-12-2004)
Kommentar
Fra : *XxX*


Dato : 30-12-04 21:25


"Thomas K" <kiellerup@tdcadsl.dk> wrote in message
news:41d43ae5$0$51247$14726298@news.sunsite.dk...

> Fejlen meddeler som sagt:
> ADODB.Recordset error '800a0cc1'
>
> Item cannot be found in the collection corresponding to the
> requested name or ordinal.
>
> /ny/afstemningsql.asp, line 49
>
> - og linie 49 er:
> strSQL = "Insert into overskrifter (Forum, Titel, Tekst, Svar,
> Oprettet, Forfatter) values('" & Request.Form("choice") & "', '" &
> Request.Form("emne") & "', '" & Request.Form("tekst") & "', '" & 0 &
> "', '" & now() & "', '" & rs(Login) & "')"

Der skla vist " om Login i din RS("")



Thomas K (30-12-2004)
Kommentar
Fra : Thomas K


Dato : 30-12-04 23:36

> Der skla vist " om Login i din RS("")

Heheee, tuusind tak *XxX*....Nu virker det sq. Godt nytår


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste