Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Elnata COsta

MySql e Label

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você só precisa mostrar os dados que foram digitados.

Khaos, eu consigo exibir os dados do MySql, porém eu quero é que o meu programa faça uma constante verificação no MySql, que ao (Cliente) inserir um dado, imediatante seja exibido no (Servidor). Eu consigo exibir os dados, porém eu só consigo ver se tem um novo dado atualizado as Labels, ou DataGrid, Entendeu?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.