Opsætning Dataset..

put connection string i app.config

Hej.. Tak for svaret, men kan du uddybe lidt, (Nybegynder..:-) )

Eksempel:

Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("ExpressTest").ConnectionString)

i koden og:

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <connectionStrings>
        <add name="ExpressTest"
            connectionString="Server=ARNEPC3\SQLEXPRESS;Integrated Security=SSPI;Database=Test"
            providerName="System.Data.SqlClient" />
    </connectionStrings>
</configuration>

i app.config !

Hej igen..

Det virker nu med App.Config, men det store spørgsmål er nu, hvordan ændre jeg den.

Jeg vil gerne ha en Form i programmet, hvor jag kan ændre de tre ting, Server / Databasen (i sql serveren)/ Bruger-password til sql serveren.
------------------------------------
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <configSections>
    </configSections>
    <connectionStrings>
        <add name="ZZProgram.My.MySettings.ZZ_SqlServer"
            connectionString="Data Source=SERVER\ZZ_SQL;Initial Catalog=Client00020004;Integrated Security=True"
            providerName="System.Data.SqlClient" />
    </connectionStrings>
    <system.diagnostics>
        <sources>
------------------------------------


Altså hvordan kan jeg læse / Skrive til App.config ??

http://www.codeproject.com/KB/cs/SystemConfiguration.aspx
http://www.ajaxline.com/node/258

Hej igen, tror den snart er der.. Men kan nogen se hvad der er galt i denne kode. Får ingen fejl men den vil ikke gemme. Køre kun til "CON-1 FUNDET" den finder aldrig den rigtige linie i APP.Config


App.Config :

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <configSections>
    </configSections>
    <connectionStrings>
        <add name="Mamut_Kalk.My.MySettings.Mamut_Dantank_SqlServer"
            connectionString="Data Source=SERVER\MAMUT;Initial Catalog=Client00020004;Integrated Security=True"
            providerName="System.Data.SqlClient" />
    </connectionStrings>
    <system.diagnostics>
        <sources>

------------------------------------------------------------

Class :

Imports System.Configuration
Imports System.Xml


Public Class AppConfigFileSettings

   
    Public Shared Sub UpdateAppSettings(ByVal KeyName As String, ByVal KeyValue As String)
        Dim XmlDoc As New XmlDocument()
        XmlDoc.Load(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
        For Each xElement As XmlElement In XmlDoc.DocumentElement
            If xElement.Name = "connectionStrings" Then
                MsgBox("CON-1 FUNDET")
                For Each xNode As XmlNode In xElement.ChildNodes
                    If xNode.Attributes(0).Value = KeyName Then
                        MsgBox("CON-2 FUNDET")
                        xNode.Attributes(1).Value = KeyValue
                    End If
                Next
            End If
        Next

        XmlDoc.Save(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
    End Sub
End Class

-----------------------------------------------

Knap På Form :

Private Sub Save_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save_Button.Click

        Dim Server_string As String

        Server_string = "Data Source=" & ServerADD_TextBox.Text & ";Initial Catalog=" & Database_TextBox.Text & ";Integrated Security=True"
       
        AppConfigFileSettings.UpdateAppSettings("connectionString", Server_string)

        MsgBox("Application Settings has been Changed successfully.")

    End Sub
End Class


-----------------

Skal:

If xNode.Attributes(0).Value = KeyName Then

evt. være:

If xNode.Attributes(1).Value = KeyName Then

?

Hvorfor gør du iøvrigt ikke som beskrevet i links'ene?

Hej..

De linkede sidder er i C#.net, kunne ikke lige få det til og virke, fandt så denne i VB.net...

Jeg har prøvet at ændre Attributes(?) værdien, til både 1-2-3 og navnet på attributten, men uden held....den vil ik finde den...

Det er eller lige ud af landevejen.

VB.NET kode:

Imports System
Imports System.Configuration

Namespace E
    Public Class Program
        Public Shared Function GetConStr(con As String) As String
            Return ConfigurationManager.ConnectionStrings(con).ConnectionString
        End Function
        Public Shared Sub SetConStr(con As String, constr As String)
            Dim cfg As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
            cfg.ConnectionStrings.ConnectionStrings(con).ConnectionString = constr
            cfg.Save(ConfigurationSaveMode.Modified)
            ConfigurationManager.RefreshSection("connectionStrings")
        End Sub
        Public Shared Sub Main(args As String())
            Console.WriteLine(GetConStr("Test"))
            SetConStr("Test", "bla bla bla")
            Console.WriteLine(GetConStr("Test"))
        End Sub
    End Class
End Namespace

Hej Arne..

Tak for svaret, jeg har fået det til og virke men prøver lige din løsning også.

Ved du om det er muligt at lave en søgning på netværket, efter SQL-Servere og så vise valgmulighederne i en kombibox, og der efter gi et valg af databaser på serveren der er valg..

M.v.h Zyfer

Det er muligt.

Du kan kalde en command line utility som f.eks.:

osql -L

se også http://blogs.lessthandot.com/index.php/DataMgmt/DBAdmin/scan-network-for-sql-server-instances

Eller du kan bruge Win32 API NetServerEnum til at finde dem.

Eller du kan bruge SQLDMO ListAvailableSQLServers.

Og et svar fra mig.