none
Actualizar e usar a ConnectionString armazenda no app.config em vb.net RRS feed

  • Pergunta

  • Boa noite a todos.

    Mais uma vez estou eu aqui para pedir ajuda sobre o arquivo app.config e a conectionstring.

    Ja postei a pergunta em outros Threads mas ainda não consegui resolver o problema, por isso estou aqui a postar esta questão.

    o que eu pretendo é quando instalar a aplicação em um computador conectado a uma rede local eu direciono para o sitio onde estiver o servidor a aplicação, informando assim O nomeServidor, BancoDados, Usuario e Palavrapasse.

    Criei uma classe Coenxao e nela coloquei uma Rotina, mas não tenho certeza se o codigo esta bom ou não e queria uma avaliação tecnica para saber se esta bom ou não.

    Codigo da Rotina:

    Public Sub ConnectarBancos(ByVal nomeServidorBancodados As String, ByVal nomeBancoDados As String, ByVal usuarioServidor As String, ByVal senhaUsuario As String)

                Dim conf As Configuration = ConfigurationManager.OpenExeConfiguration(Application.ExecutablePath)

                conf.ConnectionStrings.ConnectionStrings("DAL.My.MySettings.DANIROSAConnectionString1").ConnectionString = ("Data Source") = nomeServidorBancodados

                conf.ConnectionStrings.ConnectionStrings("DAL.My.MySettings.DANIROSAConnectionString1").ConnectionString = ("Initial Catalog") = nomeBancoDados

                conf.ConnectionStrings.ConnectionStrings("DAL.My.MySettings.DANIROSAConnectionString1").ConnectionString = ("User ID") = usuarioServidor

                conf.ConnectionStrings.ConnectionStrings("DAL.My.MySettings.DANIROSAConnectionString1").ConnectionString = ("Password") = senhaUsuario

                conf.Save(ConfigurationSaveMode.Full)

            End Sub

    <configuration>

        <configSections>

        </configSections>

        <connectionStrings>

            <add name="DAL.My.MySettings.DANIROSAConnectionString" connectionString="Data Source=DANIROSA-PC\SGC_DANIROSA;Initial Catalog=DANIROSA;User ID=danirosa;Password=3253301;Replication=True"

                providerName="System.Data.SqlClient" />

            <add name="DAL.My.MySettings.DANIROSAConnectionString1" connectionString="Data Source=DANIROSA-PC\SGC_DANIROSA;Initial Catalog=DANIROSA;Integrated Security=True;User ID=danirosa;Replication=True"

                providerName="System.Data.SqlClient" />

            <add name="DAL.My.MySettings.DANIROSAConnectionString2" connectionString="Data Source=DANIROSA-PC\SERVIDORCENTRAL;Initial Catalog=DANIROSA;Integrated Security=True;Replication=True;Encrypt=False;Network Library=dbmssocn"

                providerName="System.Data.SqlClient" />

            <add name="DAL.My.MySettings.DANIROSAConnectionString3" connectionString="Data Source=DANIROSA-PC\SERVIDORCENTRAL;Initial Catalog=DANIROSA;Integrated Security=False;User ID=sa;Replication=True;Network Library=dbmssocn"

                providerName="System.Data.SqlClient" />

        </connectionStrings>

        <system.diagnostics>

            <sources>

    e a primeira linha deste codigo no fim da erro, não sei porque, esta linha abaixo da erro no espaço entre parentes.

    Dim conf As Configuration = ConfigurationManager.OpenExeConfiguration(Application.ExecutablePath)

    para aqueles que ja tentaram me ajudar  sobre este assunto, muito obrigado mais uma vez.

    Daniel System, Raliel, daniel e todos outros que sempre me ajudam, por favor ainda não consegui resolver.

    Obrigado 

     

    Daniel Rosa Iniciante de programação em vb.net, linq sql e Sql server

    domingo, 13 de julho de 2014 23:13

Respostas