Toon posts:

[ASP/VB]meerdere resultaten *

Pagina: 1
Acties:

Verwijderd

Topicstarter
Waarom geeft mijn script maar een resultaat terwijl er veel meer zijn ? kijk voor vb hier:
http://www.autorecycler.nl/db_pulldown.asp

voor vragen <font color=red>vragen doen we hier en niet via elders anders hoef je het hier ook niet te vragen</font>
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
<%
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)};Driveronderdeel=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","u00321988s","ye94RSa3"

' 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 onderdeel comes in, then do it o/w just show pulldown
    ' request record for requested onderdeel
    objRS.Open "SELECT * FROM onderdelen WHERE onderdeel = '" & Request.QueryString("onderdeel") & "'", objDC, 0, 1
    ' Show selected record
    If Not objRS.EOF Then
        objRS.MoveFirst
        %>
        <table border="2">
            <tr>
                <td><strong>onderdeel Number</strong></td>
                <td><strong>First Name</strong></td>
                <td><strong>Last Name</strong></td>
                <td><strong>Month's Sales</strong></td>
            </tr>
            <%= objRS.Fields("onderdeel") %>
            <%= objRS.Fields("merk") %>
            <%= objRS.Fields("type") %>
            <%= objRS.Fields("bouwjaar") %>
        <%
    End If
    objRS.Close


objRS.Open "SELECT DISTINCT onderdeel FROM onderdelen ORDER BY onderdeel", 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 onderdeel in the QueryString
    %>
    <form action="db_pulldown.asp" method="get">
    <select name="onderdeel">
        <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 onderdeel
        ' The text we set to the employees first name combined with a space and then their last name
        %>
        <option value="<%= objRS.Fields("onderdeel") %>"><%= 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

  • Janoz
  • Registratie: Oktober 2000
  • Laatst online: 09-09 20:58

Janoz

Moderator Devschuur®

!litemod

Hulp wordt gewoon via het forum gedaan... Het is geen ontmoetingsplek om het vervolgens af te handelen via msn/icq. Daarnaast is het niet gebruikelijk om berichten te plaatsen als "Het werkt niet, dit is mijn code"

Kijk gewoon eens naar je code en probeer te achterhalen wat je precies doet. Je wilt meerdere resultaten laten zien? Dan zul je meerdere keren een record moeten afdrukken. De hierboven geposte code zal maar 1x een record afdrukken. Probeer in een manual eens te zoeken naar de while constructie en naar resultSet.moveNext().

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'


Verwijderd

Topicstarter
daar ben ik nu ook 8ter gekomen maar dat lukt mezelf niet dus vraag ik hier om hulp. En betreffende dat MSN dat doe ik alleen maar om het forum schoon te houden en dus niet voor kleine vraagjes die je zo kunt beantwoorden ;):P

  • Banzi
  • Registratie: Juni 2001
  • Laatst online: 25-08 09:58
doorloopt ie dat do - loop stukkie wel??? Ik test zulke dingen altijd door er ff een response.write tussen te zetten... Weet ik gelijk waar het fout gaat...

Ik zag, ik nam en ik kwam...


Verwijderd

Topicstarter
die loop na het keuzemenu is toch voor het keuzemenu kijk anders ff zelf:
http://www.autorecycler.nl/db_pulldown.asp

  • Janoz
  • Registratie: Oktober 2000
  • Laatst online: 09-09 20:58

Janoz

Moderator Devschuur®

!litemod

1. Ik zou nog iets meer html om het afdrukken van de onderdelen heenzetten. Nu kan ik het alleen in de source zien

2. Als je meerdere onderdelen in die tabel wil laten zien zul je daar ook een loop moeten gebruiken

Of snap ik het nu helemaal verkeerd....

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'

Pagina: 1