Prüfung ob Datenbank existiert

[Stephan Schneider]

Hallo,

Umg.: Delphi 6 Ent. UP2

Wie kann ich mittels ADO prüfen, ob eine bestimmte Datenbank (z.B. auf dem MS SQL Server) existiert?

Stephan

[Bernd Schulz]

Hallo!<br>
Besser nie als spät:<br>
Am Beispiel eines kleinen Formulars. Eine TAdoConnection draufsetzten und einen Schalter. Den Schalter mit folgenden Code belegen:<br>
<PRE>
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Adoconnection1.ConnectionString := 'Provider=MSDataShape.1;Persist Security Info=False;Data Source=(local);Integrated Security=SSPI;Initial Catalog=MeineDB;Data Provider=SQLOLEDB.1';
Adoconnection1.Connected := True;
except
end;
if Adoconnection1.Connected then begin
MessageDlg('Ja das gibts!', mtInformation, [mbOK], 0);
end
else begin
MessageDlg('Nein das gibts nicht!', mtError, [mbOK], 0);
end;
end;
</PRE>
Wir verwenden den MSDataShape Provider. Das geht aber bei MS SQL direkt genauso. Jetzt den Parameter "Initial Catalog=MeineDB" verändern und sehen was passiert!<br>
Das kann man jetzt natürlich auch in die nativen ADO Objekte "übersetzen"....<br>
BYE BERN

[Bernhard Geyer]

Such mal im Forum nach "SQLDMO_TLB" und du wirst weitere Lösungen finden