select anweisung

[stathis]

hallo,
ich habe eine frage
wenn in eine select anweisung ein feld selectiere dann ist alles ok.
Also folgede code lauft ohne problem:

Delphi-Quellcode:

sqlquery1.sql.Clear;
SQLquery1.SQL.Text := 'Select sum(poso) as poso from history group by user';
sqlquery1.open;
    SQLquery1.First;
       while not SQLquery1.EOf do begin
                   stringgrid1.Cells[2,i] := floattostr(SQLquery1.Fieldbyname('poso').asfloat);
       SQLquery1.Next;
     i:=i+1;
     end;

aber bei der folgende code:

Delphi-Quellcode:

sqlquery1.sql.Clear;
SQLquery1.SQL.Text := 'Select user,sum(poso) as poso from history group by user';
sqlquery1.open;
    SQLquery1.First;
       while not SQLquery1.EOf do begin
                   stringgrid1.Cells[3,i] := SQLquery1.Fieldbyname('user').asstring;
                   stringgrid1.Cells[2,i] := floattostr(SQLquery1.Fieldbyname('poso').asfloat);
       SQLquery1.Next;
     i:=i+1;
     end;

kann nicht das feld 'poso' nicht finden.

wieso?

Entschuldingen sie mir fuer meine deutsche Sprache

[Medium]

If English is easier for you, it is perfectly okay to ask in English here. I'll continue in it, presuming that it will at least yield better results for you when running it through a translator.

It might be, that the field name "user" is considered a reserved word by your database engine, and the select statement fails or produces unexpected results. Escaping it and maybe giving it an alias could help. I am not entirely sure though, because I have no experience with dbexpress. If you have some external querying tool, trying to execute that exact statement might also reveal what is wrong with it, or what names the fields are given to in the end.

[r_kerber]

Try this

Delphi-Quellcode:

sqlquery1.sql.Clear;
SQLquery1.SQL.Text := 'Select his.user user_,sum(his.poso) as poso from history his group by his.user';
sqlquery1.open;
SQLquery1.First;
while not SQLquery1.EOf do begin
stringgrid1.Cells[3,i] := SQLquery1.Fieldbyname('user_').asstring;
stringgrid1.Cells[2,i] := floattostr(SQLquery1.Fieldbyname('poso').asfloat);
SQLquery1.Next;
i:=i+1;
end;

[stathis]

Es hat leider nicht funktioniert. Ich bekomme immer wieder das gleiche Fehler: ‘Field poso not found’
Ich kann nur das erste Field rausnehme und bei der 2. Bekomme ich die Fehler Meldung.
Also wenn das Code so ist:
sqlquery1.sql.Clear;
SQLquery1.SQL.Text := 'Select sum(his.poso) as poso, his.user user_ from history his group by his.user';
sqlquery1.open;
SQLquery1.First;
while not SQLquery1.EOf do begin
stringgrid1.Cells[2,i] := floattostr(SQLquery1.Fieldbyname('poso').asfloat);
stringgrid1.Cells[3,i] := SQLquery1.Fieldbyname('user_').asstring;
SQLquery1.Next;
i:=i+1;
end;

Dann bekomme folgende Fehler : ‘Field user_ not found‘
Ich danke Ihnen
Stathis

[Volker Z.]

Hallo,

nutzt Du MySQL 5.x und dbxopenmysql5?

Wenn ja, hast Du auch ein

Delphi-Quellcode:

uses
  dbxopenmysql50;

in Deinem Quellcode?

Gruß

[sx2008]

Also ich würde einem Ausdruck (sum(poso)) nicht den gleichen Namen geben wie einem existierenden Feld.
Daher:

SQL-Code:

SELECT SUM(poso) AS Sumposo FROM ....

Ausserdem würde ich das Feld User umbenennen, weil du mit diesen reservierten Namen immer wieder Schwierigkeiten bekommst.
Kleines Beispiel:

Delphi-Quellcode:

function Test:Integer;
var
  // es ist zwar erlaubt eine Variable "published" zu nennen, aber dennoch eine schlechte Idee
  // weil dieser Bezeichner in Delphi schon für einen anderen Zweck reserviert ist
  published : Integer;
begin

Ein guter Delpih-Programmierer würde es vermeiden eine Variable "published" zu nennen.
Genauso würde ein guter Datenbankdesigner es vermeiden ein Feld "user" zu nennen.

[stathis]

Zitat:

Zitat von Volker Z. (Beitrag 1199052)

Hallo,

nutzt Du MySQL 5.x und dbxopenmysql5?

Wenn ja, hast Du auch ein

Delphi-Quellcode:

uses
  dbxopenmysql50;

in Deinem Quellcode?

Gruß

neis das habe ich nicht gehabt, aber bekomme folgende fehler:
[Fatal Error] Unit2.pas(8): File not found: 'dbxopenmysql50.dcu'

(in instalation verzeichnis habe ich nur dbxopenmysql50.dll und nicht dbxopenmysql50.dcu)

[Volker Z.]

Hallo,

Du müsstest in einem Verzeichnis folgende Dateien haben: dbxopenmysql50.pas, dbxMysql50.pas, PlainMysql50 und SqlxApi.pas. Ergänze Deine Suchpfade für Units um den entsprechenden Pfad.

Aus der install.txt

Zitat:

In order to static-link this driver as a DCU, put the compiled DCUs somewhere on your Unit search Path, and add dbxopenmysql50 to your uses clause.

Gruß

[gro]

versuchs mal so:

Code:

  ADOQuery1.SQL.Text := 'SELECT user, sum(poso) as sum FROM history group by user';
  ADOQuery1.Active := TRUE;

  iCount := 1;

  while (ADOQuery1.Eof = FALSE) do begin
    stringgrid1.Cells[3, iCount] := ADOQuery1.Fieldbyname('user').asstring;
    stringgrid1.Cells[2, iCount] := floattostr(ADOQuery1.Fieldbyname('sum').asfloat);

    ADOQuery1.Next;
    inc (iCount);
  end;

[stathis]

Zitat:

Zitat von Volker Z. (Beitrag 1199140)

Hallo,

Du müsstest in einem Verzeichnis folgende Dateien haben: dbxopenmysql50.pas, dbxMysql50.pas, PlainMysql50 und SqlxApi.pas. Ergänze Deine Suchpfade für Units um den entsprechenden Pfad.

Aus der install.txt

Zitat:

In order to static-link this driver as a DCU, put the compiled DCUs somewhere on your Unit search Path, and add dbxopenmysql50 to your uses clause.

Gruß

ich habe alles gemacht. Ich bekomme immer wieder das gleiche Fehler;:(