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
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5