Notifikationer

Markér alle som læst Log ud

jamal_s Nybegynder

23. juli 2001 - 17:27 Der er 27 kommentarer og
1 løsning

udtræk fra mysql base ?

jeg vil udtrække nogle data fra mysql databasen,
og Vil have et resultat på skærmen noget i retning af:

record1 record2 record3
record4 record5 record6
record7 record8 record9

håber du er med på hvad jeg mener ;o)
På forhånd tak for hjælpen

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 17:41 #1

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Mysql};Server=mysql.lort.dk;database=lort;uid=bla;pwd=bla\"
Set rs = Conn.Execute(\"select * from tabel\")
count = 1
Response.Write \"<table><tr>\"
Do until rs.eof
count = count+1
if count = 3 then
response.write \"</tr><tr>\"
count = 1
end if

Response.Write \"<td>\" & rs(\"record\") & \"</td>\"
rs.movenext
loop
Response.Write\"</tr></table>\"

Set rs = Nothing
Conn.Close
Set Conn = nothing
%>

Det burde da gøre det

Synes godt om

jakobandersen Nybegynder

23. juli 2001 - 17:44 #2

Noget i denne stil.

Counter = 0
Response.write \"<table>\"
Response.write \"<tr>\"
Do while not objRS.EOF
If Counter Mod 3 Then
Response.write \"</tr>\"
Response.write \"<tr>\"
Counter = Counter + 1
Response.write \"<td>\" & objRS(\"record\") & \"</td>\"
End If
objRS.Movenext
Loop

If Not Counter Mod 3 Then
Do While Not Counter Mod 3
Response.write \"<td> </td>\"
Loop
End If

Response.write \"</tr>\"
Response.write \"</table>\"

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 17:52 #3

øh jeg skal bruge til mysql+asp ik access+asp ;o)

Synes godt om

jakobandersen Nybegynder

23. juli 2001 - 17:52 #4

Det er det samme.

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 17:56 #5

jeg prøver :)

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 17:56 #6

jamal_s > Det er nu også det samme! Hvis du nu havde kigget koden ordentligt igennem ville du se at der stod

Conn.Open \"DRIVER={Mysql};Server=mysql.lort.dk;database=lort;uid=bla;pwd=bla\"

MYSQL, læs tingene igennem først!

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 17:58 #7

moonduck > Microsoft VBScript runtime error \'800a01a8\'
Object required: \'\'

/subkategori.asp, line 23

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 17:59 #8

jamal_s > Ja, du skal jo have åbnet et recordset først før du kan bruge hans!

Kopier min kode ind, ret dine mysql login oplysninger og sql sætningen.. så er det klart

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 17:59 #9

bjarke >

ADODB.Recordset error \'800a0cc1\'
Unknown runtime error

/subkategori.asp, line 25

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 18:00 #10

Linie 25 ?

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 18:02 #11

<%
mode = request.querystring(\"mode\")
kategori = request.querystring(\"kategori\")
subkategori = request.querystring(\"subkategori\")

SQLserveradr=\"mysql.web-zone.dk\"
SQLdatabase=\"webzonedk\"
SQLlogin=\"webzonedk\"
SQLpassword=\"password\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword

mySQL = \"SELECT * From subkategori where kategori = \'\" & kategori & \"\'\"
Set RS = Conn.Execute( mySQL )
%>
<%
Counter = 0
Response.write \"<table>\"
Response.write \"<tr>\"
Do while not objRS.EOF
If Counter Mod 3 Then
Response.write \"</tr>\"
Response.write \"<tr>\"
Counter = Counter + 1
Response.write \"<td>\" & objRS(\"subkategori\") & \"</td>\"
End If
objRS.Movenext
Loop

If Not Counter Mod 3 Then
Do While Not Counter Mod 3
Response.write \"<td> </td>\"
Loop
End If

Response.write \"</tr>\"
Response.write \"</table>\"
%>

Synes godt om

jakobandersen Nybegynder

23. juli 2001 - 18:03 #12

Det lyder for at sige det lige ud som om du ikke helt har fattet ASP prøv at læse tutorialen på http://www.html.dk under ASP tutorialen

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 18:04 #13

jamal_s > Forhelvede, lær ASP først!

<%
mode = request.querystring(\"mode\")
kategori = request.querystring(\"kategori\")
subkategori = request.querystring(\"subkategori\")

SQLserveradr=\"mysql.web-zone.dk\"
SQLdatabase=\"webzonedk\"
SQLlogin=\"webzonedk\"
SQLpassword=\"password\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword

mySQL = \"SELECT * From subkategori where kategori = \'\" & kategori & \"\'\"
Set RS = Conn.Execute( mySQL )

Counter = 0
Response.write \"<table>\"
Response.write \"<tr>\"
Do while not rs.EOF
If Counter Mod 3 Then
Response.write \"</tr>\"
Response.write \"<tr>\"
Counter = Counter + 1
Response.write \"<td>\" & rs(\"subkategori\") & \"</td>\"
End If
rs.Movenext
Loop

If Not Counter Mod 3 Then
Do While Not Counter Mod 3
Response.write \"<td> </td>\"
Loop
End If

Response.write \"</tr>\"
Response.write \"</table>\"
%>

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 18:07 #14

bjarke > er det bare fordi jeg skal tage %><% væk ??

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 18:08 #15

jamal_s > NEJ!

Du kalder dit recordset for RS, moonduck kalde det for objRs

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 18:09 #16

nu gik min hjemmeside ned :(

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 18:10 #17

bjarke > ok skal nok tjekke det næste gang ;o) sorry ! men næste lad være med at bande !

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 18:11 #18

men næste lad være med at bande

=

men næste gang lad være med at bande *g*

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 18:19 #19

det virker ingengang, prøve at trykke på Computer. den svar intet :(

http://www.web-zone.dk/chart/kategori.asp

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 18:24 #20

<%
mode = request.querystring(\"mode\")
kategori = request.querystring(\"kategori\")
subkategori = request.querystring(\"subkategori\")

SQLserveradr=\"mysql.web-zone.dk\"
SQLdatabase=\"webzonedk\"
SQLlogin=\"webzonedk\"
SQLpassword=\"password\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword

mySQL = \"SELECT * From subkategori where kategori = \'\" & kategori & \"\'\"
Set rs = Conn.Execute(mySQL)
count = 1
Response.Write \"<table><tr>\"
Do until rs.eof
count = count+1
if count = 3 then
response.write \"</tr><tr>\"
count = 1
end if
Response.Write \"<td>\" & rs(\"record\") & \"</td>\"
rs.movenext
loop
Response.Write\"</tr></table>\"

set rs = nothing
Conn.close
set conn = nothing
%>

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 18:35 #21

tjek lige:

http://www.web-zone.dk/chart/subkategori.asp?kategori=Computer

synes du ik der er noget galt ?

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 18:39 #22

<%
mode = request.querystring(\"mode\")
kategori = request.querystring(\"kategori\")
subkategori = request.querystring(\"subkategori\")

SQLserveradr=\"mysql.web-zone.dk\"
SQLdatabase=\"webzonedk\"
SQLlogin=\"webzonedk\"
SQLpassword=\"password\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword

mySQL = \"SELECT * From subkategori where kategori = \'\" & kategori & \"\'\"
Set rs = Conn.Execute(mySQL)
count = 0
Response.Write \"<table><tr>\"
Do until rs.eof
count = count+1
if count = 3 then
response.write \"</tr><tr>\"
count = 0
end if
Response.Write \"<td>\" & rs(\"record\") & \"</td>\"
rs.movenext
loop
Response.Write\"</tr></table>\"

set rs = nothing
Conn.close
set conn = nothing
%>

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 18:44 #23

prøv at tjekke den igen ?

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 18:46 #24

<%
mode = request.querystring(\"mode\")
kategori = request.querystring(\"kategori\")
subkategori = request.querystring(\"subkategori\")

SQLserveradr=\"mysql.web-zone.dk\"
SQLdatabase=\"webzonedk\"
SQLlogin=\"webzonedk\"
SQLpassword=\"password\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword

mySQL = \"SELECT * From subkategori where kategori = \'\" & kategori & \"\'\"
Set rs = Conn.Execute(mySQL)
count = 0
Response.Write \"<table><tr>\"
Do until rs.eof
count = count+1
Response.Write \"<td>\" & rs(\"record\") & \"</td>\"
if count = 3 then
response.write \"</tr><tr>\"
count = 0
end if
rs.movenext
loop
Response.Write\"</tr></table>\"

set rs = nothing
Conn.close
set conn = nothing
%>

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 18:50 #25

hvad med lidt plads i mellem dem..... :o)

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 19:00 #26

Response.Write \"<td>\" & rs(\"record\") & \"   </td>\"

og btw, med den asp kodning kommer du sq ikke langt med dit chart site

Synes godt om

jamal_s Nybegynder

23. juli 2001 - 19:01 #27

why not ?

Synes godt om

bjarke-b Nybegynder

23. juli 2001 - 19:05 #28

jamal_s > Fordi det kræver at man kan det grundlæggende programmering når man vil lave et så stort site.

Du kan jo knapt nok lave en gæstebog uden hjælp fra andre.

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
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

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