Just nu i M3-nätverket
Jump to content

hämta från databas med dropdown


christian

Recommended Posts

Någon som vet hur man gör, om man liksom vill rent hämningslöst låta användaren få ut det den önskar ur en MDB.

Tänker mig flera listor (selectbox) vars innehåll hämtas ur DB, sen en OK-knapp - där efter visas skräddarsytt resultat..

Vet någon, tacksam för hjälp!

Link to comment
Share on other sites

Skapa en funktion som plockar fram de värden du vill ha från den tabellen du vill söka i sim tex.

 

Function dropdown(connnection)

dim rsX

Set rsX = Server.CreateObject("ADODB.Recordset")

sql = "Select * from table Where colomn = '" & value & "' "

rsX.Open sql,con

If rsX.Eof Or rsX.BOF Then

dropdown = "[ värde saknas ]"

Else

dropdown = "<Select name=meny><option selected value=0>[ välj här ]</option>"

Do Until rsX.EOF

dropdown = dropdown & "<option value=" & rsX("ditt värde") & ">ditt värde</option>"

rsX.Movenext

loop

dropdown = dropdown & "</Select>"

rsX.Close

End if

End Function

 

Detta skapar en listbox enligt det som finns i sql-satsen, vill du lägga till värden som skickas till funktionen så skriver du det inom parantesen efter funktionensnamn.

 

Lycka till o våga fråga :o)

.::] a1 [::..........................

Det inte jag kan kan ni andra...

.::]2001[::..........................

 

 

Link to comment
Share on other sites

Hej, tack för svar!

-------------------

Förstår ungefär, men får det inte riktigt att funka.. Funkar nästan, men inte riktigt.. Nu har jag klämt in din kod på detta vis, hur gör jag?? Hoppas på svar.

 

<!-- #include file="databasen.inc" -->

<%

Function dropdown(connnection)

dim rsX

Set rsX = Server.CreateObject("ADODB.Recordset")

sql = "Select * from boken Where Region "

rsX.Open sql,con

%>

 

<%

If rsX.Eof Or rsX.BOF Then

dropdown = "[ värde saknas ]"

Else

dropdown = "<Select name=meny><option selected value=0>[ välj här ]</option>"

Do Until rsX.EOF

dropdown = dropdown &amp; "<option value=" & rsX("Hela Riket") & ">ditt värde</option>"

rsX.Movenext

loop

dropdown = dropdown & "</Select>"

rsX.Close

End if

End Function

%>

 

 

 

 

Link to comment
Share on other sites

Lite små fel bara:

Den tabell du ska hämta från heter boken, eller?

den kolumn du vill hämta från heter, vad?

ska det ställas villkor i den kolumnen, eller ska alla visas?

 

Skriv gärna hur tabeller boken ser ut.

 

Eller en länk så jag han se hur det blir eller vad som blir fel. :o)

 

 

.::] a1 [::..........................

Det inte jag kan kan ni andra...

.::]2001[::..........................

 

 

[inlägget ändrat 2002-02-28 10:49:51 av alferOne]

Link to comment
Share on other sites

Hej och tack igen för svar. Nu har jag mailat dig på din IDG-mail, där jag skickat med databasen. Hoppas du känner för att kika..

 

Bästa hälsningar, Christian

 

 

 

 

Link to comment
Share on other sites

  • 4 weeks later...
[ alferOne ]

Hej Christian!

 

min idgmail har inte fungerat på länge trots försök att meddela idg om detta så jag kan inte komma åt databasen längre....

skicka på nytt till randata@home.se om du behöver hjälpen fortfaranade.

 

 

.::] a1 [::..........................

Det inte jag kan kan ni andra...

.::]2001[::..........................

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...