ERRO AO ABRIR BANCO DE DADOS MYSQL E VISUAL STUDIO
Olá pessoal,
Depois que instalei o Visual Studio 2013 em meu computador e tentei rodar os meus programas, tive uma surpresa, a instrução que utilizo para abrir o banco de dados está dando um erro que não sei tirar. O erro é o seguinte:
An unhandled exception of type [ô]MySql.Data.MySqlClient.MySqlException[ô] occurred in MySql.Data.dll
Abaixo o código que estou utilizando:
Function Ver_Configuracoes()
Dim StrConfi, ValCon01 As String
Dim dr As MySqlDataReader
StrConfi = [Ô]Server=[Ô] & Servidor & [Ô];User id=[Ô] & Usuarios & [Ô];password=[Ô] & Senhas & [Ô];database=[Ô] & Bancos & [Ô];[Ô]
ValCon01 = [Ô]Select * from configuracoes order by Num_HD[Ô] [ô]id_tipo_receita[Ô]
Dim Conn As New MySqlConnection(StrConfi)
Dim Cmd As New MySqlCommand(ValCon01, Conn)
[ô]O erro se dá aqui
Conn.Open()
dr = Cmd.ExecuteReader
If dr.Read Then
Try
If dr.Item([Ô]Num_HD[Ô]).ToString = NewSerial Then
NewConectou = True
Empresa = dr.Item([Ô]NomeEmpresa[Ô]).ToString
EmpCNPJ = dr.Item([Ô]CNPJEmpresa[Ô]).ToString
EmpINCE = dr.Item([Ô]InscEstadual[Ô]).ToString
EmpEsta = dr.Item([Ô]EstadoEmpresa[Ô]).ToString
EmpVERS = dr.Item([Ô]SisVersao[Ô]).ToString
EmpLOGO = dr.Item([Ô]LogoEmpresa[Ô]).ToString
EmpSTAT = dr.Item([Ô]Status[Ô]).ToString
Else
NewConectou = False
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
Conn.Close()
dr.Close()
End Try
End If
Return NewConectou
End Function
Se alguém poder me ajudar, ficarei grato.
Obrigado,
Depois que instalei o Visual Studio 2013 em meu computador e tentei rodar os meus programas, tive uma surpresa, a instrução que utilizo para abrir o banco de dados está dando um erro que não sei tirar. O erro é o seguinte:
An unhandled exception of type [ô]MySql.Data.MySqlClient.MySqlException[ô] occurred in MySql.Data.dll
Abaixo o código que estou utilizando:
Function Ver_Configuracoes()
Dim StrConfi, ValCon01 As String
Dim dr As MySqlDataReader
StrConfi = [Ô]Server=[Ô] & Servidor & [Ô];User id=[Ô] & Usuarios & [Ô];password=[Ô] & Senhas & [Ô];database=[Ô] & Bancos & [Ô];[Ô]
ValCon01 = [Ô]Select * from configuracoes order by Num_HD[Ô] [ô]id_tipo_receita[Ô]
Dim Conn As New MySqlConnection(StrConfi)
Dim Cmd As New MySqlCommand(ValCon01, Conn)
[ô]O erro se dá aqui
Conn.Open()
dr = Cmd.ExecuteReader
If dr.Read Then
Try
If dr.Item([Ô]Num_HD[Ô]).ToString = NewSerial Then
NewConectou = True
Empresa = dr.Item([Ô]NomeEmpresa[Ô]).ToString
EmpCNPJ = dr.Item([Ô]CNPJEmpresa[Ô]).ToString
EmpINCE = dr.Item([Ô]InscEstadual[Ô]).ToString
EmpEsta = dr.Item([Ô]EstadoEmpresa[Ô]).ToString
EmpVERS = dr.Item([Ô]SisVersao[Ô]).ToString
EmpLOGO = dr.Item([Ô]LogoEmpresa[Ô]).ToString
EmpSTAT = dr.Item([Ô]Status[Ô]).ToString
Else
NewConectou = False
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
Conn.Close()
dr.Close()
End Try
End If
Return NewConectou
End Function
Se alguém poder me ajudar, ficarei grato.
Obrigado,
Citação:MySql.Data.dll
Já viu essa referencia se esta tudo normal ?
Olha, eu recomendaria o VS2010, já q p Windows 8 e 8.1 não foi muito aceito, creio eu q os softwares voltado para ele tambem tenha algum tipo de problema, mas se caso queira continuar com o 2013, tente verificar o q nosso amigo NILSONTRES mencionou, verifique se o erro se encontra no MySql.Data.dll, se estiver faltando este item, provavelmente ele não funcionara corretamente, se quiser uma dica de conexão usando VS2010 eu tenho alguns q provavelmente possa te ajudar.
Pessoal, estou utilizando o Windows 7 com Mysql 5.0 e MySql Conector 6.2.2, já verifiquei o Conector e está tudo certo, será que este VS2013 não funciona com o direito com o Windows 7?
Tente criar uma classe nova de conexão com os seguintes comandos:
Imports System.Data.SqlClient
Imports System.Windows.Forms
Public Class cldBancoDados
Dim StringConexao As String = [Ô]Server=.;Database=nomedadatabase;user id=usuario;pwd=senha[Ô]
Private Function AbreBanco() As SqlConnection
Dim Conn As New SqlConnection
With Conn
.ConnectionString = StringConexao
.Open()
End With
Return Conn
End Function
Private Sub FechaBanco(ByVal Conn As SqlConnection)
If Conn.State = ConnectionState.Open Then
Conn.Close()
End If
End Sub
Public Sub ExecutaComando(ByVal strQuery As String)
Dim Conn As New SqlConnection
Try
Conn = AbreBanco()
Dim cmdComando As New SqlCommand
With cmdComando
.CommandText = strQuery
.CommandType = CommandType.Text
.Connection = Conn
.ExecuteNonQuery()
End With
Catch ex As Exception
Throw ex
Finally
End Try
End Sub
Public Function RetornaDataSet(ByVal strQuery As String) As DataSet
Dim Conn As New SqlConnection
Try
Conn = AbreBanco()
Dim cmdComando As New SqlCommand
With cmdComando
.CommandText = strQuery
.CommandType = CommandType.Text
.Connection = Conn
End With
Dim daAdaptador As New SqlDataAdapter
Dim dsDataSet As New DataSet
daAdaptador.SelectCommand = cmdComando
daAdaptador.Fill(dsDataSet)
Return dsDataSet
Catch ex As Exception
Throw New Exception([Ô]Erro na camada 3:[Ô] & ex.Message)
Finally
FechaBanco(Conn)
End Try
End Function
Public Function RetornaDataReader(ByVal strQuery As String) As SqlDataReader
Dim Conn As New SqlConnection
Try
Conn = AbreBanco()
Dim cmdComando As New SqlCommand
With cmdComando
.CommandText = strQuery
.CommandType = CommandType.Text
.Connection = Conn
End With
Return cmdComando.ExecuteReader
Catch ex As Exception
Throw ex
End Try
End Function
End Class
onde estiver escrito nome da database, vc digita o nome do banco de dados q vc salvou, onde esta escrito usuario e senha, vc digita o o login quando vc abre o script do SQL, faça o teste de conexão com alguma tabela no seu sistema e me confirme se aparece o mesmo erro... ja aconteceu com um amigo esses dias e consegui arrumar, quero ter certeza se é o mesmo erro antes de te passar as instruções...
Imports System.Data.SqlClient
Imports System.Windows.Forms
Public Class cldBancoDados
Dim StringConexao As String = [Ô]Server=.;Database=nomedadatabase;user id=usuario;pwd=senha[Ô]
Private Function AbreBanco() As SqlConnection
Dim Conn As New SqlConnection
With Conn
.ConnectionString = StringConexao
.Open()
End With
Return Conn
End Function
Private Sub FechaBanco(ByVal Conn As SqlConnection)
If Conn.State = ConnectionState.Open Then
Conn.Close()
End If
End Sub
Public Sub ExecutaComando(ByVal strQuery As String)
Dim Conn As New SqlConnection
Try
Conn = AbreBanco()
Dim cmdComando As New SqlCommand
With cmdComando
.CommandText = strQuery
.CommandType = CommandType.Text
.Connection = Conn
.ExecuteNonQuery()
End With
Catch ex As Exception
Throw ex
Finally
End Try
End Sub
Public Function RetornaDataSet(ByVal strQuery As String) As DataSet
Dim Conn As New SqlConnection
Try
Conn = AbreBanco()
Dim cmdComando As New SqlCommand
With cmdComando
.CommandText = strQuery
.CommandType = CommandType.Text
.Connection = Conn
End With
Dim daAdaptador As New SqlDataAdapter
Dim dsDataSet As New DataSet
daAdaptador.SelectCommand = cmdComando
daAdaptador.Fill(dsDataSet)
Return dsDataSet
Catch ex As Exception
Throw New Exception([Ô]Erro na camada 3:[Ô] & ex.Message)
Finally
FechaBanco(Conn)
End Try
End Function
Public Function RetornaDataReader(ByVal strQuery As String) As SqlDataReader
Dim Conn As New SqlConnection
Try
Conn = AbreBanco()
Dim cmdComando As New SqlCommand
With cmdComando
.CommandText = strQuery
.CommandType = CommandType.Text
.Connection = Conn
End With
Return cmdComando.ExecuteReader
Catch ex As Exception
Throw ex
End Try
End Function
End Class
onde estiver escrito nome da database, vc digita o nome do banco de dados q vc salvou, onde esta escrito usuario e senha, vc digita o o login quando vc abre o script do SQL, faça o teste de conexão com alguma tabela no seu sistema e me confirme se aparece o mesmo erro... ja aconteceu com um amigo esses dias e consegui arrumar, quero ter certeza se é o mesmo erro antes de te passar as instruções...
Tópico encerrado , respostas não são mais permitidas