Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi SQL Server und Datentypen (https://www.delphipraxis.net/6915-sql-server-und-datentypen.html)

AgentAS 27. Jul 2003 12:50


SQL Server und Datentypen
 
Hi,

habe da ein Problem mit dem SQL Server. Ich habe ein Feld den Datentyp money zugewiesen. Ich habe ein Programm geschrieben welches einen Betrag an SQl übergibt. Gebe ich den Betrag von 13,25 € ein, wird dies auch von SQL in das Feld übernommen. Wenn ich jedoch 13,00 € trägt SQL nur 13 in das Feld ein.

Ist das ein Konfigurationsproblem von SQL oder was weiss ich :( ? Auf jedenfall krieg ich langsam einen Vogel hab 2 Bücher hier und in keinem steht ne vernünftige Antwort.

Danke im voraus

Gruß

Andreas

JoelH 27. Jul 2003 13:07

hmm,
 
warum benötigst du dass denn ? Wenn du es ausliest kannst du doch den String Formatieren wie du wollst.

Sharky 27. Jul 2003 13:10

Re: SQL Server und Datentypen
 
Zitat:

Zitat von AgentAS
... Gebe ich den Betrag von 13,25 ? ein, wird dies auch von SQL in das Feld übernommen. Wenn ich jedoch 13,00 ? trägt SQL nur 13 in das Feld ein.
...

Jep, ist so. Der SQL-Server versucht halt alle unnötigen Informationen wegzulassen.

AgentAS 27. Jul 2003 13:28

Re: SQL Server und Datentypen
 
Hallo,

weil ich das Feld zum Rechnen brauche. Aber da es ja normal ist das er die Nullen weglässt :? .

Eigentlich störts mich nur weil er es halt nicht so schreibt.

Aber da ihr schonmal da seit wie lösche ich ein StringGrid. :oops:


Code:
procedure TFormKartenzahlung.StringGridFuellen;
var i : integer;
begin
  Hauptselect;
  with StringGridUebersicht do
  begin
    Cells[0,0] := 'ID' ;
    Cells[1,0] := 'UBericht-Nr.';
    Cells[2,0] := 'Prüf. Ing.';
    Cells[3,0] := 'Uhrzeit';
    Cells[4,0] := 'Datum';
    Cells[5,0] := 'Betrag';
  end;

  i := 1;
  with StringGridUebersicht do
  begin
    while not ADOQryKZ.Eof do
    begin
      Cells[0,i] := ADOQryKZ.FieldByName('id').AsString;
      Cells[1,i] := ADOQryKZ.FieldByName('ubnr').AsString;
      Cells[2,i] := ADOQryKZ.FieldByName('pi').AsString;
      Cells[3,i] := ADOQryKZ.FieldByName('uhrzeit').AsString;
      Cells[4,i] := ADOQryKZ.FieldByName('datum').AsString;
      DecimalSeparator := ',';
      Cells[5,i] := FormatFloat('0.00',ADOQryKZ.FieldByName('betrag').AsFloat);

      ADOQryKZ.Next;
      i := i + 1;
      StringGridUebersicht.RowCount := StringGridUebersicht.RowCount + 1;
    end;
  end;

end;

JoelH 27. Jul 2003 13:36

hmm,
 
wenn du damit rechnest ist es doch auch egal ob die nulen das sind oder nicht !? Oder seh ich grad das Problem nicht ?

AgentAS 27. Jul 2003 13:52

Re: SQL Server und Datentypen
 
Ne,

wie ich schon sagte eigentlich srörts blos mich. Weil Access nämlich die Nullen anhängt und SQL 8 eben nicht. Ich dachte das sei ein Konfigurationsproblem meinerseits.

Hat sich aber erledigt.

Zitat:

Aber da ihr schonmal da seit wie lösche ich ein StringGrid.
ich meine den Inhalt.

gruß

Andreas

JoelH 27. Jul 2003 13:58

hmm,
 
die Frage kommt mir bekannt vor :D
http://www.delphipraxis.net/internal...ght=stringgrid

AgentAS 27. Jul 2003 15:54

Re: SQL Server und Datentypen
 
Hi,

genau so meinte ich es auch nicht. :D

thx


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz