Announcement

**Andreas Kosch** · 27.01.2004, 13:22

Hallo,

das DataSet aus dem .NET Framework arbeitet mengenorientiert, so das es auf diese Frage sehr viele Antworten gibt ;-)

> Gibt es Funktionen wie First, Next, Last,...

Das Konzept eines "aktuellen Datensatzes" gibt es beim DataSet nicht mehr, da man dort gleichzeitig auf 
a) einen, oder 
b) mehrere, oder 
c) alle 
Datens�tze zugreifen kann. Wenn man ein Gegenst�ck zum TDBNavigator fr�herer Delphi-Versionen sucht, f�hrt der CurrencyManager zum Ziel.

Das folgende Beispiel r�stet eine Anzeige der sichtbaren "Datensatznummer" und der Anzahl der Datens�tze in der Statusbar nach: 
1. Variable f�r den CurrencyManager des Formulars deklarieren 
2. Aktuelle CurrencyManager-Objektinstanz abfordern und in der Variable ablegen 
3. CurrencyManager-Eigenschaften Position und Count auswerten 
4. Ergebnis in der StatusBar anzeigen
<pre>
type
TWinForm = class(System.Windows.Forms.Form)
{$REGION 'Designer Managed Code'}
...
{$ENDREGION}
strict protected
procedure Dispose(Disposing: Boolean); override;
private
{ Private Declarations }
FCM : CurrencyManager;
procedure DoRefreshStatusBar;
public
constructor Create;
end;
</pre>
Implementierung:
<pre>
procedure TWinForm.ButtonFill_Click(sender: System.Object; e: System.EventArgs);
begin
BdpDataAdapter1.SelectCommand.Parameters[0].Value := TObject(10);
BdpDataAdapter1.Fill(dataSet1, 'MailAdressen');
FCM := BindingContext[dataSet1, 'MailAdressen'] as CurrencyManager;
DoRefreshStatusBar
end;
 
procedure TWinForm.DoRefreshStatusBar;
begin
StatusBar1.Text := System.String.Format('Datensatz {0} von {1}',
TObject(FCM.Position + 1).ToString, FCM.Count.ToString);
end;
</pre>
Die Position des "virtuellen Datensatzzeigers" wird ge�ndert, indem die Eigenschaft Position beschrieben wird:
<pre>
procedure TWinForm.ButtonPreviews_Click(sender: System.Object; e: System.EventArgs);
begin
FCM.Position := FCM.Position - 1;
end;
 
procedure TWinForm.ButtonNext_Click(sender: System.Object; e: System.EventArgs);
begin
FCM.Position := FCM.Position + 1;
end;
</pre>
>Wie kann ich auf die einzelnen Feldinhalte �ber Programm zugreifen ?

Da ein DataSet beliebig viele Tabellen (DataTable-Instanzen) speichern kann, f�hrt der Weg �ber die DataTable-Instanz im DataSet. Jede DataTable besteht ihrerseite aus einer Sammlung von DataRow-Objektinstanzen (siehe Rows-Kollektion), so dass man sich durch diesen "Objektbaum" durchhangeln kann:
<pre>
procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var
sCustomerID : String;
begin
sCustomerID := DataSet1.Tables[0].Rows[0][0].ToString;
MessageBox.Show(sCustomerID, 'Die 1. Spalte des 1. Datenstatzes der 1. Tabelle im DataSet');
end;
</pre>
Ein mengenorientierter Zugriff auf das DataSet k�nnte zum Beispiel so aussehen - ich suche dabei alle die Datens�tze heraus, bei denen die Spalte Fax einen Wert enth�lt:
<pre>
procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
var
aRA : array of DataRow;
i : Integer;
begin
aRA := DataSet1.Tables[0].Select('Fax IS NOT NULL');
for i := Low(aRA) to High(aRA) do
begin
MessageBox.Show(aRA[i][0].ToString, i.ToString);
end;
end;
</pre>
&#10

Announcement

Scrollen durch Datenmenge

Scrollen durch Datenmenge

Comment