Torna al Thread
Protected Sub RichiamaDati()
Dim mdbCon As New MySql.Data.MySqlClient.MySqlConnection()
Dim dr As MySql.Data.MySqlClient.MySqlDataReader
Dim constring As String, queryString As String
constring = "Server=" & SERVER_CONNESSIONE & ";Database=" & DB & ";User id=" & USERR & ";Pwd=" & PSW & ";Port=" & PORT & ";"
mdbCon.ConnectionString = constring
queryString = " SELECT * FROM prova ;"
Dim command As New MySql.Data.MySqlClient.MySqlCommand(queryString, mdbCon)
command.Connection.Open()
dr = command.ExecuteReader()
If dr.HasRows Then
Dim x As Integer = 0
Do While dr.Read
x = x + 1
Select Case x
Case 1
TextBox1.Text = dr("ID")
TextBox2.Text = dr("DESCR")
Case 2
TextBox3.Text = dr("ID")
TextBox4.Text = dr("DESCR")
Case Else
Exit Do
End Select
Loop
End If
mdbCon.Close()
End Sub