01. september 2003 - 08:56
Der er
3 kommentarer og
1 løsning
Import af Data fra anden DB
Hejsa,
Jeg importerer en del data fra nogle tabeller lavet i Paradox. De importeres til Access, og importen går upåklageligt - MEN et lille problem er der dog ! De bogstaver der ikke er det engelseke alfabet....Æ, Ø, Å importeres som Õ ! eksempelvis. Hvis jeg åbner Paradoxtabellerne i Database Workshop vises alle tegn korrekt, men efter eksporten til Access er der underlige tegn istedet for førnævnte bogstaver ?
Er der en indstilling i Access der kan tage højde for det ?
Dansk udgave af Access 2002......
På forhånd tak.
01. september 2003 - 12:03
#1
at a guess I would think that its the way danish characters are stored in Paradox. You could try exporting to a text file first just to see how they look there. Then if they are OK, import into Access from the text file. If it is STILL a problem then there must be a setting in Access which neeeds changing.
01. september 2003 - 12:24
#2
Prøv lige nedenstående funktion på din tabel
Jeg tror problemet er det samme som jeg tumlede med da jeg skulle importere nogen data fra en DOS version af Concorde. Det så også frygteligt ud indtil jeg lavede denne funktion og kørte teksten igennem den - så faldt det på plads igen.
(Det er selvfølgelig når data er kommet over i Access at du skal konvertere med denne funktion )
Public Function fhpConvertFromDOS(strConvString As String) As String
' -----------------------------------------------------------------------------------
' Purpose : Converts Danish DOS chars to Windows
' Called from :
' Returns :
' Remarks :
' -----------------------------------------------------------------------------------
Dim X As Integer
strConvString = RTrim$(strConvString)
strConvString = LTrim$(strConvString)
For X = 1 To Len(strConvString)
If Mid$(strConvString, X, 1) = Chr$(155) Then 'DOS karakter for ø
Mid$(strConvString, X, 1) = "ø"
End If
Next X
For X = 1 To Len(strConvString)
If Mid$(strConvString, X, 1) = Chr$(157) Then 'DOS karakter for Ø
Mid$(strConvString, X, 1) = "Ø"
End If
Next X
For X = 1 To Len(strConvString)
If Mid$(strConvString, X, 1) = Chr$(145) Then 'DOS karakter for æ
Mid$(strConvString, X, 1) = "æ"
End If
Next X
For X = 1 To Len(strConvString)
If Mid$(strConvString, X, 1) = Chr$(146) Then 'DOS karakter for Æ
Mid$(strConvString, X, 1) = "Æ"
End If
Next X
For X = 1 To Len(strConvString)
If Mid$(strConvString, X, 1) = Chr$(134) Then 'DOS karakter for å
Mid$(strConvString, X, 1) = "å"
End If
Next X
For X = 1 To Len(strConvString)
If Mid$(strConvString, X, 1) = Chr$(143) Then 'DOS karakter for Å
Mid$(strConvString, X, 1) = "Å"
End If
Next X
fhpConvertFromDOS = strConvString
End Function
