Loop Cust-Ivent - need one instance of customer and many instances of inventory

J

jason

Access 2000:

I have a customer-inventory table I need to loop through and compile a list
of all the inventory items the customer is tracking. The problem I am
finding is that a simple loop will pull out the customer details each time
their is an inventory item listed....I need to get the customer out ONCE and
list his items....is there an elegant way to do this:

Here is the table:
Cust-Invent Table

CustID InvenID
101 356
101 222
101 187
55 34
55 123


But I need to get the extract it to my ASP page like this:

101
----
356
222
187

55
---
34
123

If I simply loop the table I will repeat the customer details which I do not
want want. I just want to get the CustID and then list the inventory items
underneath (and send an email to him) and then rs.movenext to the next
record....

I really appreciate any help here...
Jason
 
B

Bob Barrows

1. Create this saved query called qGetCustInv in your Access database:
Select CustID,InventID FROM Cust-Invent
ORDER BY CustID,InventID

2. In your asp page:
<%
dim cn, rs, ar, iRow, curCust, newCust
'open a connection using cn
set rs = server.createobject("adodb.recordset")
cn.qGetCustInv rs
if not rs.eof then ar = rs.GetRows
rs.close: set rs = nothing
cn.close: set cn = nothing
if isarray(ar) then
curCust = ar(0,0)
response.write "<table border=0>"
For iRow = 0 to ubound(ar,2)
newCust = ar(0,i)
if newCust <> curCust then
curCust = newCust
response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"
end if
response.write "<tr><td>&nbsp;</td><td>"
response.write ar(1,i)
response.write "</td></tr>"
next
response.write "</table>"
erase ar
else
response.write "No records"
end if

HTH,
Bob Barrows
 
J

jason

Hey Bob...this does not appear to solve the problem.....when I run your
script for my query I get the following and only the following for the first
customer in the query:

101 (hidden)

356
356
356

Thus, it appears to be finding the first customer record and listing the
yacht attached to that customer 3 times (matching the record count for all
the records in my table). It ignores the 2 other customer records and their
yacht inventory items.

I followed your general instructions for my existing query which is slightly
more complex but nevertheless should work:

PARAMETERS CID Long;
SELECT tblCustomer.CustomerID, tblPageWatch.ListingsID AS ListingsID,
qry_ListingsPriceChanges.NewPrice, qry_ListingsPriceChanges.Original_Price,
qry_ListingsPriceChanges.Name, qry_ListingsPriceChanges.tblCompany.Company,
qry_ListingsPriceChanges.Model, qry_ListingsPriceChanges.Size_ID,
qry_ListingsPriceChanges.Hull_Number, qry_ListingsPriceChanges.Year,
qry_ListingsPriceChanges.Location_Status,
qry_ListingsPriceChanges.Yacht_Type, qry_ListingsPriceChanges.Market_Status,
qry_ListingsPriceChanges.Charter_Status,
qry_ListingsPriceChanges.Broker_Name, qry_ListingsPriceChanges.Broker_Email,
tblCustomer.first_name, tblCustomer.last_name, tblCustomer.email_address,
qry_ListingsPriceChanges.Condition, qry_ListingsPriceChanges.Insertion_Date
FROM tblCustomer INNER JOIN (qry_ListingsPriceChanges INNER JOIN
tblPageWatch ON qry_ListingsPriceChanges.tblListings.ListingsID =
tblPageWatch.ListingsID) ON tblCustomer.CustomerID = tblPageWatch.CustomerID
WHERE ((([CID]) Is Null)) OR (((tblCustomer.CustomerID)=[CID]))
ORDER BY tblCustomer.CustomerID, tblPageWatch.ListingsID ;

What am I doing wrong?

Many thanks
Jason
 
M

Me

I would use this as a reference
(http://aspfaq.com/show.asp?id=2241), it does what you are
looking for but uses 2 tables opposed to 1. The key is
setting a variable to nothing, reading the first record,
comparing the variable to the first records variable, if
not matched, move new value to the variable, write out the
101 the write out the details, if it is matched, just
write out the details. I hope that helps.

-----Original Message-----
Hey Bob...this does not appear to solve the problem.....when I run your
script for my query I get the following and only the following for the first
customer in the query:

101 (hidden)

356
356
356

Thus, it appears to be finding the first customer record and listing the
yacht attached to that customer 3 times (matching the record count for all
the records in my table). It ignores the 2 other customer records and their
yacht inventory items.

I followed your general instructions for my existing query which is slightly
more complex but nevertheless should work:

PARAMETERS CID Long;
SELECT tblCustomer.CustomerID, tblPageWatch.ListingsID AS ListingsID,
qry_ListingsPriceChanges.Original_Price,
qry_ListingsPriceChanges.tblCompany.Company,
qry_ListingsPriceChanges.Size_ID,
qry_ListingsPriceChanges.Market_Status,
qry_ListingsPriceChanges.Broker_Email,
tblCustomer.first_name, tblCustomer.last_name, tblCustomer.email_address,
qry_ListingsPriceChanges.Insertion_Date
FROM tblCustomer INNER JOIN (qry_ListingsPriceChanges INNER JOIN
tblPageWatch ON
Click to expand...
qry_ListingsPriceChanges.tblListings.ListingsID =
tblPageWatch.ListingsID) ON tblCustomer.CustomerID = tblPageWatch.CustomerID
WHERE ((([CID]) Is Null)) OR (((tblCustomer.CustomerID)= [CID]))
ORDER BY tblCustomer.CustomerID, tblPageWatch.ListingsID ;

What am I doing wrong?

Many thanks
Jason




Bob Barrows said:
1. Create this saved query called qGetCustInv in your Access database:
Select CustID,InventID FROM Cust-Invent
ORDER BY CustID,InventID

2. In your asp page:
<%
dim cn, rs, ar, iRow, curCust, newCust
'open a connection using cn
set rs = server.createobject("adodb.recordset")
cn.qGetCustInv rs
if not rs.eof then ar = rs.GetRows
rs.close: set rs = nothing
cn.close: set cn = nothing
if isarray(ar) then
curCust = ar(0,0)
response.write "<table border=0>"
For iRow = 0 to ubound(ar,2)
newCust = ar(0,i)
if newCust <> curCust then
curCust = newCust
response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"
end if
response.write "<tr><td> </td><td>"
response.write ar(1,i)
response.write "</td></tr>"
next
response.write "</table>"
erase ar
else
response.write "No records"
end if

HTH,
Bob Barrows
Click to expand...


.
Click to expand...
 
J

jason

Thanks - but this is not helping.... I have already optimized my structure
by employing a complex join in the jet engine...... I am not really sure
how to re-adapt my db and asp code to fit that model...

I mean, I have the damn Cust ID and Inventory ID already in my query...there
has just got to be a way to make sure the Customer ID (and related customer
info fields in query) show up ONCE with multiple inventory items listed....

Can someone help me get my head around this...Bobs suggestion seems to fall
short....I cannot pinpoint where the script if flawed as I am no array
expert. It appears that If I take this section and place it outside the For
Loop I end up with one inventory item as oppossed to 3 repeats:

response.write "<tr><td>&nbsp;</td><td>"
response.write ar(1,i) & " + " & ar(4,i)
response.write "</td></tr>"
response.write "</table>"

But, I am at a loss as to how to get the script to loop for the individual
customer and show just the boats related to him. Full code:

dim cnn, rs, ar, iRow, curCust, newCust
cnn.Open strCon
'//------------------------------ PAGEWATCH
SQL -------------------------------
SQL="EXEC [qry_PageWatch+PriceChanges] @CID=NULL,@LID=NULL" '//This
'//-------------------------------------------------------------------------
-
set rs = cnn.execute(SQL) '//This

'open a connection using cn
'set rs = server.createobject("adodb.recordset")
'cnn.qGetCustInv rs

if not rs.eof then ar = rs.GetRows
rs.close: set rs = nothing
cnn.close: set cn = nothing
if isarray(ar) then
curCust = ar(0,0)
Response.Write curCust
response.write "<table border=0>"
' b=0
For iRow = 0 to ubound(ar,2)
' b=b+1
'Response.Write b
newCust = ar(0,i)
if newCust <> curCust then
curCust = newCust
response.write "<tr><td colspan=2>"
response.write curCust & "hi"
response.write "</td></tr>"
end if
'//Response.Write "hi"
next
response.write "<tr><td>&nbsp;</td><td>"
response.write ar(1,i) & " + " & ar(4,i)
response.write "</td></tr>"
response.write "</table>"
erase ar
else
response.write "No records"
end if



Me said:
I would use this as a reference
(http://aspfaq.com/show.asp?id=2241), it does what you are
looking for but uses 2 tables opposed to 1. The key is
setting a variable to nothing, reading the first record,
comparing the variable to the first records variable, if
not matched, move new value to the variable, write out the
101 the write out the details, if it is matched, just
write out the details. I hope that helps.

-----Original Message-----
Hey Bob...this does not appear to solve the problem.....when I run your
script for my query I get the following and only the following for the first
customer in the query:

101 (hidden)

356
356
356

Thus, it appears to be finding the first customer record and listing the
yacht attached to that customer 3 times (matching the record count for all
the records in my table). It ignores the 2 other customer records and their
yacht inventory items.

I followed your general instructions for my existing query which is slightly
more complex but nevertheless should work:

PARAMETERS CID Long;
SELECT tblCustomer.CustomerID, tblPageWatch.ListingsID AS ListingsID,
qry_ListingsPriceChanges.Original_Price,
qry_ListingsPriceChanges.tblCompany.Company,
qry_ListingsPriceChanges.Size_ID,
qry_ListingsPriceChanges.Market_Status,
qry_ListingsPriceChanges.Broker_Email,
tblCustomer.first_name, tblCustomer.last_name, tblCustomer.email_address,
qry_ListingsPriceChanges.Insertion_Date
FROM tblCustomer INNER JOIN (qry_ListingsPriceChanges INNER JOIN
tblPageWatch ON
Click to expand...
qry_ListingsPriceChanges.tblListings.ListingsID =
tblPageWatch.ListingsID) ON tblCustomer.CustomerID = tblPageWatch.CustomerID
WHERE ((([CID]) Is Null)) OR (((tblCustomer.CustomerID)= [CID]))
ORDER BY tblCustomer.CustomerID, tblPageWatch.ListingsID ;

What am I doing wrong?

Many thanks
Jason




Bob Barrows said:
1. Create this saved query called qGetCustInv in your Access database:
Select CustID,InventID FROM Cust-Invent
ORDER BY CustID,InventID

2. In your asp page:
<%
dim cn, rs, ar, iRow, curCust, newCust
'open a connection using cn
set rs = server.createobject("adodb.recordset")
cn.qGetCustInv rs
if not rs.eof then ar = rs.GetRows
rs.close: set rs = nothing
cn.close: set cn = nothing
if isarray(ar) then
curCust = ar(0,0)
response.write "<table border=0>"
For iRow = 0 to ubound(ar,2)
newCust = ar(0,i)
if newCust <> curCust then
curCust = newCust
response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"
end if
response.write "<tr><td> </td><td>"
response.write ar(1,i)
response.write "</td></tr>"
next
response.write "</table>"
erase ar
else
response.write "No records"
end if

HTH,
Bob Barrows

jason wrote:
Access 2000:

I have a customer-inventory table I need to loop through and compile
a list of all the inventory items the customer is tracking. The
problem I am finding is that a simple loop will pull out the customer
details each time their is an inventory item listed....I need to get
the customer out ONCE and list his items....is there an elegant way
to do this:

Here is the table:
Cust-Invent Table

CustID InvenID
101 356
101 222
101 187
55 34
55 123


But I need to get the extract it to my ASP page like this:

101
----
356
222
187

55
---
34
123

If I simply loop the table I will repeat the customer details which I
do not want want. I just want to get the CustID and then list the
inventory items underneath (and send an email to him) and then
rs.movenext to the next record....

I really appreciate any help here...
Jason
Click to expand...


.
Click to expand...
Click to expand...
 
B

Bob Barrows

See below for error correction:
Bob said:
1. Create this saved query called qGetCustInv in your Access database:
Select CustID,InventID FROM Cust-Invent
ORDER BY CustID,InventID

2. In your asp page:
<%
dim cn, rs, ar, iRow, curCust, newCust
'open a connection using cn
set rs = server.createobject("adodb.recordset")
cn.qGetCustInv rs
if not rs.eof then ar = rs.GetRows
rs.close: set rs = nothing
cn.close: set cn = nothing
if isarray(ar) then
curCust = ar(0,0)
response.write "<table border=0>"
Click to expand...
response.write "<tr><td colspan=2>"
response.write curCust
 
B

Bob Barrows

It's inline. Here: I'll mark it better:
jason said:
Hi Bob - did you post it below....I cannot see your changes?

Thanks - Jason
*********************************************

**************************************
Click to expand...
 
J

jason

Hi Bob - no go - it still only:

1. Lists one customer
2. It repeats the first inventory item for that customer the same number of
times as the record count for the customers in the table. In this case,
three times.
3. It does not show the other inventory item related to this customer. It
comes out like this:

200 (CustomerID)
215 ("CatPeople")
215 ("CatPeople")
215 ("CatPeople")

It does not show the other vessel listed for this customer: 216 ("Ballyhoo")

....And...

Its ignoring the next customer record: 201

...and its...related inventory item: 216 ("Ballyhoo")

- Jason

CODE:

dim cnn, rs, ar, iRow, curCust, newCust
cnn.Open strCon
'//------------------------------ PAGEWATCH
SQL -------------------------------
SQL="EXEC [qry_PageWatch+PriceChanges] @CID=NULL,@LID=NULL" '//This
'//-------------------------------------------------------------------------
-
'//This





'open a connection using cn
set rs = server.createobject("adodb.recordset")
set rs = cnn.execute(sql)
if not rs.eof then ar = rs.GetRows
rs.close: set rs = nothing
cnn.close: set cnn = nothing
if isarray(ar) then
curCust = ar(0,0)
response.write "<table border=0>"
'//*********************************************

response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"

'//**************************************
For iRow = 0 to ubound(ar,2)
newCust = ar(0,i)
if newCust <> curCust then
curCust = newCust
response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"
end if
response.write "<tr><td>&nbsp;</td><td>"
response.write ar(1,i)
response.write "</td></tr>"
next
response.write "</table>"
erase ar
else
response.write "No records"
end if
 
B

Bob Barrows

Damn! Change the i's to iRow. For example
newCust = ar(0,i)
should be
newCust = ar(0,iRow)

Bob
Hi Bob - no go - it still only:

1. Lists one customer
2. It repeats the first inventory item for that customer the same
number of times as the record count for the customers in the table.
In this case, three times.
3. It does not show the other inventory item related to this
customer. It comes out like this:

200 (CustomerID)
215 ("CatPeople")
215 ("CatPeople")
215 ("CatPeople")

It does not show the other vessel listed for this customer: 216
("Ballyhoo")

...And...

Its ignoring the next customer record: 201

..and its...related inventory item: 216 ("Ballyhoo")

- Jason

CODE:

dim cnn, rs, ar, iRow, curCust, newCust
cnn.Open strCon
'//------------------------------ PAGEWATCH
SQL -------------------------------
SQL="EXEC [qry_PageWatch+PriceChanges] @CID=NULL,@LID=NULL" '//This
'//-------------------------------------------------------------------------
-
'//This





'open a connection using cn
set rs = server.createobject("adodb.recordset")
set rs = cnn.execute(sql)
if not rs.eof then ar = rs.GetRows
rs.close: set rs = nothing
cnn.close: set cnn = nothing
if isarray(ar) then
curCust = ar(0,0)
response.write "<table border=0>"
'//*********************************************

response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"

'//**************************************
For iRow = 0 to ubound(ar,2)
newCust = ar(0,i)
if newCust <> curCust then
curCust = newCust
response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"
end if
response.write "<tr><td>&nbsp;</td><td>"
response.write ar(1,i)
response.write "</td></tr>"
next
response.write "</table>"
erase ar
else
response.write "No records"
end if


Bob Barrows said:
It's inline. Here: I'll mark it better:
Click to expand...
Click to expand...
 
J

jason

Ok - that almosts works but:

1. It only seems to see the first customer
2. It still duplicates the second inventory item


200
215
216
216


....you can see216 is showing up twice while customer 201 is not being
displayed....

Regards
Jason

Bob Barrows said:
Damn! Change the i's to iRow. For example
newCust = ar(0,i)
should be
newCust = ar(0,iRow)

Bob
Hi Bob - no go - it still only:

1. Lists one customer
2. It repeats the first inventory item for that customer the same
number of times as the record count for the customers in the table.
In this case, three times.
3. It does not show the other inventory item related to this
customer. It comes out like this:

200 (CustomerID)
215 ("CatPeople")
215 ("CatPeople")
215 ("CatPeople")

It does not show the other vessel listed for this customer: 216
("Ballyhoo")

...And...

Its ignoring the next customer record: 201

..and its...related inventory item: 216 ("Ballyhoo")

- Jason

CODE:

dim cnn, rs, ar, iRow, curCust, newCust
cnn.Open strCon
'//------------------------------ PAGEWATCH
SQL -------------------------------
SQL="EXEC [qry_PageWatch+PriceChanges] @CID=NULL,@LID=NULL" '//This
Click to expand...
'//-------------------------------------------------------------------------
-
'//This





'open a connection using cn
set rs = server.createobject("adodb.recordset")
set rs = cnn.execute(sql)
if not rs.eof then ar = rs.GetRows
rs.close: set rs = nothing
cnn.close: set cnn = nothing
if isarray(ar) then
curCust = ar(0,0)
response.write "<table border=0>"
'//*********************************************

response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"

'//**************************************
For iRow = 0 to ubound(ar,2)
newCust = ar(0,i)
if newCust <> curCust then
curCust = newCust
response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"
end if
response.write "<tr><td>&nbsp;</td><td>"
response.write ar(1,i)
response.write "</td></tr>"
next
response.write "</table>"
erase ar
else
response.write "No records"
end if
Click to expand...
Click to expand...
 
B

Bob Barrows

Did you replace the i in both cases? The code works fine for me (I tested it
this time). Here it is again:
<%
'this is the tested version
dim cn, rs, ar, iRow, curCust, newCust
'open a connection using cn
set cn=server.CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & Server.MapPath("dbfiles/db15.mdb")
set rs = server.createobject("adodb.recordset")
cn.qGetCustInv rs
if not rs.eof then ar = rs.GetRows
rs.close: set rs = nothing
cn.close: set cn = nothing
if isarray(ar) then
curCust = ar(0,0)
response.write "<table border=1>"
response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"
For iRow = 0 to ubound(ar,2)
newCust = ar(0,iRow)
if newCust <> curCust then
curCust = newCust
response.write "<tr><td colspan=2>"
response.write curCust
response.write "</td></tr>"
end if
response.write "<tr><td>&nbsp;</td><td>"
response.write ar(1,iRow)
response.write "</td></tr>"
next
response.write "</table>"
erase ar
else
response.write "No records"
end if

%>
 
J

jason

Allriiiiiiight! That works like a bomb - I guess it the iRows did it....

Many thanks Bob for your help....

I am going to try and see if I can pass these values to an outgoing email on
the fly to each customer....maybe I could pick your brains laters in this
same thread?

Regards
Jason
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Partially completed coding of loop script, need help finishing. 0
GET NEIL DEGRASSES TYSON, I ripped a hole with this one... 0
Only one table shows up with the information 2
Need total amount displayed of data-price attribute from each table 2
How to loop in folder through all excel files and all sheets using pandas? 0
Add a list of videos each one in a different button in a web page 1
Working on mobile css menu with plenty of frustration! 2
Putting the loop inside of loop properly 1

Members online

No members online now.
Total: 579 (members: 0, guests: 579)
Robots: 129

Forum statistics

Threads
474,126
Messages
2,570,750
Members
47,307
Latest member
Wimble

Latest Threads

Top