Notifikationer

Markér alle som læst Log ud

killer_bee Nybegynder

27. oktober 2001 - 22:27 Der er 39 kommentarer og
1 løsning

onClick udfyld felter som bliver hentet fra DB

Jeg har på en asp side 12 felter og en select<--- den bliver udfyldt når siden åbnes.. så når man kliker på en af linjerne i den skla de 12 felter udfyldes med relevant data.. jeg mangler syntaxsen til dette:

function HentData()
{
var rediger, val <------- val skal være det man kliker på i selecten
connect= Server.CreateObject(\"ADODB.Connection\")
connect.Open(\"Kemi\")
rediger=connect.Execute(\"SELECT * FROM Kemikalier WHERE KemiskNavn=\'\"+val+\"\'\")

<----
herefter skal felterne udfyldes i en løkke

en af felterne hedder KemiskN

}

Jeg ved ikke hvordan man requester select\'s værdi på samme asp side..
og hvordan man skriver data ud i en felt..

Synes godt om

somaliomar Praktikant

27. oktober 2001 - 22:45 #1

æhh, jeg forstår ikke helt hvad du vil.

Synes godt om

somaliomar Praktikant

27. oktober 2001 - 22:45 #2

Kan du ikke uddybe spm\'et lidt nærmere?

Synes godt om

killer_bee Nybegynder

27. oktober 2001 - 22:53 #3

1)Ok.. Jeg kan finde ud af at Requeste værdien af en selecet når den bliver submitet fra en anden side(nemt nok Request.Form(\"select\")) men hvordan \"requester\" man den value når man arbejder på den samme side??

2)Og hvordan skriver man noget ind i en tekstbox på den samme side???

Synes godt om

somaliomar Praktikant

27. oktober 2001 - 23:05 #4

1) Det du vil er altså, at du vil sende Request.Form(\"select\")\'s værdi over til en anden side som så skal behandle oplysningerne. Er det rigtig eller tager jeg fejl?

2) <input type=\"text\" name=\"intext\" size=\"20\" value=\"<%= Response.Write \"Tekst her\" %>\">

Synes godt om

killer_bee Nybegynder

27. oktober 2001 - 23:11 #5

1)Nej.. det hele sker onClick i select menuen og på samme side..
<select name=\"redigerlist\" onClik=\"HentData()\" size=\"15\">
HentData funktionen skal på et eller anden måde få den værdi select har nårder bliver kliket på den.. og bruge denne værdi til at søge i DB.

2) tekst boxene er allerede oprettet.. jeg skal bare udfylde dem med det info jeg får fra DB.

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 07:26 #6

1) OKAY! Dvs. at du vil have at hvis man fx vælger en ting på rullemenuen, så skal funktionen HentData() tage over. Funktionen skal derefter hente data i databasen og sætte dem ind i de andre felter i den samme side. Er jeg på den gale vej?

2) Du bruger bare <input type=\"text\" name=\"intext\" size=\"20\" value=\"<%= Response.Write \"info fra databasen\" %>\">

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 07:28 #7

Jeg tror, at det bliver en hel del nemmere når jeg kan se den kode du arbejder med. Var det så ikke en ide at komme med koden? :)

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 18:45 #8

somaliomar <---- Jeg var på arb.. så ku ikke svare før men her er koden:
<%@ LANGUAGE = JScript %>

<! -#include file=\"adojavas.inc\"- ->
<HTML>
<head>
</head>
<Body>
F! 

<script LANGUAGE=\"JavaScript\">

function confirmSubmit()
{
var agree=confirm(\"Vil du redigere det valgte stof?\")

if (agree)
return true ;
else
return false ;
}

function HentData()
{
var rediger, val=request.Form(\"redigerlist\")
connect= Server.CreateObject(\"ADODB.Connection\")
connect.Open(\"Kemi\")
rediger=connect.Execute(\"SELECT * FROM Kemikalier WHERE KemiskNavn=\'\"+val+\"\'\")

}
</script>

<form method=\"POST\" id=\"submitform\" name=\"Slet\" action=\"http://localhost/IISSamples/SletStof.asp\">

<select name=\"redigerlist\" onClik=\"HentData()\" size=\"15\">

<%
var val, slet
connect= Server.CreateObject(\"ADODB.Connection\")
connect.Open(\"Kemi\")
slet=connect.Execute(\"SELECT * FROM Kemikalier ORDER BY AlfaPlads\")

if(!slet.EOF)
{

do
{
val=slet.Fields(\"KemiskNavn\")
%>
<option value=\"<%=val%>\" ><%=val%></option>

<%
slet.MoveNext()
}while(!slet.EOF)

}
else
{
%>
<option value=\"\">Databasen er tom!</option>
<%
}
slet.Close()

%>

</select>

of.
Kemisk Navn:           
<input type=\"text\" name=\"KemiskN\" size=\"20\" tabindex=\"1\">!Skal
udfyldes!    Eksempel:   
Acetylsalisylsyre

Kemisk Formel:        
<input type=\"text\" name=\"KemiskF\" size=\"20\" tabindex=\"2\">!Skal
udfyldes!    Eksempel:    2-CH3COC6H4COOH

Triviel Navn:             
<input type=\"text\" name=\"TrivielN\" size=\"20\" tabindex=\"3\">                            
Eksempel:    Aspirin

Forhandler Navn:      
<input type=\"text\" name=\"ForhandlerN\" size=\"20\" tabindex=\"4\">                            
Eksempel:    Frederiksen, Ølgod

Pris (kr):                    
<input type=\"text\" name=\"Pris\" size=\"20\" maxlength=\"8\" tabindex=\"5\">!Skal
udfyldes!     Eksempel:   
100   

Mængde (g):             
<input type=\"text\" name=\"Maengde\" size=\"20\" tabindex=\"6\">!Skal
udfyldes!     Eksempel:   
500

År (indkøbt):             
<input type=\"text\" name=\"Aar\" size=\"20\" maxlength=\"4\" tabindex=\"7\">                              
Eksempel:    2000

R/S sætninger:          
<input type=\"text\" name=\"RSsaetninger\" size=\"20\" tabindex=\"8\">                             
Eksempel:    R1:S45/56:R12/28:S5

Placering (fysisk):     
<input type=\"text\" name=\"Plads\" size=\"20\" tabindex=\"9\">!Skal
udfyldes!     Eksempel:   
GSH4 (for GiftSkab Hylde 5)

Affaldshåndtering:    
<input type=\"text\" name=\"Affald\" size=\"20\" tabindex=\"10\">!Skal
udfyldes!     Eksempel:   
Organisk affaldsdunk

Logo:         
               
<input type=\"text\" name=\"Logo\" size=\"20\" tabindex=\"11\">                              
Eksempel:    N:Ex:F

Alfabetisk plads:       <input type=\"text\" name=\"AlfaPlads\" size=\"20\" tabindex=\"12\">!Skal
udfyldes!      Eksempel:   
Acetylsalisylsyre

 
<input type=\"Submit\" onClick=\"return confirmSubmit()\" value=\"SLET DET MARKEREDE STOF\" name=\"Slet\">
</form>
</Body>
</HTML>

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 18:47 #9

function HentData()
{
var rediger, val=request.Form(\"redigerlist\")<--- Det er bla. det her jeg ikke ved hvordan man gør..
altså at onCklick ta den værdi selecten har og bruge den

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 18:57 #10

Og dette :
<input type=\"text\" name=\"intext\" size=\"20\" value=\"<%= Response.Write \"info fra databasen\" %>\">
.. virker heller ikke ... kig lige på koden og spørg løs :)

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 21:02 #11

killer_bee >> Hvad skal der ske hvis man trykker på \'SLET DET MARKEREDE STOF\'-knappen?

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 21:07 #12

Det skal du ikke kigge på .. for det første skal den hedde rediger stof.. den skal bare submite formen til en asp side.. problemmet er det andet ..
Og tak for du kiggede forbi.. håber du kan hjælpe mig det er min hovedopgave og jeg skal aflevere den 6 nov :)

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 21:11 #13

Og hvis du gider kigge på et andet lille problem jeg har http://www.eksperten.dk/spm/126252

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 21:24 #14

Prøv lige se om jeg har forstået dig ret:
Siden henter først noget info fra en database, putter dem i rullemenuen. Hvis man så vælger en ting fra rullemenuen, skal de 12 felter udfyldes automatisk af oplysninger fra databasen. Når man så klikker på \'Rediger stof\'-knappen sender siden hele den rette tekst til en anden side.

Pyha. Okay. Lige nogle dumme spm til:

Bruger du en database når infos skal hentes? I såfald hvad hedder så basen? Kan du evt. linke til databasen så jeg kan downloade den.

PS. Er det nødvendigt at bruge JavaScript?

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 21:34 #15

1)Ja
2)Ja .. ved ik hvordan man linker filen.. men det er oxo lige meget ....

I function HentData() mangler jeg syntaksen for at \"requeste\" selects værdi.. og skrive det i de oprettede text felter.. forresten hvis jeg må få din tlf så kan jeg ringe til dig .. det er nok nemmere at forstå hinanden .. eller kan du ringe til mig og sige din nummer så ringer jeg tilbage hvis du ikke vil give din nr til alle... men jeg er desperat :)

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 21:35 #16

Doh min nr er 20678001..

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 21:39 #17

Doh min nr er 20678001.. ??

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 21:42 #18

tlf ..hvis du ville ikke af med din nr(på nettet).. så kan du ringe til mig sige din nr så jeg kan ringe tilbage til dig = koster dig ikke noget(kr)

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 21:45 #19

Hvad for en nr(på nettet)

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 21:48 #20

kan du ikke bare ringe til mig.. så forklarer jeg det :)nr 20678001

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 21:52 #21

kan du bare ikke linke til databasen eller sende basen til min email: omar@ali.tf , hvis den ikke fylder for meget altså!

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 21:53 #22

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 21:56 #23

har sendt DB

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 21:58 #24

Okay Jeg har den. Du skal kun bruge tabellen der hedder \'Kemikalier\' ikke?

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 21:59 #25

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 23:03 #26

sorry det tog så lang tid

resultatet kan ses: http://www24.brinkster.com/limitz/opgave/kemi.asp

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 23:12 #27

oki.. ku man ikke lave det onClick??.. og kunne du ikke sende mig koden ??

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 23:39 #28

Hvad mener du med \'ku man ikke lave det onClick???\'?

Hele koden:
<%

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

\' SQL forespørgsel
strSQL = \"Select * from Kemikalier\"
Set rs = Conn.Execute(strSQL)

%>

<HTML>
<head>
</head>
<Body>
F! 

<script LANGUAGE=\"JavaScript\">

function confirmSubmit()
{
var agree=confirm(\"Vil du redigere det valgte stof?\")
if (agree)
window.open(\'http://www.name.com\');
else
return false;
}
</script>

<form method=\"POST\" name=\"Slet\" action=\"kemi.asp\">

<select name=\"redigerlist\" size=\"10\">
<%
Do until rs.eof
%>
<option><% Response.Write rs(\"KemiskNavn\") %></option>

<%
rs.movenext
Loop
%>
</select>
<input type=\"submit\" value=\"Tag den her!\" name=\"submit\">

</form>

<%
strNavn = Request.Form(\"redigerlist\")

If strNavn = \"\" Then
strNavn = \"Buten\"
End IF

\' SQL forespørgsel
strSQL = \"Select * from Kemikalier WHERE KemiskNavn = \'\" & strNavn & \"\'\"
Set rs = Conn.Execute(strSQL)

%>

of.

<form method=\"POST\" name=\"Slet2\" action=\"http://localhost/IISSamples/SletStof.asp\">

<table border=\"0\" width=\"100%\">
<tr>
<td width=\"14%\">Kemisk Navn:   </td>
<td width=\"16%\"><input type=\"text\" name=\"KemiskN\" size=\"20\" tabindex=\"1\" value=\"<% Response.Write rs(\"KemiskNavn\") %>\"></td>
<td width=\"12%\">!Skal udfyldes! </td>
<td width=\"58%\"> Eksempel: Acetylsalisylsyre</td>
</tr>
<tr>
<td width=\"14%\">Kemisk Formel:</td>
<td width=\"16%\"><input type=\"text\" name=\"KemiskF\" size=\"20\" tabindex=\"2\" value=\"<% Response.Write rs(\"Formel\") %>\"></td>
<td width=\"12%\">!Skal udfyldes! </td>
<td width=\"58%\">Eksempel: 2-CH3COC6H4COOH</td>
</tr>
<tr>
<td width=\"14%\">Triviel Navn:  </td>
<td width=\"16%\">
<input type=\"text\" name=\"TrivielN\" size=\"20\" tabindex=\"3\" value=\"<% Response.Write rs(\"TrivielNavn\") %>\"> </td>
<td width=\"12%\"></td>
<td width=\"58%\">Eksempel: Aspirin</td>
</tr>
<tr>
<td width=\"14%\">Forhandler Navn: </td>
<td width=\"16%\">
<input type=\"text\" name=\"ForhandlerN\" size=\"20\" tabindex=\"4\" value=\"<% Response.Write rs(\"Forhandler\") %>\"> </td>
<td width=\"12%\"></td>
<td width=\"58%\">Eksempel: Frederiksen, Ølgod</td>
</tr>
<tr>
<td width=\"14%\">Pris (kr):   </td>
<td width=\"16%\"><input type=\"text\" name=\"Pris\" size=\"20\" maxlength=\"8\" tabindex=\"5\" value=\"<% Response.Write rs(\"Pris\") %>\"></td>
<td width=\"12%\">!Skal udfyldes! </td>
<td width=\"58%\">Eksempel: 100</td>
</tr>
<tr>
<td width=\"14%\">Mængde (g): </td>
<td width=\"16%\"><input type=\"text\" name=\"Maengde\" size=\"20\" tabindex=\"6\" value=\"<% Response.Write rs(\"Maengde\") %>\"></td>
<td width=\"12%\">!Skal udfyldes! </td>
<td width=\"58%\">Eksempel: 500</td>
</tr>
<tr>
<td width=\"14%\">År (indkøbt):  </td>
<td width=\"16%\"><input type=\"text\" name=\"Aar\" size=\"20\" maxlength=\"4\" tabindex=\"7\" value=\"<% Response.Write rs(\"Aar\") %>\"></td>
<td width=\"12%\"></td>
<td width=\"58%\">Eksempel: 2000</td>
</tr>
<tr>
<td width=\"14%\">R/S sætninger: </td>
<td width=\"16%\"><input type=\"text\" name=\"RSsaetninger\" size=\"20\" tabindex=\"8\" value=\"<% Response.Write rs(\"RS\") %>\"> </td>
<td width=\"12%\"></td>
<td width=\"58%\">Eksempel:  R1:S45/56:R12/28:S5</td>
</tr>
<tr>
<td width=\"14%\">Placering (fysisk):</td>
<td width=\"16%\"><input type=\"text\" name=\"Plads\" size=\"20\" tabindex=\"9\" value=\"<% Response.Write rs(\"Placering\") %>\"></td>
<td width=\"12%\">!Skal udfyldes! </td>
<td width=\"58%\">Eksempel:  GSH4 (for GiftSkab Hylde 5)</td>
</tr>
<tr>
<td width=\"14%\">Affaldshåndtering: </td>
<td width=\"16%\"><input type=\"text\" name=\"Affald\" size=\"20\" tabindex=\"10\" value=\"<% Response.Write rs(\"Affald\") %>\"></td>
<td width=\"12%\">!Skal udfyldes! </td>
<td width=\"58%\">Eksempel:  Organisk affaldsdunk</td>
</tr>
<tr>
<td width=\"14%\">Logo:   </td>
<td width=\"16%\"><input type=\"text\" name=\"Logo\" size=\"20\" tabindex=\"11\" value=\"<% Response.Write rs(\"Logo\") %>\"> </td>
<td width=\"12%\"></td>
<td width=\"58%\">Eksempel:  N:Ex:F</td>
</tr>
<tr>
<td width=\"14%\">Alfabetisk plads: </td>
<td width=\"16%\"><input type=\"text\" name=\"AlfaPlads\" size=\"20\" tabindex=\"12\" value=\"<% Response.Write rs(\"AlfaPlads\") %>\"></td>
<td width=\"12%\">!Skal udfyldes! </td>
<td width=\"58%\">Eksempel:  Acetylsalisylsyre</td>
</tr>
<tr>
<td width=\"14%\"></td>
<td width=\"16%\"></td>
<td width=\"12%\"></td>
<td width=\"58%\"></td>
</tr>
</table>
<input type=\"Submit\" onClick=\"confirmSubmit()\" value=\"Rediger\" name=\"Slet\">
</form>

<%

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>
</body>
</html>

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 23:40 #29

Jeg har sat felterne i en tabel.

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 23:42 #30

Altså at man ikke skulle lave den knap \'TAG DEN..\'
men at når man klikede å stoffet i selecten den vil gøre det automatisk

Synes godt om

somaliomar Praktikant

28. oktober 2001 - 23:45 #31

Jeg tror ikke, det kan lade sig gøre at lave den automatisk uden en knap. Jeg kan ihvertfald ikke finde ud af det!

Synes godt om

killer_bee Nybegynder

28. oktober 2001 - 23:51 #32

Jeg har lavet på en side hvor den submiter til en anden frame på den samme side.. og det virker .. det jeg mangler er syntaxen i Jscript om hvordan man ta selects værdi.. noget a\'la
document.dinform.ditfelt.value .. jeg ved ik det korrekte syntaks..

Synes godt om

killer_bee Nybegynder

29. oktober 2001 - 01:12 #33

somaliomar kan du noget JScript oxo??

Synes godt om

somaliomar Praktikant

29. oktober 2001 - 08:19 #34

killer_bee >> JScript til hvad??

Synes godt om

killer_bee Nybegynder

29. oktober 2001 - 13:10 #35

somaliomar<----

Fordi jeg bruger JScript og jeg har lavet din kode om til JScript ...men den if sætning (nedenunder) virker i VB men .....

strNavn = Request.Form(\"redigerlist\")
If strNavn = \"\" Then
strNavn = \"Buten\"
End IF

Hvis jeg omskriver den til JScript bliver den til:

strNavn = Request.Form(\"redigerlist\")
if(strNavn==\"\" )
strNavn = \"Buten\"

og når siden loader første gang er Request.Form(\"redigerlist\") tomt... så år jeg checker if(strNavn==\"\" ).. giver den mig følgende fejl:

ADODB.Field fejl \'80020009\'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/IISSamples/Rediger.asp, linje 85

Fordi selvom strNavn er tom kan den ikke finde ud af det i if sætningen.. jeg ved ikke hvilken value select har når der er ikke blevet kliket på den.. jeg har prøvet med -1, null, isEmpty... men det virker ikke...

Synes godt om

somaliomar Praktikant

29. oktober 2001 - 20:22 #36

Prøv:

strNavn = Request.Form(\"redigerlist\")
if (strNavn==\"\") {
strNavn = \"Buten\"};

Synes godt om

killer_bee Nybegynder

29. oktober 2001 - 20:28 #37

somaliomar <---- har faktisk løst prob.. ved at sætte det første option til at være selected.. så den er aldrig tom... men jeg ville helst have onclick istedetfor en knap..

Du får pointerne aligevel for din flotte insats..

Jeg her oprettet en anden spørgsmål angående det her .. måske er den bedre formuleret... hvis du gider kigge på den

http://www.eksperten.dk/spm/127114

Synes godt om

somaliomar Praktikant

29. oktober 2001 - 20:31 #38

Takker!

Synes godt om

killer_bee Nybegynder

29. oktober 2001 - 20:32 #39

Gider du at kigge på det andet spm?

Synes godt om

somaliomar Praktikant

29. oktober 2001 - 20:52 #40

Det har jeg allerede gjort. Det er faktisk det samme du spørge om i http://www.eksperten.dk/spm/127114 og jeg har sagt at jeg ikke kan finde ud det med, at hvis man klikker på rullemenuen skal den valgte værdi sendes videre. Beklager!

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