Datenbankverbindung über app.config

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Datenbankverbindung über app.config

    Hallo zusammen,

    ich versuche vergebens eine Verbindung zu einer Datenbank mit Hilfe der app.config herzustellen. ?(

    Microsoft Visual Studio Express 2012 für Windows Desktop
    Microsoft .NET Framework Version 4.5.51209

    Ausgangssituation ist nachfolgender Code:

    App.config:

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8" ?>
    2. <configuration>
    3. <configSections>
    4. </configSections>
    5. <connectionStrings>
    6. <add name="AZE2010" connectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\AZE\AZE\AZE Version 1.5.accdb"
    7. providerName="System.Data.OleDb" />
    8. <add name="AZE2003" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\AZE\AZE\alte Versionen\AZE Version 1.2.mdb"
    9. providerName="System.Data.OleDb" />
    10. </connectionStrings>
    11. <startup>
    12. <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client" />
    13. </startup>
    14. </configuration>

    Programm-Code:

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    2. Imports System.Configuration
    4. Public Class frmAnmeldung
    6. Dim oCon As New OleDb.OleDbConnection
    7. Dim oCmd As New OleDb.OleDbCommand
    8. Dim oReader As OleDb.OleDbDataReader
    10. Dim strName As String
    11. Dim strSql As String
    12. Dim sConnString As String
    13. Dim strGruppe As String
    15. Shared ConfigurationManager As Object
    17. '************************************************************************************************
    18. ' Verbindung zur Datenbank aufbauen und
    19. ' Prüfen, ob die Verbindung zur Datenbank funktioniert
    20. '************************************************************************************************
    21. Sub Verbindung()
    23. Try
    24. oCon.ConnectionString = GetConnectionStringByName("AZE2010")
    26. '*****************************************************************************
    27. '* Connectstring für MS Access ab 2007
    28. '*****************************************************************************
    29. 'oCon.ConnectionString = _
    30. ' "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    31. ' "Data Source=E:\AZE\AZE\AZE Version 1.5.accdb"
    33. '*****************************************************************************
    34. '* Connectstring für MS Access vor 2007
    35. '*****************************************************************************
    36. 'oCon.ConnectionString = _
    37. ' "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    38. ' "Data Source=E:\AZE\AZE\alte Versionen\AZE Version 1.2.mdb"
    40. oCmd.Connection = oCon
    41. oCon.Open()
    42. If oCon.State = 1 Then
    43. Me.lblAusgabe.Text = "Connect successful"
    44. Me.lblAusgabe.BackColor = Color.GreenYellow
    45. Else
    46. Me.lblAusgabe.Text = "Connect not successful"
    47. Me.lblAusgabe.BackColor = Color.Red
    48. End If
    49. Catch ex As Exception
    50. MsgBox(Err.Description)
    51. End Try
    53. End Sub
    55. '************************************************************************************************
    56. ' Aufrufen Sub Verbindung und
    57. ' ComboBox mit allen Benutzer der Tabelle [tblBenutzer] füllen
    58. '************************************************************************************************
    59. Private Sub CobBenutzer_DropDown(sender As Object, e As EventArgs) Handles CobBenutzer.DropDown
    61. Try
    62. Verbindung()
    63. oCmd.CommandText = "SELECT Benutzername FROM tblBenutzer ORDER BY Benutzername"
    64. oReader = oCmd.ExecuteReader
    65. Me.CobBenutzer.Items.Clear()
    66. Do While oReader.Read
    67. Me.CobBenutzer.Items.Add(oReader("Benutzername"))
    68. Loop
    69. oReader.Close()
    70. oCon.Close()
    71. Catch ex As Exception
    72. MsgBox(Err.Description)
    73. oCon.Close()
    74. End Try
    76. End Sub
    78. '************************************************************************************************
    79. ' Ausgewählten Benutzer zwischenspeichern
    80. '************************************************************************************************
    81. Private Sub CobBenutzer_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CobBenutzer.SelectedIndexChanged
    82. strName = Me.CobBenutzer.SelectedItem.ToString
    83. End Sub
    85. '************************************************************************************************
    86. ' Ausgewählter Benutzer und Passwort früfen
    87. '************************************************************************************************
    88. Private Sub btnAnmeldung_Click(sender As Object, e As EventArgs) Handles btnAnmeldung.Click
    90. Dim oReader As OleDb.OleDbDataReader
    92. Dim strPasswort As String
    93. Dim strGruppe As String
    95. strPasswort = Me.txtPassword.Text
    96. Me.lblFehlermeldung.Visible = True
    98. Try
    99. Verbindung()
    100. If oCon.State = 1 Then
    101. strSql = "SELECT * FROM tblBenutzer " &
    102. "WHERE Benutzername='" & strName &
    103. "' AND Passwort='" & strPasswort & "'"
    104. oCmd.CommandText = strSql
    105. oReader = oCmd.ExecuteReader
    106. If oReader.HasRows = True Then
    107. oReader.Read()
    108. strGruppe = oReader("Rechte")
    109. 'frmHome.txtGruppe.Text = strGruppe
    110. 'frmHome.txtGruppe.Visible = True
    111. frmHome.ShowDialog()
    112. Else
    113. Me.lblFehlermeldung.Visible = True
    114. End If
    115. oReader.Close()
    116. oCon.Close()
    117. Else
    118. MsgBox("Verbindung steht nicht")
    119. End If
    120. Catch ex As Exception
    121. MsgBox(ex.Message)
    122. End Try
    123. End Sub
    125. '************************************************************************************************
    126. ' Beim Laden der Form Datum bereitstellen
    127. '************************************************************************************************
    128. Private Sub frmAnmeldung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    129. Me.lblDatum.Text = DateTime.Now.ToString("F")
    130. End Sub
    132. '************************************************************************************************
    133. ' Programm beenden
    134. '************************************************************************************************
    135. Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
    136. Application.Exit()
    137. End Sub
    139. ' Retrieves a connection string by name.
    140. ' Returns Nothing if the name is not found.
    141. Private Shared Function GetConnectionStringByName(ByVal strName As String) As String
    143. ' Assume failure
    144. Dim returnValue As String = Nothing
    146. ' Look for the name in the connectionStrings section.
    147. Dim ConnectionString As String = ConfigurationManager.ConnectionStrings(strName)
    149. ' If found, return the connection string.
    150. If Not ConnectionString Is Nothing Then
    151. returnValue = ConnectionString
    152. End If
    154. Return returnValue
    155. End Function
    157. End Class


    Ich bekomme immer den nachfolgenden Fehler:

    Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt.


    Mit Objektvariable ist ConfigurationManager gemeint, was ich beim Debuggen festgestellt habe. Kann mir aber nicht erklären warum dieser Fehler kommt.

    Für eure Hilfe besten Dank schon jetzt im Voraus ;)

    nein, der gibt nihts zurück.
    Da ist einfach oben hingeschrieben

    VB.NET-Quellcode

    1. Shared ConfigurationManager As Object
    und wird wohl angenommen, wenn man ein Objekt deklariert und ConfigurationManager nennt, dass das dann ein ConfigurationManager sei.

    @Baccus60: Warum legst du nicht einfach in den Settings einen ConnectionsString an? Dabei hilft ein Assistent, und der CS funzt dann, du brauchst keinen Code zu schreiben mit zig fail-Möglichkeiten, und inne Config landet das ebenso.

    Und vorher!!! natürliche Strict On machen, und auch gleich den Deppen-Namespace-Import entfernen. Differenzierte Begründung und Anleitung siehe Visual Studio - Empfohlene Einstellungen

    (Generell rate ich übrigens dringend ab von so Wursteleien mit DBCommands und DataReadern, aber das später.)

    Danke für den Hinweis mit der Option Strict On, habe ich bisher noch in keinem Beispiel-Code gesehen.
    @ErfinderDesRades Wie rufe ich die Settings auf? Bei My Projekt habe ich nichts gefunden! Was kann ich dann von meinem bisherigen Code weg lassen?

    Du kannst alles weglassen.
    guggemol "Datenbank in 10 MInuten" auf home.arcor.de/eckardahlers/Pro…r/Downloadpage/index.html

    Aber nur zum gucken, dass du weißt, es ist möglich und ist kinderleicht.
    Als tatsächliche Vorgehensweise empfehle ich dringend, ohne Datenbank zu entwickeln. Denn verfrüht eingebunden wird die DB mit sicherheit falsch eingebunden und damit versaust du dir alle Möglichkeiten, die Vorgehensweise (Stichwort Databinding) für eine tragfähige Architektur überhaupt zu erlernen.

    Datenverarbeitungs-Vorraussetzungen
    Zum Appetit machen kannste da ja zunächst mal in Punkt 6 reingucken - ist ebenfalls alles kinderleicht, aber ohne die Vorraussetzungen gehts halt doch nicht.