P
Peter Lux
I'm trying to create a sales ticket (on a vb form in Excel) and fetching
results from an Access database. When I try to get the results from the
recordset, it doesn't look right. I've re-imported the data with
"trim(<fieldname>)" to make sure that I'm not picking up extra characters.
First, here's the data and how it should look
<the ticket_desc below looks fine>
121
CREEK TWP.
RR4 BOX 334
CLINTON, IL 61727
Here's the code:
Dim cAcc As New ADODB.Connection
Dim rsAcc As New ADODB.Recordset
Private Sub pbPrint_Click()
Dim Line1, Line2, Line3 As String
Dim v1, v2, v3 As String
Set rsAcc = cAcc.Execute(" Select ticket_desc from co_locn")
'This is fine.. it looks good
tbCoLocnAddr.Text = rsAcc(0)
Set rsAcc = cAcc.Execute(" Select a.ticket_nbr, b.name, b.address, b.city,
b.state, b.zip, b.cust_id from Sale a, Customer b where a.ticket_nbr=121 and
" & _
"a.cust_id=b.cust_id and a.address_seq_num = b.address_seq_num")
tbTicket.Text = rsAcc(0)
Line1 = rsAcc.Fields(1)
It didn't matter whether I had rsAcc(1) or rsAcc.Fields(1), line 1 (in
debug) ended up:
CREEK TWP. F RR4 BOX 334
It's the name AND the address..can you not reuse the same recordset or do
you have to 'reset' it before using it again?
results from an Access database. When I try to get the results from the
recordset, it doesn't look right. I've re-imported the data with
"trim(<fieldname>)" to make sure that I'm not picking up extra characters.
First, here's the data and how it should look
<the ticket_desc below looks fine>
121
CREEK TWP.
RR4 BOX 334
CLINTON, IL 61727
Here's the code:
Dim cAcc As New ADODB.Connection
Dim rsAcc As New ADODB.Recordset
Private Sub pbPrint_Click()
Dim Line1, Line2, Line3 As String
Dim v1, v2, v3 As String
Set rsAcc = cAcc.Execute(" Select ticket_desc from co_locn")
'This is fine.. it looks good
tbCoLocnAddr.Text = rsAcc(0)
Set rsAcc = cAcc.Execute(" Select a.ticket_nbr, b.name, b.address, b.city,
b.state, b.zip, b.cust_id from Sale a, Customer b where a.ticket_nbr=121 and
" & _
"a.cust_id=b.cust_id and a.address_seq_num = b.address_seq_num")
tbTicket.Text = rsAcc(0)
Line1 = rsAcc.Fields(1)
It didn't matter whether I had rsAcc(1) or rsAcc.Fields(1), line 1 (in
debug) ended up:
CREEK TWP. F RR4 BOX 334
It's the name AND the address..can you not reuse the same recordset or do
you have to 'reset' it before using it again?