数据库(0分)

如何判断一个数据库已经存在？（delphi）语句。没有钱了，大家原谅

function FileExists(const FileName: string): Boolean;
文件存在返回true 不存在返回false

IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name ='你要找的数据库名')
print('存在')

小弟先感激不尽。等有钱了再给你。

我是想在存在时就不建数据库了，不存在时才建立。原程序是这么写的，在此之前想做一个判断
try
ADOQ.Close;
ADOQ.SQL.Clear;
ADOQ.SQL.Add('Create database www');
ADOQ.ExecSQL;
showmessage('建立成功');
except
showmessage(‘建立失败');
abort;
end;
如何在此之前判断？多谢各位了。

ADOQ.SQL.Add('');
在括號里加上下面語句應該可以了﹐pubss改為你要建的數據庫。
我在Delphi7 + SQL Server 2000下測試通過。

Use master
If Not Exists(Select name From sysdatabases Where name = 'pubss')
Begin
Create Database pubss
On
( Name = 'pubss_dat',
FileName = 'D:/mydoc/pubssdat.mdf',
Size = 10,
MaxSize = 50,
FileGrowth = 5 )
Log On
( NAME = 'pubss_log',
FILENAME = 'D:/mydoc/pubsslog.ldf',
Size = 5,
MaxSize = 25,
FileGrowth = 5 )
End