I’ve used the following code to bind the data from an access database
to text boxes in Windows Form in VB.Net. Now I want to be able to
scroll through the records using a adhoc bar and be able to jump from
the first to the last record. this coding only displays the first
record. Can anyone please help me?
Private Sub frmmemberdetail s_Load(ByVal sender As System.Object,
ByVal e As System.EventArg s) Handles MyBase.Load
Me.OpenConnecti on()
Me.BindToTextbo x()
End Sub
Public Sub OpenConnection( )
Dim strPath As String = "C:\db1.mdb "
Dim strConnectionSt ring As String =
"Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=" & strPath
Dim objOleDbConnect ion As New
OleDbConnection (strConnectionS tring)
objOleDbConnect ion.Open()
Me._AmarsConnec tion = objOleDbConnect ion
End Sub
Public Sub BindToTextbox()
Dim strQuery As String = "SELECT * FROM [MemberDetails];"
Dim objOleDbCommand As New OleDbCommand(st rQuery,
_AmarsConnectio n)
Dim objOleDbDataAda pter As New
OleDbDataAdapte r(objOleDbComma nd)
Dim objDataTable As New DataTable()
Try
objOleDbDataAda pter.Fill(objDa taTable)
Me.txtmemberid. DataBindings.Ad d(New Binding("Text",
objDataTable, "MemberID") )
Me.txtfirstname .DataBindings.A dd(New Binding("Text",
objDataTable, "FirstName" ))
Me.txtlastname. DataBindings.Ad d(New Binding("Text",
objDataTable, "LastName") )
Me.txthouseno.D ataBindings.Add (New Binding("Text",
objDataTable, "HouseNumbe r/Name"))
Me.txtstreetnam e.DataBindings. Add(New Binding("Text",
objDataTable, "StreetName "))
Me.txtarea.Data Bindings.Add(Ne w Binding("Text",
objDataTable, "Town"))
'city combobox
Me.txtpostcode. DataBindings.Ad d(New Binding("Text",
objDataTable, "PostCode") )
Me.txtemail.Dat aBindings.Add(N ew Binding("Text",
objDataTable, "MemberE-mail"))
Me.txthomeno.Da taBindings.Add( New Binding("Text",
objDataTable, "HomeTel"))
Me.txtmobile.Da taBindings.Add( New Binding("Text",
objDataTable, "MobileNumber") )
Me.txtdob.DataB indings.Add(New Binding("Text",
objDataTable, "DateOfBirt h"))
Me.txtdatejoine d.DataBindings. Add(New Binding("Text",
objDataTable, "DateJoined "))
Me.txtkinname.D ataBindings.Add (New Binding("Text",
objDataTable, "NextOfKin-Name"))
Me.txtkinno.Dat aBindings.Add(N ew Binding("Text",
objDataTable, "NextOfKin-Tel"))
Catch ex As Exception
Me.ComboBox1.Te xt = ex.Message.ToSt ring()
Finally
Me.CloseConnect ion()
End Try
End Sub
Sub CloseConnection ()
_AmarsConnectio n.Close()
End Sub
End Class
----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---
