CONCESAO MYSQL
Boa tarde a todos.
Estou tentando uma conexão com banco de dados MYSQL no servidor usando o código abaixo:
Imports MySql.Data.MySqlClient
Public Class Form1
Dim conn As New MySqlConnection
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim SQL As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = [Ô]server=192.168.1.3;user id=root;password=1234;database=banco dados[Ô]
SQL = [Ô]SELECT * FROM banco dados.cliente[Ô]
Try
conn.Open()
Try
myCommand.Connection = conn
myCommand.CommandText = Sql
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
GridCliente.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[Ô])
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
End Class
Esta dando erro nesta parte do código: myAdapter.Fill(myData)
Mensagem de erro no anexo.
Desde já agradeço.
Estou tentando uma conexão com banco de dados MYSQL no servidor usando o código abaixo:
Imports MySql.Data.MySqlClient
Public Class Form1
Dim conn As New MySqlConnection
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim SQL As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = [Ô]server=192.168.1.3;user id=root;password=1234;database=banco dados[Ô]
SQL = [Ô]SELECT * FROM banco dados.cliente[Ô]
Try
conn.Open()
Try
myCommand.Connection = conn
myCommand.CommandText = Sql
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
GridCliente.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[Ô])
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
End Class
Esta dando erro nesta parte do código: myAdapter.Fill(myData)
Mensagem de erro no anexo.
Desde já agradeço.
Tenho tabelas chamado, cliente, pagamento, qualquer uma que busco dá este erro.
Pode ver que na SQL
SQL = [Ô]SELECT * FROM banco dados.cliente[Ô]
está cliente e no erro está chamado.
é porque troquei a tabela para ver se era algum outro erro.
Pode ver que na SQL
SQL = [Ô]SELECT * FROM banco dados.cliente[Ô]
está cliente e no erro está chamado.
é porque troquei a tabela para ver se era algum outro erro.
O erro parece estar na sintaxe do SQL.
Experimenta colocar simplesmente:
SQL = [Ô]SELECT * FROM banco dados.cliente[Ô]
Experimenta colocar simplesmente:
SQL = [Ô]SELECT * FROM cliente[Ô]
Funcionou desta forma.
Muito obrigado.
Muito obrigado.
Tópico encerrado , respostas não são mais permitidas