Avatar billede elohim Nybegynder
19. oktober 2004 - 14:20 Der er 29 kommentarer og
1 løsning

Hvordan får jeg DB oplysninger ind i input i en tabel.

Jeg har dette til gennemløb af DB, så jeg får alle i en tabel

<table border="1" width="100%" bgcolor="#fff5ee">
<tr>
<%for each x in rs.Fields
    response.write("<th align='left' bgcolor='#b0c4de'>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
    <tr>
    <%for each x in rs.Fields%>
      <td><%Response.Write(x.value)%></td>
    <%next
    rs.MoveNext%>
    </tr>
<%loop
rs.close
conn.close
%>
</table>

Men jeg ville gerne kunne få det ind i en table med input

Hvordan gør jeg det ??
Avatar billede elohim Nybegynder
19. oktober 2004 - 14:43 #1
Altså det jeg gerne ville er, at have en site med bare en record fra DB, hvor jeg kan bladre i DB.
Avatar billede trekkies Juniormester
19. oktober 2004 - 16:23 #2
Jeg laver den ud fra en tekst boks, og men en navn som tekst.
Normalt laver man den sådan:
<input type="text" name="tekst" value="<%=tekst%>">
Avatar billede elohim Nybegynder
19. oktober 2004 - 16:45 #3
Dette ved jeg, men hvordan får jeg den til at vælge fornavn, efternavn, gade, by osv. fra DB som ovenfor, men istedet sætte det ind i flere input, det er det jeg ikke kan få til at virke.
Avatar billede trekkies Juniormester
19. oktober 2004 - 16:50 #4
Jeg vil lave det sådan:
<input type="text" value="<%fornavn%>">
<input type="text" value="<%efternavn%>">

o.s.v.

Hvis du ikke kan få det til at virke, så smid din kode der ind, det skal også være med din database connection, så kan jeg kigge på den.
Avatar billede trekkies Juniormester
19. oktober 2004 - 16:51 #5
UPS
Der skal stå sådan:
<input type="text" value="<%=fornavn%>">
<input type="text" value="<%=efternavn%>">
Avatar billede elohim Nybegynder
19. oktober 2004 - 22:12 #6
Med denne kode :

<table border="1" width="100%" bgcolor="#fff5ee">
<tr>
<%for each x in rs.Fields
    <input type="text" name="tekst" value="<%=fornavn%>">
    <input type="text" name="tekst" value="<%=efternavn%>">
next%>
</tr>
<%do until rs.EOF%>
    <tr>
    <%for each x in rs.Fields%>
      <td><%Response.Write(x.value)%></td>
    <%next
    rs.MoveNext%>
    </tr>
<%loop
rs.close
conn.close
%>
</table>


Får jeg denne fejl :


Tekniske oplysninger (for supportteknikere)

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
En sætning var ventet
/Familien.asp, line 46


Browsertype:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)
Avatar billede trekkies Juniormester
19. oktober 2004 - 23:56 #7
Jeg vil kigge på din kode og vende tilbage i morgen eftermiddag, da jeg skal noget i morgen formiddag.

Tror du at det er muligt hvis du kan sende min hele din kode, også din database connection?

Du kan sende den til malle"slet"@mail.dk eller sætte den her ind.

Hvis du skriver til mig, så fjern "slet" ellers kan jeg ikke modtage den.

Jeg tjekker min mail og her inde senest i morgen tidlig kl. 7:30.
Avatar billede elohim Nybegynder
20. oktober 2004 - 01:02 #8
Uanset hvad jeg gør i nedenstående kode, så skriver den kun mit fornavn.

<html>
<body>

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("kp.mdb"))

set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT * FROM familie Order by fornavn"
rs.Open sql, conn
fornavn=request.form("fornavn")
%>

<form method="post">
vælg et fornavn <select name="fornavn">
<%  do until rs.EOF
    response.write("<option")
    if rs.fields("fornavn")=fornavn then
      response.write(" selected")
    end if
    response.write(">")
    response.write(rs.fields("fornavn"))
    rs.MoveNext
loop
rs.Close
set rs=Nothing %>
</select>
<input type="submit" value="Vis personer">
</form>

<%
if fornavn<>"" then
  sql="SELECT * FROM familie WHERE fornavn='" & fornavn & "'"
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.Open sql,conn
%>

    <input type="text" name="tekst" value="<%=fornavn%>"><br>
    <input type="text" name="tekst" value="<%=efternavn%>"><br>
    <input type="text" name="tekst" value="<%=by%>"><br>


<%
rs.close
conn.Close
set rs=Nothing
set conn=Nothing
%>
</table>
<%  end if %>


<!-- #include virtual="/Common/Pagefoot.txt" -->
</body>
</html>
Avatar billede elohim Nybegynder
20. oktober 2004 - 01:19 #9
Nå nu fandt jeg ud af det. jeg skulle bare lave nogle variabler og så putte variablerne ind i input, så køre det, ellers tak.
Men hvis du har energi, må du godt hjælpe mig med en kode (en knap) til at "skrive" evt. ædringer til DB, den skal være i samme form.
Avatar billede trekkies Juniormester
20. oktober 2004 - 17:15 #10
Hej Igen

Undskyld den lange ventetid.

Din brugere logger ind først, så kan de komme til denne side, husk at deres ID skal med
Her kommer koden:
<form method="post" onsubmit="return Check_Form(this)" action="side.asp?mode=check">
Dit navn: <input type="text" name="navn" id="navn">
<br />
Din mail adresse: <input type="text" name="mail" id="mail">
<p/>
Dit ønskede password: <input type="password" name="password" id="password">
<br/>
<input type="submit" value="Send" name="godkend" id="godkend">
<%
if request.querystring("mode") = "check" then
Dim mail
Dim navn
Dim password


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

strSQL = "UPDATE dintabel SET navn='" & Request.Form("navn") & "','" & Request.Form("mail") & "','" & Request.Form("password") & "' WHERE ID=" & TRIM(Request.QueryString("id"))
'Response.Write strSQL
Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
Set strSQL = nothing

Response.Write("<p><font color=red>Dine oplysninger er opgraderet.</font></p>")


end if
%>

Du kan ændrer i koden, så den kommer til at passe til dine oplysninger.

Hvis du får problemer eller spørgsmål så skriver du bare.
Avatar billede trekkies Juniormester
20. oktober 2004 - 17:18 #11
HUSK at sætte noget validering på dine tekst bokse, så kan de ikke sende oplysninger uden at der står noget der i.
Avatar billede elohim Nybegynder
21. oktober 2004 - 13:10 #12
OK, takker, skriv lige et svar
Avatar billede trekkies Juniormester
21. oktober 2004 - 13:40 #13
Her er et svar, glad for at kunne hjælpe dig.
Avatar billede elohim Nybegynder
22. oktober 2004 - 10:38 #14
Er du aktiv her
Avatar billede elohim Nybegynder
22. oktober 2004 - 10:39 #15
til formiddag
Avatar billede trekkies Juniormester
22. oktober 2004 - 13:51 #16
Jeg er aktiv nu, hvad er der?
Avatar billede elohim Nybegynder
22. oktober 2004 - 14:22 #17
Hvis jeg får denne fejl
Tekniske oplysninger (for supportteknikere)

Fejltype:
ADODB.Connection (0x800A0E7A)
Provideren kan ikke findes. Den er muligvis ikke installeret korrekt.
/testdb3.asp, line 9


i denne kode

<html>
<body>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("kp1.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>

' SQL forespørgsel
strSQL = "Select * from newsletter"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Fornavn
  Response.Write rs("navn") & "<br>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

</body>
</html>

Hvad kan der så være galt,
Jeg har installeret alt til MSAccess og oprettet en odbc der hedder DSN
Avatar billede trekkies Juniormester
22. oktober 2004 - 14:34 #18
Prøv at fjerne dine <% og %> midt inde i din sætning
http://www.darkskies.dk/conn.jpg

Du skal være sikker på at din mdb ligger det sted som du har skrevet og at den hedder dette som du har skrevet.
Avatar billede elohim Nybegynder
22. oktober 2004 - 14:40 #19
jeg er sikker, men det virker ikke , hvad hunden kan der være galt med det l...
undskyld men det frustere mig, håber du kan hjælpe.
Avatar billede elohim Nybegynder
22. oktober 2004 - 14:41 #20
Hvis du opretter en kp.mdb ved dig, virker det så ??
Avatar billede trekkies Juniormester
22. oktober 2004 - 14:45 #21
Din select sql er uden for din sql connection streng.
Avatar billede trekkies Juniormester
22. oktober 2004 - 14:51 #22
Jeg har lavet en database ved navn kp1.mdb, som hedder newsletter og har et feld som hedder navn, jeg får dette ud af det:
' SQL forespørgsel strSQL = "Select * from newsletter" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL) ' Gennemløb Recordset (rs) med en løkke Do ' Udskriv værdien af kolonnen Fornavn Response.Write rs("navn") & "
" ' Gå til næste Record i rs rs.MoveNext ' Fortsæt indtil rs er gennemløbet (EOF = End Of File) Loop While Not rs.EOF

Hvad jeg så fjerner de to <% %> midt i sætningen, så får jeg denne besked:
Her skal et navn stå
Avatar billede elohim Nybegynder
22. oktober 2004 - 14:52 #23
mener du at den skal være sådan,
<html>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("kp.mdb")
Conn.Open DSN
strSQL = "Select * from newsletter"
Set rs = Conn.Execute(strSQL)
Do
  Response.Write rs("navn") & "<br>"
  rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>

</body>
</html>


virker det ved dig ??
Avatar billede elohim Nybegynder
22. oktober 2004 - 15:15 #24
er conn.Provider="Microsoft.Jet.OLEDB.4.0"
det samme som
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("kp1.mdb")
Conn.Open DSN
Avatar billede elohim Nybegynder
22. oktober 2004 - 15:22 #25
når jeg bruger
conn.Provider="Microsoft.Jet.OLEDB.4.0"

i denne kode
<html>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("kp1.mdb"))
strSQL = "insert into offentlige(navn)values('ib2')"
Set rs = Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
</body>
</html>


Får jeg denne fejl.
Fejltype:
Microsoft JET Database Engine (0x80004005)
Handlingen skal bruge en opdaterbar forespørgsel.
/testdb5.asp, line 8
Avatar billede trekkies Juniormester
22. oktober 2004 - 15:25 #26
Du får denne fejl:
Handlingen skal bruge en opdaterbar forespørgsel.

Så skal du se denne lille film:
http://www.darkskies.dk/rettigheder.html
Avatar billede trekkies Juniormester
22. oktober 2004 - 15:26 #27
Det med provideren ved jeg ikke noget om, men jeg bruger denne provider:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("log/darkskies.mdb")

Jeg har aldrig haft problemer med denne måde.
Avatar billede trekkies Juniormester
22. oktober 2004 - 15:28 #28
Svar på dit sprøgsmål kl. 14:52:44, så virker det hos mig hvis jeg fjerner <% og %>.
Avatar billede elohim Nybegynder
22. oktober 2004 - 15:36 #29
Bingo det hjalp, tusind tak., må jeg vende tilbage med flere forespørgsler, hvis jeg er moderat i mit forbrug af tid.
Læser du din mail malle@mail.dk hele tiden ??
Avatar billede trekkies Juniormester
22. oktober 2004 - 15:41 #30
Du er velkommen til at skrive hvis du får problemer.

Ja, men mail adresse er: malle@mail.dk, jeg tjekker mine mails hvert minut, jeg plejer at have min computer sluttet mellem 23:00 og 9:00.

Fandt du dit problem med dit select problem?
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