PROBLEMAS COM CONEXAO MYSQL

 Tópico anterior Próximo tópico Novo tópico

PROBLEMAS COM CONEXAO MYSQL

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#435637 - 07/03/2014 08:56:53

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Bom dia, estou desenvolvendo uma aplicao em tres camadas para estudos e ao mesmo tempo iniciando no uso do MySQL, estou colocando a string de conexao num arquivo config deste modo:

<connectionStrings>
    <add name =[]ConexaoDisciplina[] connectionString =[]Server=\\168.14.184.250; Database=Disciplina; Uid=Usuario; Pwd=Senha;[] providerName=[]mysql.Data.mySqlClient;[]/>
  </connectionStrings>

Estou usando esta funcao para conectar:

Public Shared Function GetConnectionString(ByVal strConnection As String) As String
        Dim retorno As String
        retorno = ([][])
        If Not String.IsNullOrEmpty(strConnection) Then
            Try
                retorno = ConfigurationManager.ConnectionStrings([]ConexaoDisciplina[]).ConnectionString
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            retorno = ConfigurationManager.ConnectionStrings([]ConexaoDisciplina[]).ConnectionString
        End If
        Return retorno
    End Function

a linha em negrito onde d o erro: Object reference not set to an instance of an object>

No sei se o problema esta na string de  conexo ou na funcao de conexo.
Se puderem me ajudar!?!?!?

O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#435645 - 07/03/2014 11:46:23

CLEVERTON
SERRINHA
Cadast. em:Dezembro/2003


Membro da equipe
vc declarou a variavel retorno em qual local ?

talvez o problema esteja nisto.



#435649 - 07/03/2014 13:08:11

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Foi declarado dentro da funcao:

dim retorno as string
retorno = [][]

agora que fui reparar que a variavel retorno est com valor =[][]


O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#435651 - 07/03/2014 13:52:19

MOUSER
CARAPICUIBA
Cadast. em:Fevereiro/2014


Apesar da simplicidade, eu uso este a classe de conexo, da seguinte forma, confirme se for a mesma lgica:
Imports System.Data.SqlClient
Imports System.Windows.Forms
Public Class cldBancoDados
    Dim StringConexao As String = []Server=Servidor;Database=\\168.14.184.250;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

Eu j deixei o seu numero do servidor, para facilitar para vc entender, tente comparar este script com o q vc tem... Este funciona perfeitamente nos projetos q desenvolvo, espero ter ajudado... Se persistir a duvida, pode chamar, se quiser, eu posso te mandar tambm uma apostila q me ajudou a entender este script...

VB.NET + SQL Server = Muita coisa sei, mas muita coisa para aprender.
Curso de Excel e VB6 www.cursoexcelvba.com.br
Blog do Mouser


#435652 - 07/03/2014 14:19:15

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Vou testar esse cdigo posto a resposta, por enquanto, obrigado

O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#435833 - 11/03/2014 12:46:53

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Mouser, sua linha de conexao est errada:

Dim StringConexao As String = []Server=Servidor;Database=\\168.14.184.250;user id=usuario;pwd=senha[]

o correto :

Dim StringConexao As String = []Server=168.14.184.250;Database=NomeBD;user id=usuario;pwd=senha[]

at ai, blz, mas gostaria de poder obter a conexao direto do app.config, por isso volto aqui novamente.




O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


Resposta escolhida #435856 - 11/03/2014 16:15:52

TUNUSAT
SAMPA
Cadast. em:Dezembro/2003


DAMASCENO.CESAR,

     Achei problemas parecidos e nada de soluo.
http://www.dreamincode.net/forums/topic/277907-retrieving-connection-string-from-appconfig/
http://microsoft.public.br.dotnet.languages.vb.narkive.com/kdUVlCcB/migrando-o-app-config

    Montei o que estava aqui e no funcionou...
http://www.universalthread.com/ViewPageArticle.aspx?ID=211

    Rodei o programa anexado na ltima mensagem e funcionou!
http://www.vbmania.com.br/pages/?varModulo=Forum&varMethod=abrir&varID=429005

    Mas no consegui simular no seu cdigo...
    ... meu, tem alguma manha escondida no cdigo ou na configurao.

   Eu rodo na minha mquina e simplismente no l o que tem dentro do []<connectionStrings>[]. Somente retorna algo que est na configurao do projeto...


[][]s,
Tunusat.

Haja, pois, o que houver, ampliem-se obstáculos, agigantem-se problemas, intensifiquem-se lutas ou se agravem provações, trabalha sempre no bem de todos, porque, trabalhando na Seara do Bem, podes conservar a certeza de que Deus te sustentará. Emmanue

#436081 - 15/03/2014 12:36:24

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Pessoal, seguinte, desisti de usar o app. config, vou criar um arquivo ini e nele colocar a conexo ou ento deixar no proprio cdigo, devido aos problemas quanto possivel alterao do config, mesmo assim, obrigado.



O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por DAMASCENO.CESAR em 15/03/2014 12:38:09