Banco de dados multiuser

Raul_Kl disse:

Raul_Kl disse:

 



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load





        Dim myCommand As New MySqlCommand

        Dim myAdapter As New MySqlDataAdapter

        Dim myData As New DataTable

        Dim SQL As String



        Dim conn As MySqlConnection



        conn = New MySqlConnection



        conn.ConnectionString = "server=localhost;user id=root;password=fokker100;database=bancoteste"



        SQL = "SELECT * FROM bancoteste.tbl_teste"



        Try

            conn.Open()

            Try

                myCommand.Connection = conn

                myCommand.CommandText = SQL

                myAdapter.SelectCommand = myCommand

                myAdapter.Fill(myData)

                Tbl_testeDataGridView.DataSource = myData

            Catch myerro As MySqlException

                MsgBox("Erro de leitura no banco de dados : " & myerro.Message)

            End Try

            MessageBox.Show("Conexão aberta com sucesso&quot

            conn.Close()

        Catch myerro As MySqlException

            MessageBox.Show("Erro ao conectar com o Banco de dados : " & myerro.Message)

        Finally

            conn.Dispose()

        End Try

    End Sub 

Raul_Kl disse:

ping <ip_do_servidor>



telnet <ip_do_servidor> 3306

Raul_Kl disse:

suzart.bruno disse:

Raul_Kl disse:

Raul_Kl disse:

Raul_Kl disse:

suzart.bruno disse: