Codepage korrigieren

[crystal]

Hallo Leute,

folgendes Problem:
ich habe Daten aus diversen Textdateien importiert, die ich leider nicht mehr komplett zur Verfügung habe. Die Textdateien wurden mit Codepage 850 erstellt (DOS), aber leider arbeitet Windows mit cp 1252.

Gibt es eine einfache Möglichkeit, dies in meiner Tabelle nachträglich zu korrigieren außer jedes Feld mit mehreren replace (für äöüßÄÖÜ usw.) abzuarbeiten?

[Lachtaube]

Schwer zu sagen, welcher Aufwand größer ist.

Ein Weg wäre:

==> Standard-Textexport fahren
==> Tabelleninhalt löschen
==> Textdaten erneut in bestehende Tabelle importieren und die richtige Code Page im Assistenten einstellen.

Am besten mit einer Kopie der DB testen.

[crystal]

Danke Lachtaube,

so ähnlich habe ich es jetzt gemacht, allerdings ohne Löschen der Spalten, sondern mittels Temorärtabelle, joins und Updates.

[Lachtaube]

Das ist natürlich geschickter.

[Beaker s.a.]

Hallo crystal,
Falls du das öfter hast, kannst du auch mal dies probieren.

Code [Auswählen] Erweitern

Option Compare Database
Option Explicit
'Dieses Modul stammt von Norbert Kammer aus einer Access-Newsgroup
'es dient der Umwandlung von ASCII zu ANSI Zeichen

Declare Function OemToChar Lib "user32" Alias "OemToCharA" _
        (ByVal lpszSrc As String, _
        ByVal lpszDst As String) As Long

Declare Function CharToOem Lib "user32" Alias "CharToOemA" _
        (ByVal lpszSrc As String, _
        ByVal lpszDst As String) As Long

Public Function Dos2Ansi( _
        ByVal cDos As String) As String
'---------------------------------------------------------------------------------------
On Error GoTo Fehler

    Dim cErg As String
    Dim X    As Long
   
    cErg = Space$(Len(cDos & vbNullString))
    X = OemToChar(cDos, cErg)
   
    Dos2Ansi = cErg

Ende_CleanUp:
    On Error Resume Next
    Exit Function

Fehler:
    MsgBox Err.Number & vbCrLf _
        & Err.Description
    Resume Ende_CleanUp

End Function


gruss ekkehard