Announcement

**Andreas Kosch** · 28.02.2006, 07:52

Hallo,
es gibt bereits mit dem Microsoft SQL Server 2005 Express Edition einen Nachfolger der MSDE 2.0, so dass sich die Frage stellt, ob der Wechsel nicht gleich mit dieser Version starten soll. Die Express Edition hat zahlreiche "Killer-Features" wie die XCOPY-Weitergabe der Datenbankdateien sowie die weggefallene Leistungsbremse bei mehr als 5 gleichzeitigen Anwendern im Netzwerk. W�hrend die MSDE analog zum SQL Serer 2000 das Objektmodell Database Mangement Objects (DMO) verwendet hat, f�hrt der SQL Server 2005 als Resultat auf die grunds�tzlichen Ver�nderungen am Fundament mit den Server Management Objects (SMO) ein neues Objektmodell ein (SMO in auch in der Lage, auf die SQL Server-Versionen 7, MSDE 1.0, 2000, MSDE 2.0 und 2005 zuzugreifen).
 
Das Problem mit der SQLDMO_TLB.pas hat damit zu tun, dass Delphi je nach der Version und dem installierten Patch beim Importieren der Typbibliothek eine unterschiedliche PAS-Datei erzeugt. Mir ist keine Delphi-Version bekannt, die alle TLBs fehlerfrei importieren kann, so dass in der Praxis die verschiedenen Delphi-Versionen (5, 6 und 7) nacheinander ausprobiert werden m�ssen. In der Regel kann eine der Versionen eine bestimmte TLB fehlerfrei importieren :-)
 
Das folgende Delphi 5-Beispiel zeigt das Hantieren mit SQLDMO der MSDE:
<code>
{ ************************************************** **************
Typ : Hauptformular
Autor : Andreas Kosch
Compiler : Delphi 5 Enterprise
Betriebssystem : Windows 98
Begonnen am : 12.11.1999
Beschreibung : �ber DMO auf der MSDE eine neue Datenbank
erzeugen.
************************************************** ************** }

unit CreateDBFrm;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
ButtonStart: TButton;
Label3: TLabel;
ButtonStop: TButton;
StatusBar1: TStatusBar;
ButtonLoad: TButton;
ListBoxLog: TListBox;
procedure ButtonStartClick(Sender: TObject);
procedure ButtonStopClick(Sender: TObject);
procedure ButtonLoadClick(Sender: TObject);
private
{ Private declarations }
aSrv : Variant;
procedure MakeDatabase;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

uses
ComObj, ActiveX, SQLDMO_TLB;

procedure TForm1.ButtonStartClick(Sender: TObject);
begin
aSrv := CreateOleObject('SQLDMO.SQLServer');
aSrv.LoginTimeout := 20;
aSrv.Start(True, '(local)', 'sa', '');
end;

procedure TForm1.ButtonStopClick(Sender: TObject);
begin
aSrv.Disconnect;
aSrv.Stop;
end;

procedure TForm1.ButtonLoadClick(Sender: TObject);
begin
MakeDatabase;
ShowMessage('Die Datenbank steht zur Verf�gung');
end;

procedure TForm1.MakeDatabase;
resourcestring
cDBNAME = 'OSSISOFT';
cLOGNAME = 'OSSILog';
cTABLENAME = 'KUNDEN';
cDBPATH = 'd:\mssql7\data\%s.mdf';
cLOGPATH = 'd:\mssql7\data\%s.ldf';
var
aDB : _Database;
dbFile : _DBFile;
logFile : _LogFile;
aMSDE : _SQLServer;
aTable : _Table;
aFirmaCol : _Column;
aOrtCol : _Column;
aReklaCol : _Column;
aMemoCol : _Column;
aPK : _Key;
begin
// Schritt 1: Verbindung zur MSDE aufbauen
ListBoxLog.Items.Add('Versuche Connect ....');
aMSDE := CoSQLServer.Create;
aMSDE.Connect('(local)', 'sa', '');
ListBoxLog.Items.Add('...Connect ist ok!');
// Schritt 2: Pr�fen, ob die Datenbank bereits vorhanden ist
try
aDB := aMSDE.Databases.Item(cDBNAME, '');
ListBoxLog.Items.Add('Datenbank ist vorhanden');
except
aDB := nil;
end;
if not Assigned (aDB) then
begin
// Schritt 3: Datenbank erzeugen
ListBoxLog.Items.Add('Datenbank wird neu erzeugt....');
aDB := CoDatabase.Create;
aDB.Name := cDBNAME;
dbFile := CoDBFile.Create;
logFile := CoLogFile.Create;
// PRIMARY Datenbankdatei
dbFile.Name := cDBNAME;
dbFile.PhysicalName := Format(cDBPATH, [cDBNAME]);
dbFile.PrimaryFile := True;
dbFile.FileGrowthType := SQLDMOGrowth_MB;
dbFile.FileGrowth := 1;
aDB.FileGroups.Item('PRIMARY').DBFiles.Add (dbFile);
// Log-Datei.
logFile.Name := cLOGNAME;
logFile.PhysicalName := Format(cLOGPATH, [cDBNAME]);
aDB.TransactionLog.LogFiles.Add(logFile);
aMSDE.Databases.Add(aDB);
ListBoxLog.Items.Add('... Datenbank ist ok!');
end;
// Schritt 4: Pr�fen, ob die Tabelle bereits vorhanden ist
try
aTable := aDB.Tables.Item(cTABLENAME, '');
ListBoxLog.Items.Add('Tabelle ist vorhanden.');
except
aTable := Nil
end;
if not Assigned(aTable) then
begin
// Schritt 5: Tabelle neu anlegen
ListBoxLog.Items.Add('Tabelle wird neu angelegt....');
aTable := CoTable.Create;
aPK := CoKey.Create;
// Tabellenspalten-Objekte erzeugen
aFirmaCol := CoColumn.Create;
aMemoCol := CoColumn.Create;
aOrtCol := CoColumn.Create;
aReklaCol := CoColumn.Create;
// Firma
aFirmaCol.Name := 'Firma';
aFirmaCol.DataType := 'varchar';
aFirmaCol.Length := 20;
aFirmaCol.AllowNulls := False;
// Ort
aOrtCol.Name := 'Ort';
aOrtCol.DataType := 'varchar';
aOrtCol.Length := 20;
aOrtCol.AllowNulls := False;
// Memo
aMemoCol.Name := 'Hinweise';
aMemoCol.DataType := 'text';
aMemoCol.AllowNulls := True;
// Reklamationen
aReklaCol.Name := 'Rekla';
aReklaCol.Datatype := 'int';
aReklaCol.AllowNulls := False;
// Tabelle definieren
aTable.Name := cTABLENAME;
aTable.FileGroup := 'PRIMARY';
aTable.Columns.Add(aFirmaCol);
aTable.Columns.Add(aOrtCol);
aTable.Columns.Add(aMemoCol);
aTable.Columns.Add(aReklaCol);
// Prim�rschl�ssel festlegen
aPK.Clustered := True;
aPK.Type_ := SQLDMOKey_Primary;
aPK.KeyColumns.Add ('Firma');
aTable.Keys.Add (aPK);
// Tabelle erzeugen
aDB.Tables.Add(aTable);
ListBoxLog.Items.Add('.... Tabelle ist ok!');
end
end;

end.
</code&gt

**Borgfeld** · 07.03.2006, 09:24

Hallo,

ich habe den Rat befolgt und MS SQL Server 2005 Express installiert. Ohne die BDE habe ich jedoch keinerlei Erfahrung wie ich auf die DB zugreife und eine neue Datenbank und Tabellen anlege. Hat jemand einen Beispielsource oder eine Quelle �ber die ich mir das Wissen kurzfristig aneignen kann ?

Danke

Pete

Announcement

SQLDMO_TLB.pas

SQLDMO_TLB.pas

Comment

Comment