Нажмите одну кнопку несколько раз, и mySql

Question

Я создаю генератор. При каждом нажатии на button ему необходимо прочитать мне запись из базы данных и показать ее в textbox1 и textbox2.

Сейчас я знаю, как читать из базы данных, но как на каждый клик показывают различные значения

Public Class form1 
    Dim mysqlconnection As MySqlConnection 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     mysqlconnection = New MySqlConnection() 
     mysqlconnection.ConnectionString = " Hidden " 
     Try 
      mysqlconnection.Open() 
     Catch myerror As MySqlException 
      MessageBox.Show("Cannot connect to database: " & myerror.Message) 
     End Try 
     Dim myadapter As New MySqlDataAdapter 
     Dim sqlquary = "SELECT * FROM bazatestna.Users" 
     Dim command As New MySqlCommand 
     command.Connection = mysqlconnection 
     command.CommandText = sqlquary 
     myadapter.SelectCommand = command 
     Dim mydata As MySqlDataReader 
     mydata = command.ExecuteReader() 
     If mydata.HasRows = 0 Then 
      MsgBox("Database has no records") 
     Else 
      'Ths is the part where i need to show values on click 
     End If 
    End Sub 
End Class 

Я хотел бы от нагрузки, чтобы прочитать все данные из mysql базы данных, а затем каждый раз, когда я нажимаю на кнопку, чтобы показать одна запись из базы данных.

Answer 1

Это, как я хотел бы сделать это: я объявить переменную и поместить ее под Form1 класс:

Public Class Form1 
Dim cnt as Integer = 1 

Затем добавьте 1 приращение НКТ внутри события нажатия кнопки:

cnt +=1 

Тогда измените строку запроса, чтобы добавить предел:

Dim sqlquary = "SELECT * FROM bazatestna.Users Limit " & cnt & ", 1" 

Чтобы программа работала немного быстрее, переместите соединение d выливания в форму нагрузки:

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
    mysqlconnection = New MySqlConnection() 
    mysqlconnection.ConnectionString = " Hidden " 
    Try 
     mysqlconnection.Open() 
    Catch myerror As MySqlException 
     MessageBox.Show("Cannot connect to database: " & myerror.Message) 
    End Try 

End Sub