vb6 ADODB.Connection Latin 2 DB

[Toschie]

Also bei der CCSID 13488 wirft er mit den SQL0189 an den Kopf

[Fuerchau]

Bist du sicher VARGRAPHIC genommen zu haben?
Nur dann ist 13488 erlaubt!

[Toschie]

Hast Recht.
Das DB-Feld ist ein Char Feld.
Da muss ich doch das zweite Beispiel verwenden.
Oder?
select cast(FDFL04 as CHAR(50) CCSID 1153)

Bin mir mit der CCSID nicht sicher, was i da verwenden soll/darf/muss
1153 auf jedenfall nicht

[Fuerchau]

Immer noch falsch:

select cast(FDFL04 as GRAPHIC(50) CCSID 13488) as FDFL04 ...

Ist die Tabelle/Datei tatsächlich CCSID 1153?

Noch mal der Weg bei SBCS:

DB CCSID 1153 -> Job CCSID 273 -> PC Codepage 1252 -> VB-String (Unicode)

Der Weg bei Unicode (UCS2):

DB CCSID 1153 -> SQL Cast UCS2 -> VB-String (Unicode)

Nun hast du nur noch ein kleines Problem:
a) im VB-Debugger wird der Inhalt nur mit einem SBCS-Font angezeigt, was zu Verlusten der Darstellung führt.
b) Steuerelemente in Formularen haben den Default-Font "MS Sans Serif". Auch dieser ist kein Unicodefont. Ändere hier den Font auf z.B. Tahoma oder Verdana, dann wird Unicode auch korrekt dargestellt.

[Fuerchau]

Nachtrag:
Viele Standard-VB6-Steuerelemente sind auch nicht Unicodefähig!
Bei der Zuweisung der Text/Caption-Eigenschaft geht der Unicode dann auch wieder verloren.
Du benötigst da also ggf. unicodefähige Steuerelemente (gibt's zu hauf kostenpflichtig).

[Toschie]

Genau da lag mein Problem.
Die Darstellung war die ganze Zeit eine falsche.
Habe mir dann einen Output in eine Textdatei geben lassen.
Ebenfalls falsch.
Nun habe ich einfach mal die Daten an meine Druckkomponente geschickt und die Daten werden nun sauber richtig angezeigt und gedruckt.

Komischerweise klappt das ganze auch ohne das ich irgendwelche Zeichen mit Cast bearbeiten musste.
Ich habe sämtliche Zeichen nun durchgetestet und es sieht gut aus.

Vielen Dank für die Unterstützung