Announcement

**Andreas Kosch** · 18.02.2004, 15:17

Hallo,

wenn die TADODataSet-Komponente im Objektinspektor entsprechend konfiguriert wurde, reicht es doch aus, wenn der Komponente zu Laufzeit die geclonte (gef�llte) Recordset-Objektinstanz untergeschoben wird:
<pre>
...
with ADODataSet2 do
begin
RecordSet := aRS;
Active := True;
end;
...
</pre>
Es wird in diesem Fall nicht die Konfiguration zur Laufzeit geclont, sondern nur die Datenmenge

**Mathias Weichert** · 18.02.2004, 16:17

Hallo,

ich habe das mal getestet. Leider ohne Erfolg.

Wenn man mal kurz dar�ber Nachdenkt kann es ja auch eigentlich nicht funktionieren. In aRs werden nur echte Datenbankfelder gehalten. Calc und Lockupfelder werden erst sp�ter �ber die entsprechende Formulardatei (Form oder DataModule) von Delphi hinzugef�hrt. aRS kennt diese Informationen nicht.

Auch die ab Delphi 7 implementierte VCL - Clone Methode zeigt im eigentlichen nur auf _RecordSet.Clone, Calc und Lookupfelder werden nicht ber�cksichtigt.

Hier einmal die Problembeschreibung:

ASourceDataSet wird statisch im Datenmodul gehalten, so kann ASourceDataSet auch ganz normal �ber die IDE ver�ndert werden.

Wenn nun ein Datensatz in ASourceDataSet ge�ndert oder hinzugef�gt wird. Soll dies nicht direkt in ASourceDataSet, sondern in einem Clone(ACloneDataset) durchgef�hrt werden. Da f�r das �ndern oder anlegen des Datensatzes auch Calc- und Lookupfelder ben�tigt werden, reicht eine normales Clonen nicht aus.

Gru�
Mathia

**Andreas Kosch** · 19.02.2004, 08:35

Hallo,

>aRS kennt diese Informationen nicht.

ja eben - die berechneten Spalten tauchen nur im VCL-TDataSet auf, aber niemals im Recordset. Daher gelingt das Unterschieben auch. Das folgende Beispiel demonstriert dies:

<pre>
USE tempdb
GO
 
CREATE TABLE CalcDemo
(
RecID INTEGER NOT NULL IDENTITY PRIMARY KEY,
Value1 INTEGER NOT NULL,
Value2 INTEGER NOT NULL
)
GO
INSERT INTO CalcDemo (Value1,Value2) VALUES (2,3)
INSERT INTO CalcDemo (Value1,Value2) VALUES (3,4)
INSERT INTO CalcDemo (Value1,Value2) VALUES (4,5)
INSERT INTO CalcDemo (Value1,Value2) VALUES (5,6)
GO
</pre>
Beim Anklicken des Buttons wird die Datenmenge geklont und der zweiten TADODataSet-Instanz untergeschoben, die ebenfalls �ber die Zwischenablage von der ersten Instanz "geklont" wurde: Beide TDBGrid-Instanzen zeigen die korrekten Daten in der berechneten Spalte an, obwohl es diese Spalte im gef�llten Recordset �berhaupt nicht gibt.
<pre>
unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;
 
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
ADODataSet1RecID: TAutoIncField;
ADODataSet1Value1: TIntegerField;
ADODataSet1Value2: TIntegerField;
ADODataSet1CalcValue1Value2: TIntegerField;
ButtonClone: TButton;
ADODataSetCloneWithCalcField: TADODataSet;
AutoIncField1: TAutoIncField;
IntegerField1: TIntegerField;
IntegerField2: TIntegerField;
IntegerField3: TIntegerField;
DBGrid2: TDBGrid;
DataSourceClone: TDataSource;
procedure ADODataSet1CalcFields(DataSet: TDataSet);
procedure ButtonCloneClick(Sender: TObject);
procedure ADODataSetCloneWithCalcFieldCalcFields(DataSet: TDataSet);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses ADOInt;
 
procedure TForm1.ADODataSet1CalcFields(DataSet: TDataSet);
begin
ADODataSet1CalcValue1Value2.Value := ADODataSet1Value1.Value *
ADODataSet1Value2.Value;
end;
 
procedure TForm1.ButtonCloneClick(Sender: TObject);
var
aCloneRS : RecordSet;
begin
aCloneRS := ADODataSet1.Recordset.Clone(adLockUnspecified);
ADODataSetCloneWithCalcField.Recordset := aCloneRS;
ADODataSetCloneWithCalcField.Active := True;
end;
 
procedure TForm1.ADODataSetCloneWithCalcFieldCalcFields(Data Set: TDataSet);
begin
IntegerField3.Value := IntegerField1.Value *
IntegerField2.Value;
end;
 
end.
</pre>
Konfiguration des Formulars im Objektinspektor:
<pre>
object Form1: TForm1
Left = 192
Top = 114
Width = 870
Height = 640
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 8
Top = 8
Width = 377
Height = 113
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ButtonClone: TButton
Left = 96
Top = 200
Width = 75
Height = 25
Caption = 'Clone'
TabOrder = 1
OnClick = ButtonCloneClick
end
object DBGrid2: TDBGrid
Left = 8
Top = 240
Width = 377
Height = 120
DataSource = DataSourceClone
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=tempdb;Data Source=(local)'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 120
Top = 64
end
object ADODataSet1: TADODataSet
Active = True
Connection = ADOConnection1
CursorType = ctStatic
OnCalcFields = ADODataSet1CalcFields
CommandText = 'select RecID, Value1, Value2 from CalcDemo'
Parameters = <>
Left = 160
Top = 64
object ADODataSet1RecID: TAutoIncField
FieldName = 'RecID'
ReadOnly = True
end
object ADODataSet1Value1: TIntegerField
FieldName = 'Value1'
end
object ADODataSet1Value2: TIntegerField
FieldName = 'Value2'
end
object ADODataSet1CalcValue1Value2: TIntegerField
FieldKind = fkCalculated
FieldName = 'CalcValue1Value2'
Calculated = True
end
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 192
Top = 64
end
object ADODataSetCloneWithCalcField: TADODataSet
CursorType = ctStatic
OnCalcFields = ADODataSetCloneWithCalcFieldCalcFields
CommandText = 'select RecID, Value1, Value2 from CalcDemo'
Parameters = <>
Left = 48
Top = 296
object AutoIncField1: TAutoIncField
FieldName = 'RecID'
ReadOnly = True
end
object IntegerField1: TIntegerField
FieldName = 'Value1'
end
object IntegerField2: TIntegerField
FieldName = 'Value2'
end
object IntegerField3: TIntegerField
FieldKind = fkCalculated
FieldName = 'CalcValue1Value2'
Calculated = True
end
end
object DataSourceClone: TDataSource
DataSet = ADODataSetCloneWithCalcField
Left = 88
Top = 296
end
end
</pre>
Siehe auch http://www.entwickler.com/itr/features/psecom,id,104,nodeid,77.htm

Announcement

Delphi 7 - AdoDataSet.Clone() in Verbindung mit Lookup- und berechneten Feldern

Delphi 7 - AdoDataSet.Clone() in Verbindung mit Lookup- und berechneten Feldern

Comment

Comment

Comment