VB.net & My SQL Next-Previous-First-Last Record

Question

4.00/5 (1 vote)

See more:

Dear friends
Sarfaraz here. I am now moving to VB.net and gradually trying to learn the language thanks to you all for support on my earlier questions in VB6.

Friends I have connected My sql server table with vb.net and could display all the records in a datagrid. But I have a problem in moving the records and bind them to text boxes. The problem is that i could only bind the last record.

My code is is working to load last record in the text boxes but how to move to Next-Previous-First-Last Record by clicking on command buttons for Next-Previous-First-Last Record and display them in text boxes accordingly.

VB

sql = "SELECT * FROM users"
          con.Open()
          cmd.CommandText = sql
          cmd.Connection = con
          dataadapter.SelectCommand = cmd
          datareader = cmd.ExecuteReader
          While datareader.Read
              datareader.Read()
              TextBox1.Text = datareader("UserId")
              TextBox2.Text = datareader("Username")
              TextBox3.Text = datareader("Age")
          End While

          con.Close()

Please help
Thank you

Posted 11-Jan-13 3:37am

sarfarazbhat

Updated 11-Jan-13 5:57am

v3

Add a Solution

2 solutions

Solution 1

You haven't bound anything.

All you did was put the contents of the records, one at time into the textbox. With each record you iteracted over, you replaced the contents of the textboxes with the contents of the latest record.

Try reading up on BindingNavigator[^] and maybe watch this[^].

Posted 11-Jan-13 4:47am

Dave Kreskowiak

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

sarfarazbhat · Accepted Answer · 2013-01-13T19:20:00

Dear all
I try and finally come up with the solutions.
The code is as under:-

VB

Imports MySql.Data.MySqlClient

Public Class Form1
    Dim con As MySqlConnection = New MySqlConnection("data source=localhost;database=students;user id=root;password=root")
    Dim ds As DataSet = New DataSet
    Dim dataadapter As New MySqlDataAdapter("select * from users", con)
    Dim cmd As MySqlCommand = New MySqlCommand()
    Dim dv As DataView
    Dim cm As CurrencyManager
    Dim datareader As MySqlDataReader

    Public Sub filldatasetandview()
        ds = New DataSet
        dataadapter.Fill(ds, "users")
        dv = New DataView(ds.Tables("users"))
        cm = CType(Me.BindingContext(dv), CurrencyManager)
    End Sub
    Public Sub bindfields()
        TextBox1.DataBindings.Clear()
        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
        TextBox1.DataBindings.Add("text", dv, "userid")
        TextBox2.DataBindings.Add("text", dv, "username")
        TextBox3.DataBindings.Add("text", dv, "age")
    End Sub
    Public Sub showposition()
        TextBox4.Text = cm.Position + 1 & "     " & "of" & "    " & cm.Count()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        filldatasetandview()
        bindfields()
        showposition()
    End Sub

    Private Sub previousrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles previousrecord.Click
        cm.Position = cm.Position - 1
        showposition()
    End Sub

    Private Sub nextrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nextrecord.Click
        cm.Position = cm.Position + 1
        showposition()
    End Sub

    Private Sub lastrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lastrecord.Click
        cm.Position = cm.Count - 1
        showposition()
    End Sub

    Private Sub firstrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles firstrecord.Click
        cm.Position = 0
        showposition()
    End Sub
End Class