[asp] Listbox en database uitlezen

[Verwijderd]

Mensen hier ben ik weer,
Ik heb een script waarmee ik een kolom van mn database in mn samenpers in een listbox. Maar nu is het probleem ( kijk anders ff: www.autorecycler.nl/db_pulldown.asp ) dat van al mn rijen met dezelfde input allemaal de zelfde keuzes krijg. Hoe krijg ik dit anders ? dwz dat bv bij voorfront (zie vb) maar een keer voorfront staat en dat ie dan alle rijen waar in de kolom (naam onderdeel) voorfront samenvoegt tot een en dan alle resultaten op voorfront eruit gooit ?

Snappie ? Nee he [e-mail]

mn script

code:

<%
Dim objDC, objRS

' Create and establish data connection
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30

'Use this line to use Access
'objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password"

'Our SQL Server code - use above line to use sample on your server
Set Conn = Server.CreateObject("ADODB.connection") 
objDC.Open "w00321988_onderdelen_sql","eh","eh"

' Create recordset and retrieve values using the open connection
Set objRS = Server.CreateObject("ADODB.Recordset")
' Opening record set with a forward-only cursor (the 0) and in read-only mode (the 1)

' If a request for a specific id comes in, then do it o/w just show pulldown
If Len(Request.QueryString("id")) <> 0 Then
    ' request record for requested id
    objRS.Open "SELECT * FROM onderdelen WHERE id = " & Request.QueryString("id"), objDC, 0, 1
    ' Show selected record
    If Not objRS.EOF Then
        objRS.MoveFirst
        %>
        <table border="2">
            <tr>
                <td><strong>ID Number</strong></td>
                <td><strong>First Name</strong></td>
                <td><strong>Last Name</strong></td>
                <td><strong>Month's Sales</strong></td>
            </tr>
            <tr>
                <td align="center"><%= objRS.Fields("id") %>&nbsp;</td>
                <td align="left"><%= objRS.Fields("merk") %>&nbsp;</td>
                <td align="left"><%= objRS.Fields("type") %>&nbsp;</td>
                <td align="right"><%= objRS.Fields("bouwjaar") %>&nbsp;</td>
            </tr>
        </table>
        <%
    End If
    objRS.Close
End If

objRS.Open "onderdelen", objDC, 0, 1
' Loop through recordset and display results
If Not objRS.EOF Then
    objRS.MoveFirst
    ' the form below calls this file only this time with an id in the QueryString
    %>
    <form action="db_pulldown.asp" method="get">
    <select name="id">
        <option></option>
    <%
    ' Continue until we get to the end of the recordset.
    Do While Not objRS.EOF
        ' For each record we create a option tag and set it's value to the employee id
        ' The text we set to the employees first name combined with a space and then their last name
        %>
        <option value="<%= objRS.Fields("id") %>"><%= objRS.Fields("onderdeel")%></option>
        <%
    ' Get next record
    objRS.MoveNext
    Loop
    %>
    </select>
    <input type="submit" value="Submit" />
    </form>
    <%
End If

' Close Data Access Objects and free DB variables
objRS.Close
Set objRS =  Nothing
objDC.Close
Set objDC = Nothing
%>

THNX

[Lister]

Normaal gesproken haal je dubbele waardes eruit via een SELECT DISTINCT, de code

code:

objRS.Open "onderdelen", objDC, 0, 1

zou dan als volgt moeten zijn:

code:

objRS.Open "SELECT DISTINCT onderdeel FROM onderdelen ORDER BY onderdeel", objDC, 0, 1

(de ORDER BY is niet verplicht maar wel zo netjes)

Je kan dan echter niet het ID veld erbij zetten want dat maakt juist weer ieder record uniek, als option value moet je dan ook het veld onderdeel gebruiken.

Het tweede stukje van jouw beschrijving is niet echt duidelijk maar blijkbaar wil je het gekozen onderdeel ergens uit gooien?
Dan zou kunnen met de volgende query:
DELETE FROM <tabel> WHERE Onderdeel = "<gekozen onderdeel>"

Ik hoop dat dit je wat op weg helpt

[Verwijderd]

kijk onder het soort onderdeel dat gekozen is vallen allerlei soorten dwz allemaal verschillende typen autozz maar nu wil ik dat alles wat maar met dat onderdeel te maken heeft (dmv kolom onderdeel) in de resultatenpagina komt te staan snappie ?

[e-mail] nogmaals misschien makkelijker

[Verwijderd]

Hallo ? kan iemand me misschien verder helpen en voor vragen [e-mail]

bvd bij voorbaat dank ;):)

[Lister]

Ik zet mijn antwoord gewoon hier neer en niet via mail want daar is het toch een forum voor?

Probeer het volgende eens:
Vervang

code:

objRS.Open "SELECT * FROM onderdelen WHERE id = " & Request.QueryString("id"), objDC, 0, 1

door

code:

objRS.Open "SELECT * FROM onderdelen WHERE onderdeel = """ & Request.QueryString("id") & """", objDC, 0, 1

(de extra quotes omdat het een string is in plaats van een id)
en vervang zoals ik al zei

code:

objRS.Open "onderdelen", objDC, 0, 1

door

code:

objRS.Open "SELECT DISTINCT onderdeel FROM onderdelen ORDER BY onderdeel", objDC, 0, 1

en vervang ook

code:

<option value="<%= objRS.Fields("id") %>"><%= objRS.Fields("onderdeel")%></option>

door

code:

<option value="<%= objRS.Fields("onderdeel") %>"><%= objRS.Fields("onderdeel")%></option>

Dan zou je toch al een aardig eind in de goede richting zitten dacht ik.

[Verwijderd]

Volgende fout zit in deze regel:

code:

objRS.Open "SELECT * FROM onderdelen WHERE onderdeel = """ & Request.QueryString("id") & """", objDC, 0, 1

Cannot use empty object or column names. Use a single space if necessary.

/db_pulldown.asp, line 22

was eerst niet het geval dat wil zeggen eerst geen fouten...

THNX voor je laters

[Lister]

Ik geloof dat ik de verkeerde quotes heb gebruikt, het moeten single in plaats van double zijn

Zoiets dan:

code:

objRS.Open "SELECT * FROM onderdelen WHERE onderdeel = '" & Request.QueryString("id") & "'", objDC, 0, 1

[Verwijderd]

lister, dit werkt perfect dwz er staan nu geen dubbelen meer in maar nu wil ik ook graag dat hij alles selecteert dwz niet op een bepaalde id alles eruit gooien maar alles op de kolom onderdeel

THNX