MySql e Label
Olá pessoal, estou com um probleminha aqui que o seguinte, eu preciso que o meu software (Versão Servidor) fique fazendo uma consulta constante no banco de dados mysql, e tenho outro programa (Versão Cliente) que envia esses dados para o MySql. A parte da versão cliente tranquilo, porém, o que eu gostaria de fazer é que cada vez que algum cliente envie dados para o MySql ele automaticamente exiba em uma Label os dados que foram enviado, e exibisse todos os dados, e a cada dado gerasse uma nova Label. Pois atualmente meu código só exibe os dados do MySql se eu clicar no botão atualizar, pode me dar uma ajudinha pessoal. :D
Meu código
Imports MySql.Data.MySqlClient
Imports System.Data
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports Microsoft.FlightSimulator.SimConnect
Imports System.Runtime.InteropServices
Public Class Server
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnEnviaPos.Click
Dim Query As String = "Select * From torres_controle WHERE ativo=0"
Dim QueryFreq As String = "Select * From torres_controle WHERE ativo=0 AND tipo='" & Me.cmbPosicao.Text & "'"
Using conn As New MySqlConnection("SERVER=localhost;user id=network;password=*******;database=network")
Dim Command As New MySqlCommand(QueryFreq, conn)
Try
Catch ex As Exception
End Try
conn.Open()
Dim dapater As New MySqlDataAdapter(Command)
Dim mydataset As New DataTable
dapater.Fill(mydataset)
Me.cmbLocalizacao.DataSource = mydataset
Me.cmbLocalizacao.DisplayMember = "icao"
Me.cmbLocalizacao.ValueMember = "id"
conn.Close()
Try
Catch error_mysql As MySqlException
MessageBox.Show(error_mysql.Message)
End Try
End Using
End Sub
End Class
Discussão (5)
Carregando comentários...