Easy database question

[LedZep]

What up,

All I need to do is enter a last name in a text box, query a MSAccess
database and display the name with the corresponding columns. This is
no problem, but when there are more than one records with the same
last name, I need to click a command button to display the next record
with that name. I cant find it in any of my books and it sounds like
an easy enough question. Any help is definately appreciated.

TIA,

LedZep

[touf]

For easy questoin easy answer..:o))

I don't know what is exactly your current code but...I suppose that you are
using datasets
so, you can defiine a variable in the form class (so it will be global for
the form)

- after selecting for a new name set the variable to 1

- in the button
if myVariable < mydataset.table s("tablename"). rows.count then
myVariable +=1
display mydataset.table s("tablename"). rows (myvariable)
else
msgbox ("last one")
end if


"LedZep" <wa*********@ho tmail.com> wrote in message
news:30******** *************** **@posting.goog le.com...

What up,

All I need to do is enter a last name in a text box, query a MSAccess
database and display the name with the corresponding columns. This is
no problem, but when there are more than one records with the same
last name, I need to click a command button to display the next record
with that name. I cant find it in any of my books and it sounds like
an easy enough question. Any help is definately appreciated.

TIA,

LedZep

[LedZep]

wa*********@hot mail.com (LedZep) wrote in message news:<30******* *************** ***@posting.goo gle.com>...

What up,

All I need to do is enter a last name in a text box, query a MSAccess
database and display the name with the corresponding columns. This is
no problem, but when there are more than one records with the same
last name, I need to click a command button to display the next record
with that name. I cant find it in any of my books and it sounds like
an easy enough question. Any help is definately appreciated.

TIA,

LedZep

I forgot to mention I'm using vb.Net

[Cor]

Hi Led,
This depends really how you fill the textbox with the names.
You can use a reader or a dataset or a dataview etc.
Can you send a piece of code, maybe someone can help you then.
-reading the access file
-filling the textbox
Cor

[LedZep]

"Cor" <no*@non.com> wrote in message news:<3f******* *************** *@reader20.wxs. nl>...

Hi Led,
This depends really how you fill the textbox with the names.
You can use a reader or a dataset or a dataview etc.
Can you send a piece of code, maybe someone can help you then.
-reading the access file
-filling the textbox
Cor

If txtLast.Text <> "" Then
AddressBookData Set.Clear()
AddressBookData Adapter.SelectC ommand.CommandT ext = _
"SELECT * FROM addresses WHERE lastname = '" & txtLast.Text
& "' "

AddressBookData Adapter.Fill(Ad dressBookDataSe t)

Display(Address BookDataSet)
txtStatus.Text &= vbCrLf & "Query Successful " & _
vbCrLf

Else
txtLast.Text = "Enter last name here then press Find"
End If
When there's two records with the same last name I have to click a
command button to display the next record in the txtLast. Im lost.

Thanks,

LedZep

[Cor]

Hi Led.

Your dataset contains a simple table, I think you can reach it with (in a
kind of pseudo code)
\\\\\
dim i as integer
dim adress as string
adress = Addressbookdata set.table(0).ro ws(i)("adres"). tostring
/////
You can to do a for each loop with
\\\
dim dr as datarow
for each dr in addressbookdata set.table(0).ro ws
adress = dr("adres").tos tring
next
///
I hope this helps a little bit?
Cor

If txtLast.Text <> "" Then
AddressBookData Set.Clear()
AddressBookData Adapter.SelectC ommand.CommandT ext = _
"SELECT * FROM addresses WHERE lastname = '" & txtLast.Text
& "' "

AddressBookData Adapter.Fill(Ad dressBookDataSe t)

Display(Address BookDataSet)
txtStatus.Text &= vbCrLf & "Query Successful " & _
vbCrLf

Else
txtLast.Text = "Enter last name here then press Find"
End If