1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| Try
ComboBox1.SelectedIndex = ComboBox1.SelectedIndex + 1
Dim conf As MySqlConnection = New MySqlConnection("Data Source=" & ComboBox1.Text & ";Database=garage;User ID=keunene1;Password=;")
Dim sql As MySqlCommand = New MySqlCommand("SELECT ipadresse from temps ", conf)
Dim dsf As DataSet = New DataSet()
Dim DataAdapter1 As MySqlDataAdapter = New MySqlDataAdapter()
Dim cb As MySqlCommandBuilder
conf.Open()
Dim myReader As MySqlDataReader = sql.ExecuteReader()
Do While myReader.Read()
TextBox1.Text = myReader(0)
Timer1.Stop()
Loop
myReader.Close()
conf.Close()
If DataAdapter1.Fill(dsf, "users") Then
End If
Catch
End Try
Private Sub configu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
'thread_test.Start()
Timer1.Start()
Timer1.Interval = 20000
Catch
End Try
end sub |
Partager