Announcement

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

Hallo,

das Herunterfahren des Servers ist nicht in jedem Fall mit einem Datenverlust verbunden. Wenn das eigene Programm mit derart ungew�hnlichen F�llen rechnen muss und trotzdem seine Daten nach dem n�chsten Hochfahren des Servers speichern soll, muss die Recordset-Datenmenge im BatchOptimistic-Modus betrieben werden (dieser Modus ist im Borland-Umfeld unter dem Namen "Briefcase-Modus" bekannter). In diesem Fall wird die Verbindung zum SQL Server nur dann kurzzeitig ben�tigt, wenn das Recordset mit den Daten gef�llt wird bzw. wenn alle vom Anwender an der lokalen Datenmenge vorgenommenen �nderungen �ber die Recordset-Methode UpdateBatch zur�ckgeschrieben werden sollen. Im BatchOptimistic-Modus darf sogar der Client-Rechner zwischendurch heruntergefahren werden, ohne das Daten verlorengehen (solange das Recordset seinen aktuellen Zustand �ber einen Aufruf in einer lokalen Datei speichert).

Ein Beispiel k�nnte so aussehen:
<pre>
{ ************************************************** *******************
Autor : Andreas Kosch
Compiler : Delphi 5 UpdatePack#2
Betriebssystem : Windows 2000
Datum : 19.09.2000
Beschreibung : ADO BriefCase-Modell, �nderungen offline
durchf�hren und erst sp�ter in der originalen
SQL Server 2000-Datenbank einspielen
************************************************** ******************** }

unit ADOBriefCaseFrm;

interface

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

type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
Label1: TLabel;
StaticTextFile: TStaticText;
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADODataSet1ID: TAutoIncField;
ADODataSet1Name: TStringField;
ADODataSet1Vorname: TStringField;
ADODataSet1Ort: TStringField;
ADODataSet1eMail: TStringField;
DBNavigator1: TDBNavigator;
StatusBar1: TStatusBar;
ButtonUpdateBatch: TButton;
ButtonCancelBatch: TButton;
ButtonSaveToFile: TButton;
procedure RadioGroup1Click(Sender: TObject);
procedure ButtonUpdateBatchClick(Sender: TObject);
procedure ButtonCancelBatchClick(Sender: TObject);
procedure ButtonSaveToFileClick(Sender: TObject);
private
{ Private-Deklarationen }
FOnline : Boolean;
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
FOnline := False;
case RadioGroup1.ItemIndex of
0 : begin
StatusBar1.Panels[0].Text := '';
StatusBar1.Panels[1].Text := '';
ADODataSet1.Active := False;
ADOConnection1.Connected := False;
end;
1 : begin
ADODataSet1.Active := False;
ADOConnection1.Connected := False;
with ADODataSet1 do
begin
Connection := nil;
LoadFromFile(StaticTextFile.Caption);
Active := True;
StatusBar1.Panels[0].Text := Format('%d Datens�tze',
[RecordCount]);
end;
StatusBar1.Panels[1].Text := 'Offline: ' + StaticTextFile.Caption;
end;
2 : begin
ADOConnection1.Connected := True;
with ADODataSet1 do
begin
Active := False;
Connection := ADOConnection1;
Active := True;
Refresh;
StatusBar1.Panels[0].Text := Format('%d Datens�tze',
[RecordCount]);
end;
StatusBar1.Panels[1].Text := 'Online SQL Server 2000';
FOnline := True;
end;
end;
end;

procedure TForm1.ButtonSaveToFileClick(Sender: TObject);
begin
if ADODataSet1.Active then
begin
ADODataSet1.SaveToFile(StaticTextFile.Caption);
StatusBar1.Panels[1].Text := '..in Datei gespeichert';
end;
end;

procedure TForm1.ButtonUpdateBatchClick(Sender: TObject);
begin
// Objektinspektor: ADODataSet1.MarshalOptions = moMarshalModifiedOnly
ADOConnection1.Connected := True;
ADODataSet1.Connection := ADOConnection1;
ADODataSet1.UpdateBatch;
ADODataSet1.Connection := nil;
ADOConnection1.Connected := False;
ShowMessage('Lokale �nderungen wurden in der Datenbank eingearbeitet.');
end;

procedure TForm1.ButtonCancelBatchClick(Sender: TObject);
begin
ADODataSet1.CancelBatch;
end;

end.
</pre>
DFM-Datei:
<pre>
object Form1: TForm1
Left = 499
Top = 222
Width = 683
Height = 382
Caption = 'ADO und das BriefCase-Modell mit einer SQL Server-Datenbank'
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 Label1: TLabel
Left = 8
Top = 64
Width = 63
Height = 13
Caption = 'Lokale Datei:'
end
object RadioGroup1: TRadioGroup
Left = 8
Top = 8
Width = 537
Height = 49
Caption = 'Datenzugriff'
Columns = 3
ItemIndex = 0
Items.Strings = (
'Trennen'
'Lokale Datei '#246'ffnen'
'SQL Server-Datenbank '#246'ffnen')
TabOrder = 0
OnClick = RadioGroup1Click
end
object StaticTextFile: TStaticText
Left = 80
Top = 64
Width = 129
Height = 18
AutoSize = False
BorderStyle = sbsSunken
Caption = 'C:\Temp\ADO_BC.dat'
TabOrder = 1
end
object DBGrid1: TDBGrid
Left = 8
Top = 120
Width = 545
Height = 193
DataSource = DataSource1
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 96
Width = 540
Height = 25
DataSource = DataSource1
TabOrder = 3
end
object StatusBar1: TStatusBar
Left = 0
Top = 329
Width = 675
Height = 19
Panels = <
item
Width = 150
end
item
Width = 50
end>
end
object ButtonUpdateBatch: TButton
Left = 392
Top = 64
Width = 75
Height = 25
Caption = 'UpdateBatch'
TabOrder = 5
OnClick = ButtonUpdateBatchClick
end
object ButtonCancelBatch: TButton
Left = 472
Top = 64
Width = 75
Height = 25
Caption = 'CancelBatch'
TabOrder = 6
OnClick = ButtonCancelBatchClick
end
object ButtonSaveToFile: TButton
Left = 216
Top = 64
Width = 75
Height = 25
Caption = 'SaveToFile'
TabOrder = 7
OnClick = ButtonSaveToFileClick
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;User ID=sa;Initial Catalog=OSSISOFT;Data Source=(local)'
KeepConnection = False
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 296
Top = 136
end
object ADODataSet1: TADODataSet
Connection = ADOConnection1
CursorType = ctStatic
LockType = ltBatchOptimistic
MarshalOptions = moMarshalModifiedOnly
CommandText =
'select ID, Name, Vorname, Ort, eMail from LONGFETCH'#13#10'WHERE ID < ' +
'100'
Parameters = <>
Left = 328
Top = 136
object ADODataSet1ID: TAutoIncField
DisplayWidth = 5
FieldName = 'ID'
ReadOnly = True
end
object ADODataSet1Name: TStringField
DisplayWidth = 20
FieldName = 'Name'
Size = 50
end
object ADODataSet1Vorname: TStringField
DisplayWidth = 15
FieldName = 'Vorname'
Size = 25
end
object ADODataSet1Ort: TStringField
DisplayWidth = 20
FieldName = 'Ort'
Size = 50
end
object ADODataSet1eMail: TStringField
DisplayWidth = 20
FieldName = 'eMail'
Size = 25
end
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 360
Top = 136
end
end
</pre&gt

**Jochen Debus** · 19.11.2003, 03:45

Danke Andreas f�r deine Antwort...
Bei meinem Projekt handelt es sich aber um eine ganz normale Client/Server Anwendung bei der der Fall das der Server aus down geht nicht der Normalfall ist, aber durchaus im Bereich des m�glichen ist... Daher suche ich irgendeine Funktion die diesen Fall zumindest den Client Usern mitteilt, damit sie wissen das ihre aktuelle Arbeit eventuell verloren gehen wird. Sie einen Administrator rufen k�nnen etc.

Im Moment gibt mein System hier �berhaupt keine Warnung was ich gerne noch erg�nzen w�rde !!

Hoffe das mir hier irgendwie jemand helfen kann. Dank

**Andreas Kosch** · 19.11.2003, 08:29

Hallo,

>..aber durchaus im Bereich des m�glichen ist..

was passiert, wenn jemand das Netzwerk-Kabel oder den Netzstecker aus dem Switch zieht? Der Client erh�lt auch in diesem Fall die Fehlermeldung erst dann, wenn er das n�chste Mal auf den Server zugreifen will

**Jochen Debus** · 20.11.2003, 09:55

Hallo,

w�re es also angebracht einen manuellen Connect Test. ( Etwa eine Timer bassierte Read Abfrage des Clients an den Server alle 5 Sekunden ) hier einzubauen um die permanente Server Erreichbarkeit zu pr�fen !?
Wenn ansonsten der Fehler ja erst dann bemerkt w�rde wenn fertige Daten gespeichert werden sollen w�ren Daten potentiell ja schon verloren :-(

Sorry bin in Bezug auf den SQL Server Neuling !? H�tte hier gedacht das hier Verbindungs Probleme einfach etwa �ber etwa einen TADOConnect Event ermittelt werden k�nnen...
Aber da finde ich nichts brauchbares :-

**Andreas Kosch** · 21.11.2003, 11:28

Hallo,

>..einfach etwa �ber etwa einen TADOConnect Event ermittelt werden k�nnen..

die ADO-Objekte k�nnen nur das weiterreichen, was auf der Betriebssystem-Ebene erkannt wird. Und Win32 erkennt nur den vollst�ndigen Ausfall der eigenen Netzwerk-Karte sofort, aber nicht den Ausfall einer einzelnen IP-Adresse eines anderen Rechners im Netzwerk.

>..w�ren Daten potentiell ja schon verloren ..

Wie ich am Anfang bereits gesagt habe, kann das Programm den Zustand des Recordset-Objekts in diesem Fall immer noch in einer Datei speichern, um diesen nach dem Wieherherstellen der Verbindung aus der Datei einzulesen und die Datenbank zur�ckschreiben zu lassen. Die Eingaben des Anwenders gehen in diesem Fall nicht verloren

Announcement

Fehlermeldung beim MSSQL Server shutdown

Fehlermeldung beim MSSQL Server shutdown

Comment

Comment

Comment

Comment

Comment