Hallo,
Ich hab zwei Planungstafeln die fast ident sind. In beiden benutze ich genau dieselben Komponenten (zumindest bis jetzt, soll sich aber ändern da die 2. nur eine Überischt darstellen soll)
<PRE>
procedure TFrmplanung.SetPlannung;
var AEntry:TBitBtn;
x:integer;
begin
x:=0;
ResetPlannung;
Application.HintPause := 100;
Application.HintHidePause := 5000;
QPlannung.Close;
qPlannung.ParamByName['datum'].value := jvDateTimePicker1.date;
Qplannung.Open;
Baustliste.Close;
Baustliste.open;
while not QPlannung.Eof do begin
AEntry := TBitBtn.Create(Self);
AEntry.parent := PaintPanel1;
AEntry.Left := 100;
AEntry.Top := 30+x;
AEntry.Caption := QPlannung.FieldBYName('Bezeichnung1').asstring;
AEntry.Hint := QPlannung.FieldByName('Bezeichnung').asstring;
AEntry.Tag := QPlannung.FieldByName('PosId').asinteger;
AEntry.OnMouseMove := EntryMouseMove;
AEntry.OnKeyDown := EntryBtnClick;
Planliste.Add(AEntry);
qPlannung.next;
inc(x,40);
end;
end;
</PRE>
<PRE>
CommandText:
SELECT Baustelle.Bezeichnung, Baustellpos.*
from Baustellpos,Baustelle
where :datum between Baustellpos.von and Baustellpos.bis
and Baustelle.Baustid=Baustellpos.Baustid
</PRE>
In der einen Tafel führt das Query zu einem Ergebnis in der anderen zu keinem. Wenn ich debugge komme ich bei der anderen nach der Zuweisung des Datumwertes auf value des Parameters bei der anderen immer auf einen EDataBaseError wenn ich versuche den Wert von Value auszulesen. Beide greifen auf dieselbe ADOConnection zu und die Parameterdefinition ist auch ident: <BR>
Attributes: panullable=true<BR>
DataType: ftDateTime<BR>
Direction: pdInput<br>
Numericscale: 3<br>
Precision: 23<br>
Size: 16<br>
Value: 02.06.2003<br>
Type: Date<br>
Da die zweite Komponente eine Kopie ist kann ich mir das nicht erklären.
Hat wer eine Idee woran es liegen kann.<BR>
ADO Version = 2.7<BR>
BetterADS Version = 3.04<BR>
Delphi 5.0 Enterprise<BR>
Betriebssystem Win 2000<BR>
Datenbank MS SQL 7.0<BR
LG<BR>
Peter
Ich hab zwei Planungstafeln die fast ident sind. In beiden benutze ich genau dieselben Komponenten (zumindest bis jetzt, soll sich aber ändern da die 2. nur eine Überischt darstellen soll)
<PRE>
procedure TFrmplanung.SetPlannung;
var AEntry:TBitBtn;
x:integer;
begin
x:=0;
ResetPlannung;
Application.HintPause := 100;
Application.HintHidePause := 5000;
QPlannung.Close;
qPlannung.ParamByName['datum'].value := jvDateTimePicker1.date;
Qplannung.Open;
Baustliste.Close;
Baustliste.open;
while not QPlannung.Eof do begin
AEntry := TBitBtn.Create(Self);
AEntry.parent := PaintPanel1;
AEntry.Left := 100;
AEntry.Top := 30+x;
AEntry.Caption := QPlannung.FieldBYName('Bezeichnung1').asstring;
AEntry.Hint := QPlannung.FieldByName('Bezeichnung').asstring;
AEntry.Tag := QPlannung.FieldByName('PosId').asinteger;
AEntry.OnMouseMove := EntryMouseMove;
AEntry.OnKeyDown := EntryBtnClick;
Planliste.Add(AEntry);
qPlannung.next;
inc(x,40);
end;
end;
</PRE>
<PRE>
CommandText:
SELECT Baustelle.Bezeichnung, Baustellpos.*
from Baustellpos,Baustelle
where :datum between Baustellpos.von and Baustellpos.bis
and Baustelle.Baustid=Baustellpos.Baustid
</PRE>
In der einen Tafel führt das Query zu einem Ergebnis in der anderen zu keinem. Wenn ich debugge komme ich bei der anderen nach der Zuweisung des Datumwertes auf value des Parameters bei der anderen immer auf einen EDataBaseError wenn ich versuche den Wert von Value auszulesen. Beide greifen auf dieselbe ADOConnection zu und die Parameterdefinition ist auch ident: <BR>
Attributes: panullable=true<BR>
DataType: ftDateTime<BR>
Direction: pdInput<br>
Numericscale: 3<br>
Precision: 23<br>
Size: 16<br>
Value: 02.06.2003<br>
Type: Date<br>
Da die zweite Komponente eine Kopie ist kann ich mir das nicht erklären.
Hat wer eine Idee woran es liegen kann.<BR>
ADO Version = 2.7<BR>
BetterADS Version = 3.04<BR>
Delphi 5.0 Enterprise<BR>
Betriebssystem Win 2000<BR>
Datenbank MS SQL 7.0<BR
LG<BR>
Peter
Comment