VB: Заполните несколько текстовых полей данными из MySQL DB

Question

Итак, у меня есть эта программа, которая должна хранить много различной информации от пользователей и показывать ее через текстовые поля, Numerics и т. Д., Когда загружается форма. Сначала я подумал, что это будет легко, но как только я начал писать код, я подумал, что если бы я сделал простой способ (как я знаю), мне пришлось бы писать сотни Subs, каждый из которых был бы с запросом MySQL и затем присваивать по одному значениям их соответствующим текстовым полям, спискам со списком и т. д.

Итак, как я могу извлекать данные из нескольких строк из базы данных MySQL, а затем назначать данные из каждой из этих строк в текстовые поля?

Это то, что у меня есть сейчас, который прекрасно работает, но только для получения одного единственного значения из БД:

Imports MySql.Data.MySqlClient 

Public Class GetInfo 


    Public Shared Sub Run() 

     Dim reader As MySqlDataReader 
     Dim result As String 

     Dim Query_Read As String = "Select Nome FROM dk_db_sql_yog." & Username 
     Dim Cmd_Read_Name As New MySqlCommand(Query_Read) 
     Cmd_Read_Name.Connection = Connect 
     reader = Cmd_Read_Name.ExecuteReader() 
     If reader.Read() Then 
      If reader.IsDBNull(0) Then 
       result = "" 
      Else 
       result = reader.GetString(0) 
      End If 
     End If 

     Form1.Name_Textbox.Text = result 
     reader.Close() 

    End Sub 

End Class 

Answer 1

Как я понимаю ваш вопрос, вы можете использовать DataTable:

Dim reader As MySqlDataReader 
Dim result As New Datatable 

Dim Query_Read As String = "Select Nome, Nome1, Nome2 FROM dk_db_sql_yog." & Username 
Dim Cmd_Read_Name As New MySqlCommand(Query_Read) 
Cmd_Read_Name.Connection = Connect 
result.Load(Cmd_Read_Name.ExecuteReader) 

With Form1 
    For Each dtrow AS DataRow in result.rows 
    .Name_Textbox1.Text = dtrow(0) 
    .Name_Textbox2.Text = dtrow(1) 
    .Name_Textbox3.Text = dtrow(2) 
    Next 
End With