Entwickler-Ecke :: Thema anzeigen - ODBC und Komma (und IB SQL Komma und Punkt)

Josef-B - Mi 21.01.04 19:13
Titel: ODBC und Komma (und IB SQL Komma und Punkt)

Ich übernehme Daten per ACU-ODBC.

Wenn ich die Daten mit der Schnittstelle in MS-ACCESS übernehme, alles OK.

Bei der Übernahme per Delphi (BDE-TTABLE) werden in die Tabelle keine Kommas geschrieben (also z-B. 8,95 wird als 895 übernommen).
Es sind Felder mit Double Precision.

Weiß da jemand nen Tip?

Josef-B - Mi 21.01.04 23:08

Also ich glaube das liegt tatsächlich gar nicht an dem ACU ODBC- das funktioniert. Wenn ich mir den Wert eines Feldes anzeigen lasse, dann wird als Preis1 z.B. 8,95 angezeigt. In folgendem Code habe ich sicherlich fälschlicherweise den Preis mit quotedstr. Als '8,95' übergeben, richtig ist aber doch 8.95 für Interbase/Firebird, oder? Wie wandele ich denn jetzt am besten die 8,95 in 8.95 um.

Wenn ich das Quotedstr weglasse kriege ich doch bestimmt Ärger mit dem Komma, weil der Rechner in der SQL-Anweisung 8,95 als Wert 8 und 95 ,für zwei Felder interpretiert?

(Das Feld Artikel_Nr ist hier tatsächlich vom Typ Char.)

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

while not tablePREISE5.eof do begin {table eof}
    
    if tablePREISE5ARTIKEL_nr.value <> ''
    then begin 
          ibtransactionuni.active:= true;
          ibsqluni.SQL.Clear;
          sqlstring := 'INSERT INTO PREISE (' +

          'ARTIKEL_NR,' +
          'LAGER,' +
          'PREIS_1,' +
          'PREIS_2,' +
          'PREIS_3,' +
          'RUNDUNGSREIHE' +

          ') values (' +

           quotedstr(tablePREISE5ARTIKEL_NR.asstring) + ',' +
           quotedstr(tablePREISE5LAGER.asstring) + ',' +
           quotedstr(tablePREISE5PREIS_1.asstring) + ',' +
           quotedstr(tablePREISE5PREIS_2.asstring) + ',' +
           quotedstr(tablePREISE5PREIS_3.asstring) + ',' +
           quotedstr(tablePREISE5RUNDUNGSREIHE.asstring) + ')' ;
           ibsqlUNI.SQL.text := sqlstring;
           ibsqlUNI.ExecQuery;

...........

tomtom62 - Do 22.01.04 08:46

Also dass "..asString" macht sicher keine Probleme, da in der Struktur der Datenbank ja der Feldtyp festliegt.

Das Tausendertrennzeichen kannst Du mal unter Systemsteuerung/ Ländereinstellungen überprüfen..

Ansonsten gäbe es u.a. in der JEDI-VCL (http://www.delphi-jedi.org) eine Funktion StrReplaceChar bei der Du einfach , durch . ersetzen könntest..

KidPaddle - Do 22.01.04 09:23

quotedstr() solltest Du nur bei Textfeldern verwenden. Wenn Du mit SQL die Daten einfügst, dann must Du 8,95 als 8.95 speichern, da hier die Landeseinstellungen ignoriert werden.

Das geht mit dem Befehl FloatToStr(Wert, formatSettings).

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

// manuelles setzen der benoetigten Felder
formatSettings.ThousandSeparator := ',';
formatSettings.DecimalSeparator := '.';

oder
// Lese English US aus
GetLocaleFormatSettings($0409, formatSettings);

...
  FloatToStr(tablePREISE5PREIS_1.asFloat, formatSettings);
  FloatToStr(tablePREISE5PREIS_2.asFloat, formatSettings);
  FloatToStr(tablePREISE5PREIS_3.asFloat, formatSettings);
...

Gruß
KidPaddle

Josef-B - Do 22.01.04 10:38

Hi Kidpaddle,

wie muß ich den den Ausdruck formatsettings deklarieren,
'ThousandSeparator ist ein char oder?

Quelltext

1:	formatSettings.DcimalSeparator := '.';

Meine Zahlen werden ohne Tausender-Trennzeichen übermittelt.
Dann brauche ich doch nur das formatsettings für das Decimal-Zeichen oder?

tomtom62 - Do 22.01.04 13:29

Das ist in SysUtils deklariert. Hier ein Auszug

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
var ShortDateFormat: string;
var LongDateFormat: string;
var TimeSeparator: Char;
var TimeAMString: string;
var TimePMString: string;
var ShortTimeFormat: string;

var LongTimeFormat: string;
var ShortMonthNames: array[1..12] of string;
var LongMonthNames: array[1..12] of string;
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;

var SysLocale: TSysLocale;
var EraNames: array[1..7] of string;
var EraYearOffsets: array[1..7] of Integer;
var TwoDigitYearCenturyWindow: Word = 50;

var TListSeparator: Char;

Du kannst das direkt im Programm setzen z.B.

Delphi-Quelltext

1:	DecimalSeparator:='.';

tomtom62 - Do 22.01.04 15:40

Die Unit, in der diese Variablen deklariert sind heisst SYSUTILS. Die muss in Deiner Uses Liste dazu, wenn sie nicht schon drin ist..

Nein, Du kannst das dann wie in meinen letzten Beispiel direkt im Programm setzen.

Delphi-Quelltext

1:	DecimalSeparator:='.';

KidPaddle - Do 22.01.04 15:46

Wenn er es global setzt, dann sind alle Konvertierungen davon betroffen, inbesondere dann, wenn er die Werte aus einer Datei ausliest. Auch die Anzeige der Daten erfolgt dann mit '.' und nicht mehr mit ',' als Dezimaltrennzeichen.

@Josef-B
Das Tausendertrennzeichen wird in den meisten Fällen ignoriert und kann ruhig gesetzt werden.

tomtom62 - Do 22.01.04 15:58

Ich denke ,wenn er es vor der Datenübernahme setzt und sich das vorher gesetzte Zeichen merkt, dann ist das sicher o.k. :wink:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

alteszeichen:= DecimalSeparator;
Decimalseparator:='.':


...Import der Daten...

DecimalSeparator:=alteszeichen;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!