Avatar billede hdur Nybegynder
07. februar 2002 - 19:51 Der er 11 kommentarer og
1 løsning

Access

Hej jeg har denne kode der kun vil skrive kolonen billed er der en der kan hjælpe mig?
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tilbudsbasen.mdb")
Conn.Open DSN
%>

<body bgcolor="#f7f7f7">

<p align="center"><b><font face="Arial" size="5">Velkommen til pc2u.dk:)</font></b></p>
<hr>
<p align="center"><b><font size="5" face="Arial">Ugens tilbud:</font></b></p>
<%
sql = "SELECT * FROM varer WHERE id =1"
Set Rs = Conn.Execute(sql)
%>
<div align="center">
  <center>
<table border="1" width="84%" height="133" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
  <tr>
    <td width="25%" height="1">
      <p align="center">&nbsp;<b><font face="Arial">Billed:</font></b></p>
    </td>
    <td width="53%" height="1">
      <p align="center"><b><font face="Arial">Info:&nbsp;</font></b></p>
    </td>
    <td width="18%" height="1" colspan="2">
      <p align="center"><b><font face="Arial">&nbsp;Pris:</font></b></p>
    </td>
    </form></form>
  </tr>
  <tr>
    <td width="25%" height="124" rowspan="2">
      <p align="center">&nbsp;<img src="<%=rs("billed")%>"></td>
    <td width="53%" height="124" rowspan="2">
      <p align="center">&nbsp;<%=rs("info")%></p>
    </td>
    <td width="18%" height="112" colspan="2">
      <p align="center"><%response.write rs("pris")%>&nbsp;</p>
    </td>
  </tr>
  <tr>
    <td width="9%" height="12">
      <p align="center"><input type="submit" name="<%=rs("id")%>" value="info">


    </td>
    <td width="9%" height="12">
      <p align="center"><input type="submit" name="<%=rs("id")%>" value="køb">


    </td>
  </tr>
</table>

  </center>
</div>

<%
Conn.Close
Set Conn = Nothing
%>
Avatar billede hdur Nybegynder
07. februar 2002 - 20:01 #1
hvorfor hjælper ingen?
Avatar billede devman Nybegynder
07. februar 2002 - 21:26 #2
I linien :
DSN = DSN & "DBQ=" & Server.MapPath("tilbudsbasen.mdb")
Hvorfor ikke
DSN = DSN & "DBQ=" & Server.MapPath & "tilbudsbasen.mdb"
Avatar billede hdur Nybegynder
07. februar 2002 - 21:29 #3
Fordi det ikke virker:)
Avatar billede devman Nybegynder
07. februar 2002 - 21:48 #4
Jeg har brugt denne :
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("tilbudsbasen.mdb")

Så virker mit:
Dine felt navne er stavet rigtig .. billed -> billede ??
Avatar billede hdur Nybegynder
07. februar 2002 - 21:54 #5
prøv lige at skrive alt det du skriver for at oprette forbindelse:)
Avatar billede devman Nybegynder
07. februar 2002 - 21:56 #6
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db4.mdb")
Avatar billede devman Nybegynder
07. februar 2002 - 21:57 #7
Min DB hed 4db.mdb !! -
Avatar billede mcfly.asp Nybegynder
07. februar 2002 - 23:14 #8
Prøv dette i stedet
'OLEDB connection uden brug af ODBC :-)
    Dim Conn, dbPath
    dbPath = Server.MapPath("DATABASENAVN.mdb")
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

Det virker fint hjemme hos mig og ude på nettet.
/Henrik
PS. måske skal du bruge følgende lille ændring:
dbPath = Server.MapPath("../DATABASENAVN.mdb")
Hvis databasen ikke ligger i samme bibliotek.
Avatar billede mcfly.asp Nybegynder
07. februar 2002 - 23:51 #9
Du får kun billed frem fordi du "kun" løber databasen igennem 1 gang.
Hvis der ligger flere elementer der i, vises de ikke. Du søger efter et element hvor ID er 1. Der ligger vist kun et billed og ikke en pris ?? Eller hvad.
Prøv med:
*********************
<%
    'OLEDB connection uden brug af ODBC :-)
    Dim Conn, dbPath
    dbPath = Server.MapPath("../BIOSENSq.mdb")
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
   
    SQLStmt="SELECT DISTINCTROW * FROM Vare;"
    Set RS=Conn.Execute(SQLStmt)
%>

<%Do While Not rs.EOF%>

  <body bgcolor="#f7f7f7">

<p align="center"><b><font face="Arial" size="5">Velkommen til pc2u.dk:)</font></b></p>
<hr>
<p align="center"><b><font size="5" face="Arial">Ugens tilbud:</font></b></p>
<div align="center">
<center>
<table border="1" width="84%" height="133" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark<%
...
..
.
</td>
  </tr>
</table>

  </center>
</div>
<%
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
Avatar billede devman Nybegynder
07. februar 2002 - 23:55 #10
JA .. det ser rigtig ud!!
Avatar billede mcfly.asp Nybegynder
08. februar 2002 - 11:17 #11
Ellers må du sige til igen ;-)
Avatar billede hdur Nybegynder
08. februar 2002 - 14:28 #12
lavt dum fejl i databasen:)
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