如何动态创建数据库？

Question

我想在delphi中动态创建数据库，数据库名称想从edit中取的。
如用TADOCommand控件书写sql语句create database (name),name是从edit中取的。
如有其他方法也行，希望个位高手多多指教。谢谢!

Answer 1

S:='USE master';
s:=s+' begin';
s:=s+' CREATE DATABASE '+edit1.Text;
s:=s+' ON';
s:=s+' ( NAME = '+edit1.Text+'_dat,';
s:=s+'   FILENAME = ''c:\'+edit1.Text+'dat.mdf'',';
s:=s+'   SIZE = 10,';
s:=s+'   MAXSIZE = 50,';
s:=s+'   FILEGROWTH = 5 )';
s:=s+' LOG ON ';
s:=s+' ( NAME = '+edit1.Text+'_log,';
s:=s+'   FILENAME = ''c:\'+edit1.Text+'log.ldf'',';
s:=s+'   SIZE = 5MB, ';
s:=s+'   MAXSIZE = 25MB, ';
s:=s+'   FILEGROWTH = 5MB )';
s:=s+' end ';
adocommand1.CommandText:=s;
adocommand1.Execute;