Visual Basic 2005 Express Edition-Using SQL to fill text boxes

[chaosdl]

Hello,

I am currently using Visual Basic 2005 express edition with a MS Access database. I have made a "Contacts" Form, where the user will be able to enter a members surname and press an OK button, this then searches through the database and displays the results in the corresponding text boxes (ID, FirstName, LastName etc) of the searched member. I have used an SQL statement to search through the database, the problem I am having is filling the text boxes (ID, FirstName, LastName etc) with the correct member.

Below is my search code:

Private Sub BtnOK_Click(ByV al sender As System.Object, ByVal e As System.EventArg s) Handles BtnOK.Click

Dim inc As Integer
Dim maxrows As Integer
Dim con As New OleDb.OleDbConn ection
Dim ds As New DataSet
Dim da As OleDb.OleDbData Adapter

con.ConnectionS tring = "PROVIDER=Micro soft.Jet.OLEDB. 4.0;Data Source = C:\Documents and Settings\My Documents\Visua l Studio 2005\Projects\B ugReport\BugRep ort\Issues Database.MDB"

con.Open()

Dim str As String

str = "SELECT * FROM Contacts WHERE FirstName = '" & TextSearch.Text & "'"
da = New OleDb.OleDbData Adapter(str, con)
da.Fill(ds, "Contacts")

con.Close()

ID.Text = ds.Tables("Cont acts").Rows(0). Item(0)
FirstName.Text = GetTextField(ds .Tables("Contac ts").Rows(0).It em(1))
LastName.Text = GetTextField(ds .Tables("Contac ts").Rows(0).It em(2))
EmailAddress.Te xt = GetTextField(ds .Tables("Contac ts").Rows(0).It em(3))
Company.Text = GetTextField(ds .Tables("Contac ts").Rows(0).It em(4))
JobTitle.Text = GetTextField(ds .Tables("Contac ts").Rows(0).It em(5))
BusinessPhone.T ext = GetTextField(ds .Tables("Contac ts").Rows(0).It em(6))
HomePhone.Text = GetTextField(ds .Tables("Contac ts").Rows(0).It em(7))
MobilePhone.Tex t = GetTextField(ds .Tables("Contac ts").Rows(0).It em(8))
FaxNumber.Text = GetTextField(ds .Tables("Contac ts").Rows(0).It em(9))
Address.Text = GetTextField(ds .Tables("Contac ts").Rows(0).It em(10))
City.Text = GetTextField(ds .Tables("Contac ts").Rows(0).It em(11))
StateProvince.T ext = GetTextField(ds .Tables("Contac ts").Rows(0).It em(12))
ZIPPostalCode.T ext = GetTextField(ds .Tables("Contac ts").Rows(0).It em(13))
CountryRegion.T ext = GetTextField(ds .Tables("Contac ts").Rows(0).It em(14))
WebPage.Text = GetTextField(ds .Tables("Contac ts").Rows(0).It em(15))
Notes.Text = GetTextField(ds .Tables("Contac ts").Rows(0).It em(16))

maxrows = ds.Tables("Cont acts").Rows.Cou nt
inc = 0

End Sub


Thanks in Advance

[chaosdl]

I think the problem is within the text box related code rather than the SQL statment, as when I click OK the text boxes are always filled with the details of the first record.

[chaosdl]

Hi, just wondering if anyone could help me with the correct way to fill the textboxes.

Thanks