Connection-String zu Oracle-Datenbank

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Duke.

    Connection-String zu Oracle-Datenbank

    Hallo,

    ich möchte per VB.Net und System.Data.Odbc-Treiber eine Oracle-Datenbank auslesen was im Grunde auch gut klappt. Nur leider fehlen die deutschen Umlaute und Sonderzeichen (? statt ß, o statt ö, ...)
    Laut Oracel-DB-Homepage läuft die Datenabnk auf WE8MSWIN1252.

    Kann mir jemand sagen, wie ich an meine Umlaute komme?

    Hallo @Gloem!
    Connection-String zu Oracle-Datenbank
    und

    Gloem schrieb:

    wie ich an meine Umlaute komme?
    haben doch an sich ned wirklich was mit einander zu tun. Der ConnectionString ist der "Befehlssatz", mit dem du dich an der DB anmeldest. Was dein Problem betrifft, wird es sich um das Encoding handeln.

    Könntest du eventuell ein Code-Snippet posten und einen kleinen Auszug aus den ausgelesenen Daten (welche im Normalfall die Sonderzeichen enthalten würden), damit wir sehen was du mir "fehlen" meinst.

    Oder du versuchst es mal mit dem hier: connectionstrings.com/mysql-co…specifying-character-set/
    Hier einfach im ConnectionString das Schlüsselwort charset und den Wert UTF-8 angeben. (Im Link ist nur ein MySQL-Beispiel, musst mal nach Oracle suchen)
    In general (across programming languages), a pointer is a number that represents a physical location in memory. A nullpointer is (almost always) one that points to 0, and is widely recognized as "not pointing to anything". Since systems have different amounts of supported memory, it doesn't always take the same number of bytes to hold that number, so we call a "native size integer" one that can hold a pointer on any particular system. - Sam Harwell

    Das mit dem charset meinte ich. Ich hatte gehofft, dass es da noch mehr Parameter gibt.

    Mein ConnectionString wird aus einer Konfigurationsdatei eingelesen:

    Quellcode

    1. ' Einlesen des ODBC-ConnectionString
    2. Dim odbcConnectionString As String = readDBConnectionString()
    4. If (odbcConnectionString = Nothing) Then
    5. ' Beenden des Programmes
    6. Exit Sub
    8. ElseIf (odbcConnectionString = "") Then
    9. writeErrorMessage("Es konnten keine Verbindungsdaten zur Datenbank eingelesen werden")
    10. ' Beenden des Programmes
    11. Exit Sub
    12. End If


    Funktionsaufruf:

    Quellcode

    1. ' Einlesen der Verbindungsparameter
    2. Do While Not fileReader.EndOfStream
    4. ' Erhöhen des Zeilenzählers
    5. zeileNr += 1
    6. ' Einlesen der Quellzeile
    7. zeile = fileReader.ReadLine
    9. ' Wenn es eine Kommentarzeile ist
    10. If (zeile.Chars(0) = "'") Then
    11. ' Zur nächsten Zeile
    12. Continue Do
    13. ' Wenn der nächste Abschnitt in der Datei erreicht ist
    14. ElseIf zeile = "# DB-Konfigurationsdaten" Then
    15. 'Beenden der Schleife
    16. Exit Do
    17. Else
    18. ' Hinzufügen der aktuellen Zeilen (Evtl. inkl. eines Separators)
    19. odbcConnectionString &= IIf(odbcConnectionString.Length > 0, ";", "") & zeile
    20. End If
    21. Loop


    Konfigurationsdatei:

    Quellcode

    1. # ODBC-Verbindungsparameter
    2. '
    3. ' DSN - Datenquelle wie in Oracle ODBC Driver Configuration auf Client-Rechner angegeben
    4. DSN=xxx
    5. ' SERVER - TNS Server Name wie in Oracle ODBC Driver Configuration angegeben
    6. SERVER=win2:1521/xe
    7. ' UID - Oracle Server Benutzername
    8. UID=yyy_neu2
    9. ' PWD - Passwort für den Benutzername
    10. PWD=zzz


    Folgender Quelltext sollte Sonderzeichen erzeugen:

    Quellcode

    1. ' Anlegen eines Objektes zur Verbindung zur Datenbank
    2. Dim odbcConnection As OdbcConnection = New OdbcConnection(odbcConnectionString)
    4. ' Anlegen eines Zählers
    5. Dim counter As Long = 0
    7. Try
    8. ' Herstellen der Verbindung zur Datenbank
    9. odbcConnection.Open()
    11. System.Console.WriteLine("Verbindung zur Datenbank hergestellt...")
    12. System.Console.WriteLine()
    13. System.Console.WriteLine("Benötigte Daten werden eingelesen...")
    14. System.Console.WriteLine(" Lookup-Tabellen")
    16. ....
    18. ' Straßen sind doppelt in der DB vorhanden, einmal in Projekt 1 und einmal in Projekt 2
    19. odbcCommand.CommandText = "SELECT * FROM ST WHERE PROJEKT = '1'"
    20. Dim odbcReader As OdbcDataReader = odbcCommand.ExecuteReader()
    22. counter = 0
    24. ' Solange Einträge in der Datenbank gefunden wurden
    25. While (odbcReader.Read)
    26. If Not dic_St.ContainsKey(odbcReader(TAB_ST_STRNR).ToString.Trim) Then
    27. dic_St.Add(odbcReader(TAB_ST_STRNR).ToString.Trim, IIf(IsDBNull(odbcReader(TAB_ST_STRNAME)), "", odbcReader(TAB_ST_STRNAME).ToString.Trim)) '.Replace("?", "ß")))
    28. System.Console.WriteLine(odbcReader(TAB_ST_STRNAME).ToString.Trim)
    29. counter += 1
    30. Else
    31. writeErrorMessage("Doppelter Schlüssel in der St-Tabelle gefunden: ")
    32. ' Beenden der Funktion > Rückgabe false
    33. Return False
    34. End If
    35. End While
    37. System.Console.WriteLine(" " & counter & " St-Objekte eingelesen")
    39. ' Schließen des ODBCReaders
    40. odbcReader.Close()

    Die ersten Funktionen und die Konfigurationsdatei ist lediglich zum Zusammenbauen des Connectionsstrings nötig

    Im Grunde ist im ConnectionString nichts besonderes (UID, Server, PWD, ...) drin. Ich habe es mit den charset UTF-8 versucht wie auch WE8MSWIN1252

    Folgender zusammengefasster Code gibt z.B. Straßennamen mit ? statt ß und aou statt äöü aus

    VB.NET-Quellcode

    1. Dim odbcConnection As OdbcConnection = New OdbcConnection(odbcConnectionString)
    3. Try
    4. odbcConnection.Open()
    6. Dim odbcReader As OdbcDataReader = odbcCommand.ExecuteReader()
    8. While (odbcReader.Read)
    9. System.Console.WriteLine(odbcReader(TAB_ST_STRNAME).ToString.Trim)
    10. End While
    12. ' Schließen des ODBCReaders
    13. odbcReader.Close()

Facebook
Telefonspende