Søg
Avatar billede tekniskdesigner Nybegynder
25. juni 2003 - 11:13 Der er 4 kommentarer og
1 løsning

database opgave

Hej...

Er deer en eller anden som kan lave denne opgave for mig...

Det er en database hvor man skal kunne indtaste følgende oplysninger om en selv.

Brugernavn
password
Fornavn
Efternavn
Adresse
Hus nr.
Bynavn
post nr.
ekstra felt 1
ekstra felt 2
ekstra felt 3
ekstra felt 4
ekstra felt 5
ekstra felt 6
ekstra felt 7
ekstra felt 8

Også skal der selvfølgelig være en formular hvor man kan skrive de dataer ind i databsen også bagefter skal der komme et udtræk hvor den lister det hele op...

Nogen som er op for denne opgave ???

Vh. Thomas Nielsen
Avatar billede medions Nybegynder
25. juni 2003 - 11:50 #1
www.html.dk <- der har du svaret!

//>Rune
Avatar billede eagleeye Praktikant
25. juni 2003 - 20:51 #2
Du kan lave en side med formen som denne.
Du må selv rette lidt op på HTML delen det kunne stå pænere.


<html>
<head></head>
<body>

<table>
<form action="gem.asp" method="post">
<tr><td>Brugernavn</td><td><input type="text" name="brugernavn"></td></tr>
<tr><td>Password</td><td><input type="password" name="password"></td></tr>
<tr><td>Fornavn</td><td><input type="text" name="fornavn"></td></tr>
<tr><td>Efternavn</td><td><input type="text" name="efternavn"></td></tr>
<tr><td>Adresse</td><td><input type="text" name="adresse"></td></tr>
<tr><td>Hus nr.</td><td><input type="text" name="husnr"></td></tr>
<tr><td>Bynavn</td><td><input type="text" name="bynavn"></td></tr>
<tr><td>Post nr.</td><td><input type="text" name="postnr"></td></tr>
<tr><td>ekstra felt 1</td><td><input type="text" name="ekstra_felt_1"></td></tr>
<tr><td>ekstra felt 2</td><td><input type="text" name="ekstra_felt_2"></td></tr>
<tr><td>ekstra felt 3</td><td><input type="text" name="ekstra_felt_3"></td></tr>
<tr><td>ekstra felt 4</td><td><input type="text" name="ekstra_felt_4"></td></tr>
<tr><td>ekstra felt 5</td><td><input type="text" name="ekstra_felt_5"></td></tr>
<tr><td>ekstra felt 6</td><td><input type="text" name="ekstra_felt_6"></td></tr>
<tr><td>ekstra felt 7</td><td><input type="text" name="ekstra_felt_7"></td></tr>
<tr><td>ekstra felt 8</td><td><input type="text" name="ekstra_felt_8"></td></tr>
<tr><td cols="2"><input type="submit" name="Gem" value="Gem"></td></tr>
</form>
</table>

</body>
</html>
Avatar billede eagleeye Praktikant
25. juni 2003 - 20:52 #3
Du kan lave en fil som denne som gemmer i en databasen her hedder datbasen db1.mdb skal lige rettes lidt til. Tabellen hedder brugere eller er felterne som du har beskrevet i spørgsmålet de er alle af typen tekst.

Filen skal hedde  gem.asp


<html>
<head></head>
<body>

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  brugernavn = replace(Request.Form("brugernavn"),"'","''")
  Password = replace(Request.Form("password"),"'","''")
  Fornavn = replace(Request.Form("fornavn"),"'","''")
  Efternavn = replace(Request.Form("efternavn"),"'","''")
  Adresse = replace(Request.Form("adresse"),"'","''")
  Husnr = replace(Request.Form("husnr"),"'","''")
  Bynavn = replace(Request.Form("bynavn"),"'","''")
  Postnr = replace(Request.Form("postnr"),"'","''")
  ekstra_felt_1 = replace(Request.Form("ekstra_felt_1"),"'","''")
  ekstra_felt_2 = replace(Request.Form("ekstra_felt_2"),"'","''")
  ekstra_felt_3 = replace(Request.Form("ekstra_felt_3"),"'","''")
  ekstra_felt_4 = replace(Request.Form("ekstra_felt_4"),"'","''")
  ekstra_felt_5 = replace(Request.Form("ekstra_felt_5"),"'","''")
  ekstra_felt_6 = replace(Request.Form("ekstra_felt_6"),"'","''")
  ekstra_felt_7 = replace(Request.Form("ekstra_felt_7"),"'","''")
  ekstra_felt_8 = replace(Request.Form("ekstra_felt_8"),"'","''")

  set Conn = Server.CreateObject("ADODB.Connection")
  set rs = Server.CreateObject("ADODB.Recordset")
  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db1.mdb")

  SQL = "SELECT * FROM brugere WHERE brugernavn = '" & brugernavn & "'"
  set rs = Conn.Execute(SQL)
  if rs.EOF then
    SQL = "INSERT INTO brugere (brugernavn, [Password], fornavn, efternavn, adresse, husnr, "
    SQL = SQL & "bynavn, postnr, ekstra_felt_1, ekstra_felt_2, ekstra_felt_3, ekstra_felt_4, "
    SQL = SQL & "ekstra_felt_5, ekstra_felt_6, ekstra_felt_7, ekstra_felt_8) VALUES ("
    SQL = SQL & "'" & brugernavn & "', "
    SQL = SQL & "'" & password & "', "
    SQL = SQL & "'" & fornavn & "', "
    SQL = SQL & "'" & efternavn & "', "
    SQL = SQL & "'" & adresse & "', "
    SQL = SQL & "'" & husnr & "', "
    SQL = SQL & "'" & bynavn & "', "
    SQL = SQL & "'" & postnr & "', "
    SQL = SQL & "'" & ekstra_felt_1 & "', "
    SQL = SQL & "'" & ekstra_felt_2 & "', "
    SQL = SQL & "'" & ekstra_felt_3 & "', "
    SQL = SQL & "'" & ekstra_felt_4 & "', "
    SQL = SQL & "'" & ekstra_felt_5 & "', "
    SQL = SQL & "'" & ekstra_felt_6 & "', "
    SQL = SQL & "'" & ekstra_felt_7 & "', "
    SQL = SQL & "'" & ekstra_felt_8 & "')"
    Conn.Execute(SQL)
    indsat = true
  else
    Response.Write "Brugernavnet findes alderrede" 
  end if

  rs.Close

  if indsat = true then
    SQL = "SELECT * FROM brugere WHERE brugernavn = '" & brugernavn & "'"
    set rs = Conn.Execute(SQL)
    Response.Write "Du er nu oprettet som bruger med disse oplysniger : <br>"
    Response.Write "Brugernavn : " & rs("brugernavn") & "<br>"
    Response.Write "Password : " & rs("password") & "<br>"
    Response.Write "Fornavn : " & rs("fornavn") & "<br>"
    Response.Write "Efternavn : " & rs("efternavn") & "<br>"
    Response.Write "Adresse : " & rs("adresse") & "<br>"
    Response.Write "Hus nr. : " & rs("husnr") & "<br>"
    Response.Write "By : " & rs("bynavn") & "<br>"
    Response.Write "Post nr. : " & rs("postnr") & "<br>"
    Response.Write "Ekstra felt 1 : " & rs("ekstra_felt_1") & "<br>"
    Response.Write "Ekstra felt 2 : " & rs("ekstra_felt_2") & "<br>"
    Response.Write "Ekstra felt 3 : " & rs("ekstra_felt_3") & "<br>"
    Response.Write "Ekstra felt 4 : " & rs("ekstra_felt_4") & "<br>"
    Response.Write "Ekstra felt 5 : " & rs("ekstra_felt_5") & "<br>"
    Response.Write "Ekstra felt 6 : " & rs("ekstra_felt_6") & "<br>"
    Response.Write "Ekstra felt 7 : " & rs("ekstra_felt_7") & "<br>"
    Response.Write "Ekstra felt 8 : " & rs("ekstra_felt_8") & "<br>"

    rs.Close
  end if
  Conn.Close 
  Set Conn = Nothing
end if
%>
</body>
</html>
Avatar billede tekniskdesigner Nybegynder
25. juni 2003 - 20:58 #4
Kan i ikke lave det og smide det i en zip fil til mig på adressen webmaster@thomasnet.dk for jeg forstår ikke helt hva i mener med det...
Avatar billede eagleeye Praktikant
25. juni 2003 - 21:04 #5
Du kan download en zip fil her:
www.eagleeye.dk/eks/formting.zip
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel Indlæg Oprettet Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver 2 16/01/202610:29 16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver 20 07/05/202520:51 10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver 7 06/03/202522:34 10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver 4 31/12/202423:10 01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver 14 11/12/202415:12 13/12/202415:40
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
I går 09:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
White papers
Flere white papers »