Announcement

**Andreas Kosch** · 13.01.2003, 14:37

Hallo,

das Recordset-Objekt von ADO muss alle vom Benutzer vorgenommene Aktionen automatisch in SQL-Anweisungen (UPDATE, INSERT, DELETE) �bersetzen, wobei es bei diesem Job zwangsl�ufig Grenzen gibt. Da der MS SQL Server 2000 genutzt wird, liefert ein Blick auf die mitprotokollierten Logs des Profilers den Grund f�r diese Probleme.

Wenn das Problem mit der "groben Kelle" gel�st werden soll, kann man auch zu drastischen Mitteln greifen:
<pre>
{ ************************************************** **************
Typ : Hauptformular
Autor : Andreas Kosch
Compiler : Delphi 5.01 Enterprise/Delphi 6.01 Enterprise
Betriebssystem : Windows 2000 SP1 / Windows XP Professional
Begonnen am : 14.01.2001
Beschreibung : Update Criteria=adCriteriaKey sorgt im
Multiuser-Betrieb daf�r, das beim UPDATE als
WHERE-Einschr�nkung nur der Prim�rschl�ssel
verwendet wird.
Im Gegensatz daher sorgt adCriteriaAllCols
daf�r, dass die Exception "... Datensatz
ge�ndert..." erscheint.

Achtung: Verwendet die SQL Server 2000-Datenbank OSSISOFT auf
dem Server OSSISOFT-W2KSRV. Der ConnectionString muss
vor dem Aufruf des Programms angepasst werden.
************************************************** ************** }

unit UpdateCriteriaFrm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, DBCtrls, Db, Grids, DBGrids, ADODB, ComCtrls;

type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADODataSet1ID: TAutoIncField;
ADODataSet1Name: TStringField;
ADODataSet1Vorname: TStringField;
ADODataSet1Ort: TStringField;
ADODataSet1eMail: TStringField;
DBNavigator1: TDBNavigator;
RadioGroup1: TRadioGroup;
procedure RadioGroup1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

uses ADOInt;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
ADODataSet1.Active := False;
case RadioGroup1.ItemIndex of
0 : begin
ADODataSet1.Active := False;
ADOConnection1.Connected := False;
end;
1 : begin
ADOConnection1.Connected := True;
ADODataSet1.Active := True;
with ADODataSet1.Recordset do
begin
Properties['Update Criteria'].Value := adCriteriaKey;
Properties['Update Resync'].Value := adResyncAll;
end;
StatusBar1.SimpleText := 'Update Criteria=adCriteriaKey';
end;
2 : begin
ADOConnection1.Connected := True;
ADODataSet1.Active := True;
with ADODataSet1.Recordset do
begin
Properties['Update Criteria'].Value := adCriteriaAllCols;
Properties['Update Resync'].Value := adResyncAll;
end;
StatusBar1.SimpleText := 'Update Criteria=adCriteriaAllCols';
end;
end;
end;

end.
</pre>
�ber die Anweisung Properties['Update Criteria'].Value := adCriteriaKey; wird das Recordset-Objekt davon informiert, dass nur der Prim�rschl�sselwert des betroffenen Datensatzes in der WHERE-Klausel genutzt werden soll. Somit ist die UPDATE- bzw. DELETE-Aktion immer dann erfolgreich, wenn 
a) die Tabelle einen Prim�rschl�ssel hat, und 
b) kein anderer Benutzer den Prim�rschl�sselwert entsorgt hat.

Schaltet man auf den anderen Radiobutton um, so bekommt man die Fehlermeldung "... Datensatz ge�ndert..." zu Gesicht, wenn in der Zwischenzeit ein anderer Benutzer den Datensatz ge�ndert hat.

Wenn die Fehlermeldung auch im Einbenutzer-Betrieb kommt, werden Datentypen genutzt, die in Delphi zu Rundungsfehlern f�hren. Auch auch in diesem Fall beseitigt adCriteriaKey das Problem (solange der Prim�rschl�ssel eindeutig ist, was bei einem INTEGER immer der Fall ist)

**Markus J�ger** · 13.01.2003, 15:50

Vielen Dank f�r die Antwort,

allerdings habe ich hierzu noch eine Frage :

Wie verh�lt sich ADO bei der Einstellung 'Update Criteria=adCriteriaKey' wenn der Prim�rschl�ssel ein Autoz�hler ist, der beim INSERT noch nicht bekannt ist ?

Vielen Dank im Voraus

Marku

**Andreas Kosch** · 14.01.2003, 09:06

Hallo,

>..ein Autoz�hler ist, der beim INSERT noch nicht bekannt ist ?

wie der Name Update Criteria schon andeutet, ist dieser Wert nur f�r UPDATE- und DELETE-Anweisungen relevant, bei denen es eine WHERE-Einschr�nkung gibt. Da bei einem INSERT kein WHERE-Part zul�ssig ist, hat diese Einstellung beim Einf�gen von neuen Datens�tzen keine Auswirkung.

Beispiele: 
a) UPDATE Tabelle SET Feld1=NeuerWert WHERE Prim�rschl�sselwert=1 
b) DELETE FROM Tabelle WHERE Prim�rschl�sselwert=1 
c) INSERT INTO Tabelle (Feld1) VALUES ('NeuerWert'

**Markus J�ger** · 14.01.2003, 15:35

Hallo,

merci f�r die Antwort ... Ich glaube, ich muss meine Frage anders formulieren :

Wenn ich einen neuen Datensatz mit Dataset.Append ... Dataset.Post anlege, dann sollte das Dataset nach dem Post den Datensatz neu laden, bzw. auf diesem stehen. Wie soll also das Dataset den Datensatz neu laden k�nnen, wenn zu diesem Zeitpunkt der Autoz�hler-Wert noch nicht bekannt ist, um diesen eindeutig zu identifizieren ?

Wie geht das Dataset dann vor, um den neu angelegten Datensatz zu lokalisieren, denn anscheinend versucht das Dataset ja irgendwas neu zu laden ?
Die neuen Daten stehen jedenfalls in der Tabelle ?

Ich kann mir nur vorstellen, dass das Dataset den Datensatz l�dt, auf dem es sich vor dem Dataset.Append gestanden hat. Sollte dies der Fall sein, so m�sste ich den Datensatz manuell hersuchen; was prinzipiell auch kein Problem w�re, sofern ich die Auto-Refresh Funktionalit�t abschalten kann

**Andreas Kosch** · 15.01.2003, 08:34

Hallo,

>..Wie soll also das Dataset den Datensatz neu laden k�nnen...

die VCL (TADODataSet) ist nur die Umverpackung f�r das Recordset-Objekt von ADO. Und auch das Recordset-Objekt von ADO ist nur die Umverpackung des eingebundenen OLE DB-Providers. Und im Fall des OLE DB-Providers f�r den MS SQL Server hat Microsoft bereits die F�higkeit, IDENTITY-Werte automatisch zum Client zur�ckzuschicken, fest in den OLE DB-Provider und das Recordset-Objekt eingebaut. Somit holt sich ADO die ben�tigten Daten automatisch �ber @@IDENTITY vom SQL Server ab. Das TADODataSet bekommt von alle dem nichts mit, so dass dort der vom Server vergebene Prim�rschl�sselwert nach dem Post wie von Geisterhand auftaucht

Announcement

Probleme beim Speichern mit TADODataset

Probleme beim Speichern mit TADODataset

Comment

Comment

Comment

Comment

Comment