Announcement

**Andreas Kosch** · 30.12.2003, 10:28

Hallo,

die Antwort h�ngt von der verwendeten Datenbank ab. Im Fall des MS SQL Server 2000 ist dies m�glich

**Astner Klaus** · 07.01.2004, 16:36

Ich verwende MS SQLSRv 2000. Wie kann man da vorgehen

**Andreas Kosch** · 07.01.2004, 16:44

Hallo,

der MS SQL Server 2000 unterst�tzt die so genannten Named Transactions, die als Bookmarks (Lesezeichen) innerhalb einer T-SQL-Stapelanweisung verwendet werden:
<pre>
BEGIN TRAN TestMainTransaction
...
SAVE TRAN TestBookmark1
...
ROLLBACK TRAN TestBookmark1
...
COMMIT TRAN
</pre>
�ber SAVE TRAN wird ein Lesezeichen gesetzt, dessen einzelne Aktionen sp�ter zum Beispiel �ber ROLLBACK TRAN zur�ckgenommen werden k�nnen, um in der Fehlerbehandlung einen 2. Versuch zu starten. Der COMMIT TRAN-Aufruf best�tigt am Ende alle �nderungen (unabhg�ngig vom Bookmark).

Beispiel-Datenbanktabelle:

<pre>
USE tempdb
GO
CREATE TABLE NESTEDTRANTEST (
RecID INTEGER NOT NULL IDENTITY PRIMARY KEY,
Wert VARCHAR(10))
GO
</pre>

Aufruf �ber ADO.NET heraus: 
Das T-SQL-Verhalten wird auch von der SqlTransaction-Klasse unterst�tzt, indem die Methoden BeginTran und Rollback �berladen wurde und zus�tzlich die Methoden Save zur Verf�gung gestellt wird:
<pre>Me.SqlConnection1.Open()
Dim aTran As System.Data.SqlClient.SqlTransaction
aTran = SqlConnection1.BeginTransaction(IsolationLevel.ReadCommitted, "TestMainTran&quot

Dim aCmd As New System.Data.SqlClient.SqlCommand()
' SqlCommand-Instanz muss immer die gleiche Transaktion nutzen 
aCmd.Transaction = aTran
' Testeintrag 1 wird in der "Haupt-Transaktion" eingetragen 
aCmd.Connection = SqlConnection1
aCmd.CommandText = "INSERT INTO NESTEDTRANTEST (Wert) VALUES ('Test1')"
aCmd.ExecuteNonQuery()
' Nach dem Testeintrag 1 wird ein Pr�fpunkt gesetzt 
aTran.Save("TestBookmark1&quot

' Testeintrag 2 wird in der "Neben-Transaktion" eingetragen 
aCmd.CommandText = "INSERT INTO NESTEDTRANTEST (Wert) VALUES ('Test2')"
aCmd.ExecuteNonQuery()
' Die "Neben-Transaktion" wird �ber Rollback zur�ckgenommen 
aTran.Rollback("TestBookmark1&quot

' Testeintrag 3 wird in der "Haupt-Transaktion" eingetragen 
aCmd.CommandText = "INSERT INTO NESTEDTRANTEST (Wert) VALUES ('Test3')"
aCmd.ExecuteNonQuery()
' Commit auf alle offenen Vorg�nge 
aTran.Commit()
Me.SqlConnection1.Close()
</pre>
&#10

**Astner Klaus** · 20.01.2004, 09:26

Ist dies auch mit Delphi 5 m�glich, wenn man kein Ado.Net hat

**Andreas Kosch** · 20.01.2004, 13:25

Hallo,

nein, dieser Teil steht �ber den OLE DB-Provider nicht zur Verf�gung. Microsoft liefert im .NET Framework die Klassen SqlConnection und SqlTransaction aus, die als "Spezialisten" nur mit dem MS SQL Server zusammenarbeiten und daher auch alles unterst�tzen. Hinter OLE DB steckt im Gegensatz dazu eine universell nutzbare Zwischenschicht (die von ACCESS bis zum SQL-Server verschiedener Bauart reicht), aber bei der nicht alle spezifischen Merkmale verf�gbar sind.

> wenn man kein Ado.Net hat ?

In diesem Fall w�rde ich mit Delphi 8 eine kleine Assembly (DLL) zusammenbauen, die dann von Delphi 5 eingebunden wird. Delphi 5 "sieht" diesen .NET-Teil nur als "ganz normale" Schnittstellenprozeduren einer DLL, d.h. Delphi 5 kann nicht erkennen, dass dieses Teil von Delphi 8 (.NET) kommt. �ber diesen Weg k�nnen wir unsere alten/bew�hrten Anwendungen mit neuen Funktionen aufpolieren, ohne das Ganze in einem Schritt auf .NET umstellen zu m�ssen.

Das Ganze k�nnte im Beispiel so aussehen:
<pre>
library UnmanagedExportBDELibrary;

{$UNSAFECODE ON}

{%DelphiDotNetAssemblyCompiler 'c:\programme\gemeinsame dateien\borland shared\bds\shared assemblies\2.0\Borland.Delphi.dll'}
{%DelphiDotNetAssemblyCompiler 'c:\programme\gemeinsame dateien\borland shared\bds\shared assemblies\2.0\Borland.Vcl.dll'}

uses
SysUtils,
Classes,
System.Reflection,
UnmanagedExportBDELibrary_DM in 'UnmanagedExportBDELibrary_DM.pas' {DataModule1: TDataModule};

[assembly: AssemblyTitle('UnmanagedExportBDELibrary')]
[assembly: AssemblyDescription('VCL.NET Datenmodul nutzt BDE')]
[assembly: AssemblyVersion('1.0.0.0')]

function GetDataFromBDE: Integer;
var
aDM : TDataModule1;
begin
aDM := TDataModule1.Create(nil);
try
aDM.TableCustomerDb.Active := True;
Result := aDM.TableCustomerDb.RecordCount;
finally
aDM.TableCustomerDb.Active := False;
aDM.Free;
end;
end;

exports
GetDataFromBDE;

begin
end.
</pre>
Das Delphi 5-Programm ruft diese DLL (alias .NET-Assembly) �ber den vertrauten Weg auf:
<pre>
function GetDataFromBDE: Integer; external 'UnmanagedExportBDELibrary.dll';

procedure TForm1.ButtonGetDataFromBDEClick(Sender: TObject);
begin
StatusBar1.SimpleText := IntToStr(GetDataFromBDE);
end;
</pre>

Announcement

Transaktion

Transaktion

Comment

Comment

Comment

Comment

Comment