Notifikationer

Markér alle som læst Log ud

hypergrafx Nybegynder

10. januar 2001 - 23:09 Der er 30 kommentarer og
1 løsning

Udtræk fra to databaser fra en side......

Hvordan laver man et udtræk fra 2 eller flerer db fra en side. Html skal ikke stå i selve scriptets connection, men for sig selv og derefter udtrækkes poster i html helst med denne kommando:

<%=udtræk%>

Vis venligst eksempel

Synes godt om

blazer Nybegynder

10. januar 2001 - 23:11 #1

SELECT Messages.MessageNumber, Replaces.Id
FROM Messages, Replaces;

Synes godt om

blazer Nybegynder

10. januar 2001 - 23:12 #2

så bliver udtræk

<%=Messages.MessageNumber%>

Og

<%=Replaces.Id%>

Synes godt om

hypergrafx Nybegynder

11. januar 2001 - 00:09 #3

Kræver en næmere forklaring. Helst i form af et helt script eksempel. Da jeg ikke er nogen ørn til udtræk af databaser.....

Synes godt om

ellebaek Nybegynder

11. januar 2001 - 08:37 #4

hvad med at lave 2 database kald med hver deres database streng.
Så kalder du dem for f.eks. rs1 og rs2.

Når du så skal hente fra dem kan du benytte:
<%=rs1.Fields(\"feltnavn\")%>
eller
<%=rs2.Fields(\"feltnavn\")%>
Alt efter hvilken database du vil benytte. For overskuelighedden kunne du også kalde dem
db1
og db2

f.eks.
<%
set db1 = server.CreateObject(\"ADODB.Recordset\")
set db2 = server.CreateObject(\"ADODB.Recordset\")
strDB1 = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database1.mdb\")
strDB2 = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database2.mdb\")
db1.open strDB1
db2.open strDB2
%>

Så begynder html dokumentet, og her benytter du bare de der, <%=db1.fields(\"feltnavn\")%>

Håber du kan bruge det !!
-Ellebaek

Synes godt om

c Nybegynder

11. januar 2001 - 10:05 #5

du skal lave to conn til DB\'er med hver sit navn!
Christian

Synes godt om

hypergrafx Nybegynder

11. januar 2001 - 12:18 #6

Hvordan ser den helt færdige kode så ud, med de to conn til DB ?

Og hvordan afslutter man forbindelsen til begge DB\'er, er det noget med:

<%
rs=nothing
Conn1.close
Set Conn1=nothing

rs=nothing
Conn2.close
Set Conn2=nothing
%>

Synes godt om

ellebaek Nybegynder

11. januar 2001 - 12:31 #7

<%
dim db1, db2, strDB1, strDB2, sql1, sql2
set db1 = server.CreateObject(\"ADODB.Recordset\")
set db2 = server.CreateObject(\"ADODB.Recordset\")
strDB1 = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database1.mdb\")
strDB2 = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database2.mdb\")
sql1 = \"select * from Tabelnavn where betingelse\"
sql2 = \"select * from Tabelnavn where betingelse\"
db1.open strDB1, SQL1
db2.open strDB2, SQL2
%>

Html delen...

<%=db1.fields(\"feltnavn\")%> \'til database 1
<%=db2.fields(\"feltnavn\")%> \'til database 2

</html>

<%

db1.close
db2.close
Set db1 = nothing
set db2 = nothing
%>

Synes godt om

hypergrafx Nybegynder

11. januar 2001 - 13:37 #8

Tak !
Prøver den lige..hvis den funker fordine points

Synes godt om

hypergrafx Nybegynder

11. januar 2001 - 13:54 #9

Virker ikke helt...
Giver følgende fejl:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Datakildenavnet blev ikke fundet, og der er ikke angivet en standarddriver.
/Expert/nyhed2000/db.asp, line 9

Ved bruge af dette script:

<%
dim db1, db2, strDB1, strDB2, sql1, sql2
set db1 = server.CreateObject(\"ADODB.Recordset\")
set db2 = server.CreateObject(\"ADODB.Recordset\")
strDB1 = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../menu/design.mdb\")
strDB2 = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../side1/design.mdb\")
sql1 = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")
sql2 = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")
db1.open strDB1, SQL1
db2.open strDB2, SQL2
%>

<html>

<head>

<title>Udtræk fra 2 DB</title>

</head>



<body bgcolor=\"#ffffff\" topmargin=\"0\" leftmargin=\"0\">

<%=db1.fields(\"side1\")%> \'til database 1
<%=db2.fields(\"info_om\")%> \'til database 2

</BODY>
</HTML>

<%

db1.close
db2.close
Set db1 = nothing
set db2 = nothing
%>

Synes godt om

ellebaek Nybegynder

11. januar 2001 - 14:10 #10

hvor requester den ID\'et i disse linier fra ??
sql1 = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")
sql2 = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")

Synes godt om

hypergrafx Nybegynder

11. januar 2001 - 15:01 #11

Fra post ID = 141

Synes godt om

hypergrafx Nybegynder

11. januar 2001 - 15:22 #12

Jeg har en DB Ved navn: design.mdb
den har 8 poster

Post 1 = ID (kan undværes)
post 2 = side1
Post 3 = info_om

osv...

Synes godt om

dkjohn Nybegynder

12. januar 2001 - 10:52 #13

prøv at bytte
sql1 = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")
sql2 = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")
ud med
sql1 = \"SELECT * FROM valg WHERE ID = 141\"
sql2 = \"SELECT * FROM valg WHERE ID = 141\"

Synes godt om

hypergrafx Nybegynder

12. januar 2001 - 11:34 #14

Virker ikke ! Samme fejl medl. som før....

Synes godt om

ellebaek Nybegynder

12. januar 2001 - 11:54 #15

Kan du ikke sende filerne til min email...
så kan jeg kigge på det og få det til at virke ...!

Ellebæk

Synes godt om

ellebaek Nybegynder

12. januar 2001 - 11:57 #16

det er denne linie der er fejl i ...

strDB1 = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../menu/design.mdb\")

Men jeg ved jo ikke hvad fejlen er når jeg ikke har set hvordan serveren er bygget op ...

Synes godt om

ellebaek Nybegynder

12. januar 2001 - 11:58 #17

og min mail er ...
jens@ellebaek.net

Synes godt om

hypergrafx Nybegynder

12. januar 2001 - 12:17 #18

For mig virker det som om der mangler conn til DB\'er i din kode. Min kode til udtræk virker udmærket, men der må være en nemmere måde, desuden er jeg ikke sikker på at jeg for den lukket ordentlig igen:

<%

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

SQLstmt = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")

Set rs = conn.Execute(SQLstmt)
%>

<%
\'DO WHILE NOT rs.EOF

farve1 = rs(\"farve1\")
skriftfarve = rs(\"skriftfarve\")
skrifttype = rs(\"skrifttype\")
alink = rs(\"alink\")
blink = rs(\"blink\")
%>

<html>

<head>

<title>Hyper Web</title>

<style>

</style>

</head>



<body link=\"#C0C0C0\" vlink=\"<%=alink%>\" alink=\"<%=blink%>\" bgcolor=\"#ffffff\" text=\"<%=skriftfarve%>\" background=\"<%=farve1%>\">



<TABLE ALIGN=LEFT BORDER=0 WIDTH=540>
<TR VALIGN=TOP ALIGN=RIGHT VALIGN=LEFT>
<TD WIDTH=30 ROWSPAN=7>

<IMG SRC=\"v1.gif\" WIDTH=30 HEIGHT=1 BORDER=0></A>

</TD>
<TD>

<%

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

SQLstmt = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")

Set rs = conn.Execute(SQLstmt)
%>

<%
\'DO WHILE NOT rs.EOF

side1 = rs(\"side1\")
%>



<TR VALIGN=TOP ALIGN=LEFT VALIGN=LEFT>

<TD WIDTH=540>

<BR><BR>

<FONT SIZE=5 ><center><%=side1%></center></font>

<hr width=\"100%\" size=\"1\" noshade>

<TABLE WIDTH=540 ALIGN=MIDDLE COLSPAN=2 cellspacing=\'1\' cellpadding=\'5\'>

<%

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

SQLstmt = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")

Set rs = conn.Execute(SQLstmt)
%>

<%
\'DO WHILE NOT rs.EOF

skrifttype = rs(\"skrifttype\")
alink = rs(\"alink\")
blink = rs(\"blink\")
%>



<TR>
<TD WIDTH=540 HEIGHT=15 COLSPAN=6></TD>
</TR>

<TR>

<TD valign=top>



<%
Dim Filesys, tekstfil, Image
Set Filesys = Server.CreateObject(\"Scripting.FileSystemObject\")
\' Først åbnes tekstfilen med navnet på den sidst uploadede fil, så vi
\' kan konstatere hvilken filtype, der er tale om...
Set tekstfil= Filesys.OpenTextFile(Server.MapPath(\"Images/UplImage.txt\"))
\' Filens navn lægges i variablen \"Image\"
Image = tekstfil.Readline
\' Luk tekstfile pænt efter brug.
tekstfil.Close
%>



<IMG SRC=\"Images/<%=Image%>\" BORDER=0 ALT=\"\"><br></FONT></TD>



<TD valign=top >

<font size=\"2\">

<%
Function LinkTekst(Tekst)
LinkTekst = \"\"
A_Start = 1

if InStr(Tekst, \"http://\") then
do until A_Start >= len(Tekst)
LinkChr = InStr(A_Start, Tekst, \"http://\")
NextSpace = InStr(LinkChr, Tekst, \" \")

if NextSpace = 0 then NextSpace = Len(Tekst) + 1

URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
LinkTekst = LinkTekst & \"<A Href=\" & Chr(34) & URL & Chr(34) & \" target=blank>\" & URL & \"</A>\"

if Int(LinkChr) = Int(InStrRev(Tekst, \"http://\")) then
LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
A_Start = Len(Tekst)
else
A_Start = NextSpace
end if
loop
else
LinkTekst = Tekst
end if
End Function
%>

<%=LinkTekst(Replace(rs(\"info_om\")&\"\", vbCrLf, \" <BR> \"))%>

</font><br></TD>



</TR>
<TR>

<TD WIDTH=540 HEIGHT=30 COLSPAN=6>
<hr width=\"100%\" size=\"1\" noshade>
</TD></table>

<%
\'rs.MoveNext
\'LOOP
\'RS.Close
conn.Close
Set conn = nothing
%>

<TR VALIGN=BOTTOM ALIGN=LEFT VALIGN=LEFT >
<TD WIDTH=540>
<CENTER>
<P>

<FONT FACE=\"<%=skrifttype%>\" size=1\" >
<a href= \"http://www.hypergrafx.dk\" target=\"_new\" style=\"color: <%=skriftfarve%>\">© Copyright HyperGrafX 2000</a>
</FONT>
</CENTR>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

Synes godt om

dkjohn Nybegynder

12. januar 2001 - 13:11 #19

<%

Set Conn1 = Server.CreateObject(\"ADODB.Connection\")
Conn1.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"design.mdb\")

SQLstmt1 = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")

Set rs1 = conn.Execute(SQLstmt1)
%>

<%
\'DO WHILE NOT rs.EOF

farve1 = rs1(\"farve1\")
skriftfarve = rs1(\"skriftfarve\")
skrifttype = rs1(\"skrifttype\")
alink = rs1(\"alink\")
blink = rs1(\"blink\")
%>

<html>

<head>

<title>Hyper Web</title>

<style>

</style>

</head>



<body link=\"#C0C0C0\" vlink=\"<%=alink%>\" alink=\"<%=blink%>\" bgcolor=\"#ffffff\" text=\"<%=skriftfarve%>\" background=\"<%=farve1%>\">



<TABLE ALIGN=LEFT BORDER=0 WIDTH=540>
<TR VALIGN=TOP ALIGN=RIGHT VALIGN=LEFT>
<TD WIDTH=30 ROWSPAN=7>

<IMG SRC=\"v1.gif\" WIDTH=30 HEIGHT=1 BORDER=0></A>

</TD>
<TD>

<%

Set Conn2 = Server.CreateObject(\"ADODB.Connection\")
Conn2.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../menu/design.mdb\")

SQLstmt2 = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")

Set rs2 = conn.Execute(SQLstmt2)
%>

<%
\'DO WHILE NOT rs.EOF

side1 = rs2(\"side1\")
%>



<TR VALIGN=TOP ALIGN=LEFT VALIGN=LEFT>

<TD WIDTH=540>

<BR><BR>

<FONT SIZE=5 ><center><%=side1%></center></font>

<hr width=\"100%\" size=\"1\" noshade>

<TABLE WIDTH=540 ALIGN=MIDDLE COLSPAN=2 cellspacing=\'1\' cellpadding=\'5\'>

<%

\'Set Conn = Server.CreateObject(\"ADODB.Connection\")
\'Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"design.mdb\")

\'SQLstmt = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")

\'Set rs = conn.Execute(SQLstmt)

%>

<%
\'DO WHILE NOT rs.EOF

skrifttype = rs1(\"skrifttype\")
alink = rs1(\"alink\")
blink = rs1(\"blink\")
%>



<TR>
<TD WIDTH=540 HEIGHT=15 COLSPAN=6></TD>
</TR>

<TR>

<TD valign=top>



<%
Dim Filesys, tekstfil, Image
Set Filesys = Server.CreateObject(\"Scripting.FileSystemObject\")
\' Først åbnes tekstfilen med navnet på den sidst uploadede fil, så vi
\' kan konstatere hvilken filtype, der er tale om...
Set tekstfil= Filesys.OpenTextFile(Server.MapPath(\"Images/UplImage.txt\"))
\' Filens navn lægges i variablen \"Image\"
Image = tekstfil.Readline
\' Luk tekstfile pænt efter brug.
tekstfil.Close
%>



<IMG SRC=\"Images/<%=Image%>\" BORDER=0 ALT=\"\"><br></FONT></TD>



<TD valign=top >

<font size=\"2\">

<%
Function LinkTekst(Tekst)
LinkTekst = \"\"
A_Start = 1

if InStr(Tekst, \"http://\") then
do until A_Start >= len(Tekst)
LinkChr = InStr(A_Start, Tekst, \"http://\")
NextSpace = InStr(LinkChr, Tekst, \" \")

if NextSpace = 0 then NextSpace = Len(Tekst) + 1

URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
LinkTekst = LinkTekst & \"<A Href=\" & Chr(34) & URL & Chr(34) & \" target=blank>\" & URL & \"</A>\"

if Int(LinkChr) = Int(InStrRev(Tekst, \"http://\")) then
LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
A_Start = Len(Tekst)
else
A_Start = NextSpace
end if
loop
else
LinkTekst = Tekst
end if
End Function
%>

<%=LinkTekst(Replace(rs(\"info_om\")&\"\", vbCrLf, \" <BR> \"))%>

</font><br></TD>



</TR>
<TR>

<TD WIDTH=540 HEIGHT=30 COLSPAN=6>
<hr width=\"100%\" size=\"1\" noshade>
</TD></table>

<%
\'rs.MoveNext
\'LOOP

RS2.Close
SET RS2 = nothing

conn2.Close
Set conn2 = nothing
%>

<TR VALIGN=BOTTOM ALIGN=LEFT VALIGN=LEFT >
<TD WIDTH=540>
<CENTER>
<P>

<FONT FACE=\"<%=skrifttype%>\" size=1\" >
<a href= \"http://www.hypergrafx.dk\" target=\"_new\" style=\"color: <%=skriftfarve%>\">© Copyright HyperGrafX 2000</a>
</FONT>
</CENTR>
</TD>
</TR>
</TABLE>
<%
RS1.Close
SET RS1 = nothing
conn1.Close
Set conn1 = nothing
%>
</BODY>
</HTML>

Synes godt om

ellebaek Nybegynder

12. januar 2001 - 13:26 #20

hmmn ...
jeg skal ikke kunne vide mig klog på hvad ´det er du mener ...
når jeg ser på dit spørgsmål kan jeg ligner det til mig noget med at der skal være 2 recordset ...

-Ellebaek

Synes godt om

hypergrafx Nybegynder

12. januar 2001 - 13:41 #21

<dkjohn> Med dit udtræk for jeg følgende fejl:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: \'conn\'
/Expert/nyhed2000/side 1/prøve.asp, line 8

Sådan ser linie 8 ud :
<%

Set Conn1 = Server.CreateObject(\"ADODB.Connection\")
Conn1.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"design.mdb\")

SQLstmt1 = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")

linie 8 : Set rs1 = conn.Execute(SQLstmt1)
%>

Synes godt om

dkjohn Nybegynder

12. januar 2001 - 22:41 #22

Undskyld, den conn havde jeg overset.
ret det til
Set rs1 = conn1.execute(SQLstmt1)

Synes godt om

hypergrafx Nybegynder

12. januar 2001 - 23:16 #23

Jeg får stadig fejl med denne ! er det rigtigt sat op ? Siden bliver længere og længere.....

<%
dim db1, db2, strDB1, strDB2, sql1, sql2
set db1 = server.CreateObject(\"ADODB.Recordset\")
set db2 = server.CreateObject(\"ADODB.Recordset\")
strDB1 = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../menu/design.mdb\")
strDB2 = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../side1/design.mdb\")
sql1 = \"SELECT * FROM valg WHERE ID = 141\"
sql2 = \"SELECT * FROM valg WHERE ID = 141\"

Set rs1 = conn1.execute(SQLstmt1)
Set rs2 = conn2.execute(SQLstmt1)

db1.open strDB1, SQL1
db2.open strDB2, SQL2
%>

<html>

<head>

<title>Udtræk fra 2 DB</title>

</head>



<body bgcolor=\"#ffffff\" topmargin=\"0\" leftmargin=\"0\">

<%=db1.fields(\"side1\")%> \'til database 1
<%=db2.fields(\"info_om\")%> \'til database 2

</BODY>
</HTML>

<%

db1.close
db2.close
Set db1 = nothing
set db2 = nothing
%>

Synes godt om

ellebaek Nybegynder

12. januar 2001 - 23:38 #24

Set rs1 = conn1.execute(SQLstmt1)
Set rs2 = conn2.execute(SQLstmt1)

db1.open strDB1, SQL1
db2.open strDB2, SQL2

hvor laver du conn1 og conn2 ??

Synes godt om

hypergrafx Nybegynder

12. januar 2001 - 23:46 #25

Som tidligere sagt \"jeg ikke er nogen ørn til udtræk af databaser.....\" Håber netop sådan en som dig kan hjælpe.. Jeg kan næsten ikke give dig mere info om mit script !!!

Synes godt om

ellebaek Nybegynder

13. januar 2001 - 00:02 #26

jamen ...

Det jeg kan se er at du både vil have recordset og connections ...
og det kan jeg ikke se nogen grund til ...

Synes godt om

hypergrafx Nybegynder

13. januar 2001 - 00:06 #27

Så vis mig din løsning....med udtræk fra to db som virker og er testet !!

Synes godt om

ellebaek Nybegynder

13. januar 2001 - 00:10 #28

Synes godt om

hypergrafx Nybegynder

13. januar 2001 - 00:12 #29

Hvor er CONN ?

Synes godt om

hypergrafx Nybegynder

13. januar 2001 - 00:17 #30

Mange tak for din tid... Men jeg kan stadig ikke få scriptet til at virke ! Men du får lige nogle points for din tålmodighéd...

Synes godt om

ellebaek Nybegynder

13. januar 2001 - 00:19 #31

hvad skal du med con ?

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS